Temas

Hola amigos de elhacker.net, queria saludarles y a la vez mostrarles mi aprendisaje.
Bueno este codigo fuente es:

Código (vb) [Seleccionar] Expandir

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 !