Hola amigos de elhacker.net, queria saludarles y a la vez
mostrarles mi aprendisaje.Bueno este codigo fuente es:
Public Class Form1
Private Sub Command1_Click()
On Error Resume Next
Winsock1.Connect("login.passport.com", 80)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.SendData("GET /login2.srf HTTP/1.0" & vbCrLf)
Winsock1.SendData("Accept: */*" & vbCrLf)
Winsock1.SendData("Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" + Text1.Text + ",pwd=FREEZED-BY-WHK,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1131803266,kpp=1,kv=7,ver=2.1.6000.1,rn=Oyx2lzO3,tpf=a9aa21fdbc1350435849d9fd05849cb7" & vbCrLf)
Winsock1.SendData(vbCrLf)
Winsock1.SendData(vbCrLf)
End Sub
Private Sub Command2_Click()
On Error Resume Next
Timer1.Enabled = False
Winsock1.Close()
End Sub
El caso es que en este experimento que estado haciendo sobre los congeladores del msn queria que calificaceis mi avance, y que me ayudaran a encontrar donde esa el problema de este codigo.
Saludos y muchas gracias por la atencion !
Que aprendiste a hacer "copy and paste"...
El codigo es super re contra mega sencillo... para empeorar esta en visual basic que te ayuda todo cuando tenes un misero error.
Mostrar Mensajes
