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
Private Sub Guardar_Click()
archivo = FreeFile
Open "C:\Users\pc\Desktop\log.txt" For Append As #archivo
Print #archivo, (Text1.Text)
Close
End Sub
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?
Cita de: TheGhost(Z) en 26 Octubre 2009, 16:20 PM
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)
esta bien , pero mejor api's..
Cita de: Daklon en 26 Octubre 2009, 18:13 PM
como hago para que cuando valla a sobreescribir un archivo me mande un aviso y me pregunte si quiero sobreescribir el archivo?
con msgbox?
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