🚀 go-pugleaf

"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