Option Explicit
 
 
Public Function PostGet(strCommand As String, _
    strURL As String, strFeldname As Variant, _
    strData As Variant)
 
Dim strRequestString As String
 
Dim i As Integer
 
 
 
'Einlesen der Felder und Daten...
 
 
 
For i = LBound(strFeldname) To UBound(strFeldname)
 
 
 
    If Len(strRequestString) = 0 Then
        strRequestString = strFeldname(i) & "=" & strData(i)
 
    Else
 
        strRequestString = strRequestString & "&" & _
            strFeldname(i) & "=" & strData(i)
 
    End If
 
 
 
Next i
 
 
 
Inet1.Cancel
 
 
 
'Request starten...
 
 
 
Select Case UCase(strCommand)
 
    Case "POST"
 
        Inet1.Execute strURL, UCase(strCommand), _
            strRequestString & vbCrLf
 
    Case "GET"
 
        Inet1.Execute strURL & "?" & strRequestString
 
End Select
 
 
 
'Auf Antwort warten... (evtl. Timeout einbauen!)
 
 
 
Do While Inet1.StillExecuting = True
 
    DoEvents
 
Loop
 
 
 
'Auslesen der ersten 1024 Bytes der Antwort!
 
PostGet = Inet1.GetChunk(1024, icString)
 
 
 
End Function
 
 
 
Private Sub Command1_Click()
 
 
 
Dim strFeldname As Variant
 
Dim strData As Variant
 
Dim strRtn As String
 
 
 
strFeldname = Array("Vorname", "Name")
 
strData = Array("Max", "Mustermann")
 
 
 
strRtn = PostGet("POST", "http://192.168.0.1/forms_post_1.asp", _
    strFeldname, strData)
 
strRtn = PostGet("GET", "http://192.168.0.1/forms_get_1.asp", _
    strFeldname, strData)
 
End Sub