Also ich habe probleme bei einem Bot für das Browsergame Tenoth ... Tanoth Online
Also den Login bekomm ich schonmal per POST befhel hin doch dannn kommt das Problem ich will das er immer auf den Button Kämpfen und dann auf Start Klickt . das Problem ist jetzt ber der Postbefehl der bei dem Button Kämpfen kommt und zwar :
Mein Code bis jetzt der auch für den Login klappt ist :
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
So wie verarbeite ich bitte diesen POST Befehl kann mir da wer helfen ?
04.10.2010, 20:53
conrado
kann dir temper data empfehlen!
Supper plugin für FF
05.10.2010, 12:48
NavanBethrax
RE:
Hab ich auch , grad geguckt ^^
Aber mein Problem ist ja wie ich mit dem Poststring:
Kann mir denn niemand bei meinem Problem helfen ??
05.10.2010, 14:39
conrado
gib ma deine ICQ UIN via PN^^
Werde dir helfen^^
23.10.2010, 02:05
NavanBethrax
RE:
Hat denn niemand eine Idee ô.o
Brauche nur eine kleine hilfestellung o.o
MfG Navan
23.10.2010, 02:22
SFX
xml ?
23.10.2010, 04:05
NavanBethrax
RE:
Hattest du villeicht ein Sample oder so ?
Ist echt wichtig versuche für mich und meine Kollegen die dieses
Game in einer Gilde spielen einen Bot zu coden und bräuchte dringend hilfe :(
Bin für alles Dankbar wie z.B. den Vorposter aber habe nichts gefunden wennich z.B. XML und BOT und VB.Net oder so eingebe .
Der Login klappt ja aber ab da wo der Client ins spiel kommt klappt es nicht mehr so wie ich mir das vorstelle.