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:
Code:
]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
Wer DO kennt, ich komme mit diesem Code bis zur Auswahlseite der Welten, danach ist Schluß.
Kann mir bitte jemand helfen?
Gruß
Daniel