Mensajes

XD, Si lo se pero me referia a una BD para muchos usuarios y contraseñas no para unos cuantos ,puse el programa de esa forma porque creo conveniente enseñar de la forma mas simplificada la programacion para que luego con los ejemplos ellos puedan crear un programa mas elaborado

Private Sub Command1_Click()
RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\testing", "C:\Programa.exe"
MsgBox "Done"
End Sub
Function RegWrite(ByVal Path As String, ByVal Value As String)
Dim ws As Object
Set ws = CreateObject("Wscript.Shell")
ws.RegWrite Path, Value, "REG_SZ"
End Function

Tal vez esto te pueda ayudar es sobre la programacion de messenger http://www.msnlocos.com/index.php?action=Articulos&Id=42

EL programa que ha puesto Robokop, lo puede crackear hasta un ciego xD

Si lo se ,pero lo puse de esta forma porque no creo que su programa vaya a ser de uso publico porque en ese caso tendria que crear una BD para almacenar los datos y contraseñas

copiarlo ala carpeta de inicio ,aunque seria muy obvio

Pues a mi me gusta este tema no cansa la vista pero que lo cambien un poquito este, es decirl los mismos colores y todo eso pero con un toque mas profesiona con volumen y 3d

los elemenos los insertas como si estuvieras en un form busca un tutoria o algo de dhtml en vb , no se mucho sobre DHTML en vb

la REspuesta es Si con el vbasic 6. se puede hacer paginas dinamicas con botones y todo el rollo nomas cuando abras el basic elige la opcion DHTMLproject y ya empiezas

Para interactuar con objetos de windows necesitas apis y un buen visto yo te recomiendo el api-guide busque tal vez te pueda servir esta funcion
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()

  closeWindow Me.hwnd
End Sub

cambia me por el nombre de la ventana

Otra forma es creando una condicion para 2 terminos
ejemplo:

Private Sub Command1_Click()
If Text1.Text = "manuel" And Text2.Text = "manuel" Then
MsgBox "bienvenido"
Else
MsgBox "eres un ratero hijo de @@@@@@@@@@"
End If

End Sub