[VB] Winsock

[Saven]

Hallo,
Ik ben al een tijdje bezig met de onderstaande code, maar ik krijg hem niet werkend.

Visual Basic:

Private Sub Form_Load()

    frmSend.Width = 0
    frmSend.Height = 0
    frmSend.Visible = False
    
    sock.Connect "saven.nl", 80

End Sub

Private Sub sock_Connect()
    
    Dim pass As String
    pass = "jeuj"
    
    Dim naam As String
    naam = "test"

    sock.SendData "GET /send.php?name=" & naam & "&pass=" & pass & " HTTP/1.1"
    sock.SendData "Host: www.saven.nl"
    sock.SendData "User-Agent: Mozilla/4.0"
    
    MsgBox "done"

End Sub

Als ik er handmatig naartoe ga, dan doet ie het wel, maar met de bovenstaande code niet
Dan wordt het wel gewoon opgeslagen als ik het handmatig doe.

Ik krijg ook gewoon de MsgBox "done", maar ik doe waarschijnlijk dus iets fout met de senddate

[ Voor 28% gewijzigd door Saven op 08-07-2007 20:11 ]

[Snake]

Nu weten we veel

Joenge, pring je Data eens af voor je die stuurt, kan goed zijn dat daar iets fout gaat. Stuur je ook de juiste headers?

Ook moet je uitkijken met die & , die moet & zijn in een URL.

[Saven]

Snake schreef op zondag 08 juli 2007 @ 19:55:
Nu weten we veel

Joenge, pring je Data eens af voor je die stuurt, kan goed zijn dat daar iets fout gaat. Stuur je ook de juiste headers?

Ook moet je uitkijken met die & , die moet & zijn in een URL.

Ik heb mijn post even ge-edit, en die & amp; heeft geen nut werkt nog steeds niet

[ Voor 4% gewijzigd door Saven op 08-07-2007 20:04 ]

[farlane]

Bij Sock_Connect is je socket waarschijnlijk nog helemaal niet geconnected

[Saven]

farlane schreef op zondag 08 juli 2007 @ 20:22:
Bij Sock_Connect is je socket waarschijnlijk nog helemaal niet geconnected

Visual Basic:

Private Sub Form_Load()

    frmSend.Width = 0
    frmSend.Height = 0
    frmSend.Visible = False
    
    sock.Connect "www.saven.nl", 80

End Sub

Private Sub sock_Connect()

    Set WSo = CreateObject("wscript.shell")
    
    Dim pass As String
    pass = "aap"
    
    Dim naam As String
    naam = "jan"
    
    If sock.State = sckConnected Then
    sock.SendData "GET /sdf.php?name=" & naam & "&pass=" & pass & " HTTP/1.1"
    sock.SendData "Host: www.saven.nl"
    sock.SendData "User-Agent: Mozilla/4.0"
    Else
        MsgBox "No connection"
    End If

End Sub

Ik krijg geen "No connection"
Maar in een timer die pas na 1 seconde start werkt het ook niet

[danslo]

Visual Basic:

Do While sock.State <> sckConnected
DoEvents
Loop

Je vergeet trouwens ook de enters (&vbcrlf) tussen je regels en de dubbele enter (&vbcrlf&vbcrlf) aan het eind.

[ Voor 3% gewijzigd door danslo op 08-07-2007 20:30 ]

[Saven]

cls schreef op zondag 08 juli 2007 @ 20:30:

Visual Basic:

Do While sock.State <> sckConnected
DoEvents
Loop

Je vergeet trouwens ook de enters (&vbcrlf) tussen je regels en de dubbele enter (&vbcrlf&vbcrlf) aan het eind.

oja danku zeer

[farlane]

Zou je sterk willen afraden om DoEvents te gebruiken om de redenen die al vaker voorbij gekomen zijn ( 100% CPU, reentrant code etc )

Als je een wacht routine wilt gebruik dan een timer.

[j_du_pee]

Ga je deze code alleen gebruiken voor het opvragen en posten van webpagina's? In dat geval zou ik denken dat sockets wel wat omslachtig zijn en je b.v. ook kunt kijken of je met XMLHttp kunt werken
Neemt niet weg dat sockets natuurlijk veel cooler zijn

[Verwijderd]

of gebruik de:

microsoft internet transfer controler