Code:
Imports System.IO, System.Net, System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Request As HttpWebRequest = CType(WebRequest.Create("http://s4.tanoth.de/user/login"), HttpWebRequest)
Request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
Request.KeepAlive = True
Request.Method = "GET"
Request.Timeout = 10000
Request.UserAgent = "Mozilla/5.0(Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.5 (.NET CLR 4.0.20506)"
Request.Referer = "http://s4.tanoth.de/user/login"
Request.ContentType = "application/x-www-form-urlencoded"
Request.CookieContainer = New CookieContainer()
Dim User = TextBox1.Text, Pwd = TextBox2.Text, Server = "4"
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
Dim Post As String = "server=" & Server & "&username=" & User & "&userpass=" & Pwd
' das wird gesendet
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()
If InStr(ServerResponse, "http://s4.tanoth.de/css/client.css") Then
Label3.Text = "Logged In"
Label3.ForeColor = Color.Green
Else
Label3.Text = "Logged Out"
Label3.ForeColor = Color.Red
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label3.ForeColor = Color.Red
End Sub
End Class