Imports System.IO, System.Net, System.Text
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim User = "Klon", Pwd = "Password",[color=#FF0000] auth_key = "880ea6a14ea49e853634fbdc5015a024"[/color]
        Dim cookies As CookieContainer
        Dim Request As HttpWebRequest = CType(WebRequest.Create("https://domain.de/index.php?app=core&module=global&section=login"), HttpWebRequest)
        Request.Method = "POST"
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7"
        Request.CookieContainer = cookies
        Dim Post As String = "auth_key=" & User & "ips_username=" & Pwd & "&ips_password=" & "&rememberMe=1"
        Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
        Request.ContentLength = byteArray.Length
        Dim DataStream As Stream = Request.GetRequestStream()
        DataStream.Write(byteArray, 0, byteArray.Length)
        DataStream.Close()
        Dim Response As HttpWebResponse = Request.GetResponse()
        DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        DataStream.Close()
        Response.Close()
        TextBox3.Text = ServerResponse

    End Sub
End Class