![[VB] bekomm keine cookies mehr](https://www.elitepvpers.com/forum/iconimages/net-languages/vb-bekomm-keine-cookies-mehr_ltr.gif){kind=small}
ich hab mal mein Ogame Bot in option strict on nachgebastelt. Nun geht der login noch aber der Ausbau der Farriken nicht mehr.
Alter code:
PHP Code:
Dim bla As CookieContainer
Dim logincookie As CookieContainer
Dim r_tempcookie As CookieContainer = p_POST("http://ogame.de/main/login", "kid=&uni=" & Server & ".ogame.de&login=" & Username & "&pass=" & Passwort & "", bla)
logincookie = r_tempcookie
Dim s_response As String = WebRPOST("http://" & Server & ".ogame.de/game/reg/login2.php?", "login=" & Username & "&pass=" & Passwort & "&kid=&v=2", r_tempcookie)
'Navigieren auf die Resourcen Seite/Wirtschaft/Fabriken
s_response = WebRPOST("http://uni101.ogame.de/game/index.php?page=resources", "", r_tempcookie)
Private Function WebRPOST(ByVal Url As String, ByVal post As String, ByVal tempcookie As CookieContainer)
Dim Request As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Request.UserAgent = " Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"
Request.CookieContainer = logincookie
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()
'My.Computer.FileSystem.WriteAllText(AccountPfad & "\bla.html", ServerResponse, 1)
Return ServerResponse
End Function
Private Function p_POST(ByVal Url As String, ByVal s_Post As String, ByVal logincookie As CookieContainer)
Dim Request As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
Dim tempcookie As New CookieContainer
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Request.UserAgent = " Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"
Request.Referer = "http://uni101.ogame.de/game/index.php?page=resources"
Request.CookieContainer = logincookie
Dim Post As String = s_Post
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()
' My.Computer.FileSystem.WriteAllText(AccountPfad & "\bla.html", ServerResponse, 1)
Return tempcookie
End Function
Dim s_resourcenresponse As String = WebRPOST("http://" & server & ".ogame.de/game/index.php?page=resources", "", bla)
Dim token As String = _token(s_resourcenresponse, "<input type='hidden' name='token' value='", "' />")
p_POST("http://" & server & ".ogame.de/game/index.php?page=resources", "token=" & token & "&modus=1&type=4", logincookie)
Neuer code:
PHP Code:
Dim r_tempcookie As CookieContainer = p_POST("http://ogame.de/main/login", "kid=&uni=" & _server(Server) & ".ogame.de&login=" & Accountname & "&pass=" & Passwort & "", New CookieContainer)
logincookie = r_tempcookie
Dim s_response As String = WebRPOST("http://" & _server(Server) & ".ogame.de/game/reg/login2.php?", "login=" & Accountname & "&pass=" & Passwort & "&kid=&v=2", logincookie)
frmOBot.rtbLog.Text &= "[" & TimeOfDay & "] Account: [" & Accountname & "] wird eingeloggt..." & vbLf
s_response = WebRPOST("http://" & _server(Server) & ".ogame.de/game/index.php?page=resources", "", logincookie)
Public Function WebRPOST(ByVal Url As String, ByVal post As String, ByVal tempcookie As CookieContainer) As String
Dim Request As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Request.UserAgent = " Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"
Request.CookieContainer = tempcookie
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 = CType(Request.GetResponse(), HttpWebResponse)
DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
'My.Computer.FileSystem.WriteAllText(AccountPfad & "\bla.html", ServerResponse, 1)
Return ServerResponse
End Function
Public Function p_POST(ByVal Url As String, ByVal s_Post As String, ByVal logincookie As CookieContainer) As CookieContainer
Dim Request As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
Dim tempcookie As New CookieContainer
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Request.UserAgent = " Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"
Request.Referer = "http://" & _server(Server) & ".ogame.de/game/index.php?page=resources"
Request.CookieContainer = tempcookie
Dim Post As String = s_Post
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 = CType(Request.GetResponse(), HttpWebResponse)
DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
My.Computer.FileSystem.WriteAllText(AccountPfad & "\bla2.html", ServerResponse, True)
Return tempcookie
End Function
Dim s_resourcenresponse As String = WebRPOST("http://" & server & ".ogame.de/game/index.php?page=resources", "", logincookie)
Dim token As String = _token(s_resourcenresponse, "<input type='hidden' name='token' value='", "' />")
p_POST("http://" & server & ".ogame.de/game/index.php?page=resources", "token=" & token & "&modus=1&type=4", logincookie)
Und sorry für meinen Programmierstil. Ich probiere zu viel und dann sieht das so aus. Wird alles am ende schön aufgeräumt.
Das lustige dabei ist, es ging mit dem Cookie(alter Code) in bla der leer zu sein scheint. Und wenn ich beim neuen code leere cookies mache gehts nicht. Irgend was ist da los. Vllt ist auch iwas mit den hin und her der cookies los. Aber kann mir da mal wer durch helfen?
MfG Ludder231
