Einfaches [?] Programm schreiben

[DFYX]

Jo, da stimm ich dir zu. VB ist sicher auf dem Gebiet nicht das Allheilmittel, besonders, weil es auch mit Objektreferenzen etwas umständlich ist, aber wenn man mal nur schnell ne Kleinigkeit als Hilfsmittel braucht, isses ganz nett. Einfach so "Wegwerfanwendungen", die man eigentlich nur mal schnell braucht, um ne Routinearbeit zu erleichtern und ähnliches.

Ach ja, um mal auf dein Problem speziell einzugehen, eine Möglichkeit wäre folgende etwa:

Code:

Option Explicit
Public Socket As CSocket
Private nArray() As Integer

Private Sub cmdOk_Click()
    Dim Request As String
    Dim i As Integer
    Set Socket = New CSocket
    
    Socket.RemoteHost = "deineseite.de"
    Socket.RemotePort = 80
    Socket.Connect
    
    While Socket.State <> sckConnected
        DoEvents
    Wend
    
    Request = "GET ""/ordner/seite.php?username=" & txtUsername.Text
    Request = Request & "&password=" & txtPassword.Text
    Request = Request & """ HTTP/1.1"
    Socket.SendData Request & vbNewLine
    
    Request = "POST """
    For i = LBound(nArray) To UBound(nArray)
        Request = Request & "wert" & i & "=" & nArray(i) & "&"
    Next
    Request = Request & """"
    
    Socket.SendData Request & vbNewLine
    Socket.SendData vbNewLine
    Socket.CloseSocket
End Sub

An Steuerelementen brauchst du:
Textbox txtUsername
Textbox txtPassword
CommandButton cmdOk

ACHTUNG! DAS DING VERSENDET SO NOCH NIX, WEIL DEM ARRAY NIX ZUGEWIESEN IST!!!

Ich hab das nicht getestet, sollte aber gehen.

EDIT:

Ich habs jetzt doch mal getestet und der Request scheint fehlerhaft zu sein. Liegt daran, dass ich mich noch nicht großartig mit dem HTTP Protokoll beschäftigt hab. Da musst du mal bei Google schauen. Ansonsten gibts in VB noch ein Webbrowser Control, dass so Sachen übernimmt, aber das hat halt nicht jeder.