🚀 go-pugleaf

Ok, hartelijk bedankt voor je uitleg! Ik kan weer verder :)

"Pieter" <no@email.com> wrote in message
news:1014333981.770499@seven.kulnet.kuleuven.ac.be...
> "De KoFfie�" <dekoffie@planetkoffie.com> wrote in message
> news:Zmdd8.165479$rt4.18990@afrodite.telenet-ops.be...
> > Wel, ik weet dat het ook zo gaat, maar dan ben ik via de GET methode aan
> het
> > werken als ik mij niet vergis. Het moet zeker en vast via de POST
methode
> > gebeuren... Toch bedankt voor je hulp!
>
> Als aanvulling op Fenux' post zal ik je hier uitleggen hoe je WinSock in
VB
> kan
> gebruiken (je kan zijn HTTP query grotendeels overnemen).
>
> Er zijn een aantal manieren om WinSock in Vb te gebruiken. De meest
> voorkomende
> zijn (1) het gebruik van de WinSock control en (2) het gebruik van de
> WinSock API.
> Persoonlijk verkies ik het laatste aangezien ik zoveel mogelijk user
> controls tracht te
> mijden.
>
> 1. De WinSock control:
>  - Voeg een Winsock control toe aan je form (naam hier in voorbeeld:
> Winsock1)
>    en een knop die, als je erop drukt, de query zal verzenden (naam:
> Command1).
>    Voeg ook een textbox toe ('Text1', Multiline = True)
>  - Voeg de volgende code toe:
>
> <CODE>
> Private Sub Command1_Click()
>     Text1.Text = ""
>     'We connecteren op de remote server
>     Winsock1.Connect "www.kuleuven.ac.be", 80
> End Sub
> Private Sub Winsock1_Connect()
>     Debug.Print "Connected"
>     'We zijn geconnecteerd
>     Winsock1.SendData GetQuery()
> End Sub
> Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
>     Debug.Print "Data arrived"
>     'Data ophalen
>     Dim Data As String
>     Winsock1.GetData Data, vbString
>     'en in textbox zetten
>     Text1.Text = Text1.Text + Data
>     Debug.Print bytesTotal
> End Sub
> 'Aan te passen
> Public Function GetQuery() As String
>     'Ik doe hier een GET query voor de gemakkelijkheid
>     GetQuery = "GET http://www.kuleuven.ac.be/ HTTP/1.0" + vbCrLf + _
>                 "Accept: */*" + vbCrLf + _
>                 "Host: www.kuleuven.ac.be" + vbCrLf + _
>                 "User-Agent: VB programma" + vbCrLf + _
>                 vbCrLf
> End Function
> </CODE>
>
> 2. De WinSock API:
> Hier is een leuk voorbeeldje dat je kan aanpassen om een query naar
> een HTTP server te sturen:
> http://www.allapi.net/vbexamples/vbexample.php?vbexample=SERVERCLIENT
>
>
> Mvg,
> Pieter Philippaerts
>
>