externer Login

]Imports System.Net, System.IO, System.Text.RegularExpressions
Public Class Form1
	Private Containa As CookieContainer = New CookieContainer
	Dim quell As String
	Dim wsUri As String
	Dim pageuri As Uri

	Private Function Req(ByVal Site As String, ByVal P As String) As String
    	Dim R As HttpWebRequest = HttpWebRequest.Create(Site)
    	R.Method = ""POST"
    	R.CookieContainer = Containa
    	R.AllowAutoRedirect = True
    	R.Headers("useragent") = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
    	R.ContentType = "application/x-www-form-urlencoded"
    	Dim Post As String = P
    	R.ContentLength = Post.Length
    	pageuri = R.RequestUri
    	Dim Writer As New StreamWriter(R.GetRequestStream(), System.Text.Encoding.Default)
    	Writer.Write(Post)
    	Writer.Close()

    	Dim Reader As New StreamReader(R.GetResponse.GetResponseStream())
    	Dim Response As String = Reader.ReadToEnd
    	Reader.Close()
    	quell = Response
    	Return Response

	End Function


	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	Dim Login As String = Req("http://www.Seite.de/Login", "Logindaten")
    	Dim m As Match = Regex.Match(quell, "src=\""([^""]+)""")
    	Dim worldSelectorUri As Uri = New Uri(m.Groups(1).Value)
    	wsUri = worldSelectorUri.ToString
    	TextBox1.Text = quell
    	Me.Text = pageuri.ToString
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    	Dim WorldSelector As String = Req(wsUri, "")  'Button 2 abhängig von Button 1, nicht nur wegen des Logins sondern auch wegen "wsUri"
    	TextBox1.Text = quell
    	Me.Text = pageuri.ToString
	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    	Dim Übersicht As String = Req("http://nächsteSeite", "")
    	TextBox1.Text = quell
    	Me.Text = pageuri.ToString
	End Sub

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    	Dim Übersicht As String = Req("http://unddieandereSeite", "")
    	TextBox1.Text = quell
    	Me.Text = pageuri.ToString
	End Sub

	Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    	Dim Übersicht As String = Req("http://Zielseite", "")
    	TextBox1.Text = quell
    	Me.Text = pageuri.ToString
	End Sub
End Class