externer Login

[_daniel4711]

Hi,

versuche seit Wochen verzweifelt einen externen Login für Desert Operations in Vb.Net zu basteln.
Alles Googlen hat bisher auch leider nicht zum Erfolg geführt.

Den einzigen brauchbaren Code den ich finden konnte ist dieser:

]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

Soweit so gut. Ich scheitere aber an den Links, welche da noch ersetzt werden müssen.
Wer DO kennt, ich komme mit diesem Code bis zur Auswahlseite der Welten, danach ist Schluß.

Kann mir bitte jemand helfen?

Gruß
Daniel