Private Sub Browser_Click()
 Dim edtPostData As String: edtPostData = "wpName=" & Benutzer.Name & _
   "&wpPassword="
 
    ReDim aByte(0) As Byte ' Array of bytes to hold data to post
    PackBytes aByte(), edtPostData
 
    Dim vPost As Variant
    vPost = aByte ' Assign the byte array to a VARIANT
    Dim vFlags As Variant
    Dim vTarget As Variant
    Dim vHeaders As Variant
    vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + _
      Chr(13)
    WebBrowser1.Navigate2 _
    "http://user:passwort@domain.de/index.php?title=Spezial:Userlogin&action=s" & _
    "bmitlogin", vFlags, vTarget, vPost, vHeaders

_____

Das beste Programm schreibt sich selbst.