Foro de elhacker.net

estoy haciendo un keylogger bastante basico y local(nada de internet por ahora) y he puesto un menu de estos de archivo herramientas etc
pero con solo dos botones uno guardar y otro cargar, y mi idea era que cuando le de a guardar me pregunte donde lo quiero guardar y con que nombre(como hace con la gran mayoria de programas) y luego lo guarde y que con cargar lo mismo pero cargandolo

no se si me explico bien

si no me entienden me lo dicen y les pongo una captura de la ventana a la que me refiero

Edit:

tengo otro problema

cuando he puslado las suficientes teclas para que se llene una linea, el texto no sigue escribiendose en la siguiente linea del TextBox sino que sigue escribiendose en la misma linea, como pasa con el block de notas

es solo abrir y guardar un archivo de texto, creo que el manual vendria bien:

Manejo de Archivos (http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm)

gracias por el link pero no era exactamente lo que necesitaba aunque me vino muy bien

yo queria que saliera una ventana como esta:

(http://img11.imageshack.us/img11/8444/dibujoza.jpg)

no se si eso sera posible con vb6


hasta ahora tengo este codigo para guardar pero preferiria mas la ventana para que el usuario pueda escoger donde guardar los logs

si se puede busca las api's GetSaveFileName,GetOpenFileName en esa misma pagina hay ejemplos.

Utiliza el control: CommonDialog

tutorial aquí: http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-commondialog.htm (http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-commondialog.htm)

ok muchas gracias, me sirvio

edit:

como hago para que cuando valla a sobreescribir un archivo me mande un aviso y me pregunte si quiero sobreescribir el archivo?

con msgbox?

esta bien , pero mejor api's..


fijate si existe al archivo.

hice un txt a traves del programa y lo guarde y luego hice otro diferente y lo guarde otra vez pero no me salio ninguna advertencia de sobreescritura

esque obtienes la ruta del archivo con el commondialog y verificas si el archivo existe de forma "manual", si existe entonces lanza la alerta o si no no.

Public Function Is_File(Ruta As String) As Boolean
 On Error GoTo error
 ' Verifica si el archivo tiene atributo de archivo o no
 If GetAttr(Ruta) = 32 Then
  Is_File = True
 Else
  Is_File = False
 End If
 Exit Function
error:
 ' Si es una ruta inválida entonces no es un archivo
 Is_File = False
End Function
 
Public Function Es_String(Buffer) As Boolean
 ' Cuenta los carácteres eliminando espacios muertos y null bites
 If Len(Trim(Buffer)) > 0 Then
  Es_String = True
 Else
  Es_String = False
 End If
End Function
 
Private Sub Command1_Click()
 Dim Handle As Integer
 CommonDialog1.FileName = ""
 ' Muestra el cuadro de dialogo
 CommonDialog1.ShowOpen
 ' Verifica si fue cancelado o no
 If Not Es_String(CommonDialog1.FileName) Then Exit Sub
 ' Verifica si es archivo
 If Is_File(CommonDialog1.FileName) Then
  ' Verifica el archivo
  If MsgBox("¿Desea sobreescribir el archivo?", vbQuestion + vbOKCancel) = vbOK Then
   ' Elimina el archivo para asegurarse que se creará nuevo
   Call Kill(CommonDialog1.FileName)
  Else
   ' Llama nuevamente al commondialog
   Call Command1_Click
   ' Finaliza el Sub
   Exit Sub
  End If
 End If
 ' Procede a guardar el archivo
 ' Crea el handle
 Handle = FreeFile
 ' Abre el archivo
 Open CommonDialog1.FileName For Output As #Handle
  ' Escribe el contenido de text1 en el archivo
  Print #Handle, Text1.Text
 ' Cierra el handle
 Close #Handle
End Sub
 

algo masomenos así.

me sirvio gracias