Hallo,
nachdem ich beim versuch einen Darkorbit Bot zu programmieren merken musste das das TCP Protokoll ziehmlich verschickt sein kann wenn man es nicht beherrscht dachte ich mir ich versuche mich mal an etwas einfacherem und da ich leicht Darkorbit besessen bin dachte ich ich bastel mal einen Bot zum verklicken....
Nun gesagt getan ( oder auch nicht)...
Ich habe die Packete gesnifft das mit dem TCP so gecodet wie in vielen Tutorials beschrieben doch es geht irgentwie immer noch nicht.
Mein Code zum versenden ist bisher folgender:
Quote:
Try
Dim Server As String = "62.146.191.99"
Dim Port As Int32 = 80
Dim client As New TcpClient(Server, Port)
Dim message As String = "GET /flashinput/galaxyGates.php?userID=" & TextBox_UserID.Text & "&action=energy&sid=" & TextBox_DosID.Text & "&sample=1 HTTP/1.1..Host: de3.darkorbit.bigpoint.com..User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.10) Gecko/20100914 AskTbTRL2/3.8.0.12304 Firefox/3.6.10 ( .NET CLR 3.5.30729; .NET4.0E)..Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8..Accept-Language: de..Accept-Encoding: gzip,deflate..Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7..Keep-Alive: 115..Connection: keep-alive..Cookie: aid=40; acr=254; ltt_cid=ZikHCN1Cg75kNBYFV0yK4TAcTJmwOD7z; __utma=84043532.1253663574.1286814187.1287400807.1 287407539.14; __utmz=84043532.1287407539.14.24.utmcsr=40|utmccn= (not+set)|utmcmd=keyword; ga_UA-1848713-1_a=1.812921345.1286814188.1287400807.1287407540.1 4; ga_UA-1848713-1_z=1.1286814188.1.1.utmcsr=(direct)|utmccn=(direc t)|utmcmd=(none); ga_UA-17685913-1_a=1.406031340.1286814188.1287400807.1287407540.1 4; __bpid=477be785uJ2uyjqXkRnqtM0i2kIfmpSA; __utma=147070242.226363074.1286890628.1286890628.1 286890628.1; __utmz=147070242.1286890628.1.1.utmcsr=0|utmccn=(n ot+set)|utmcmd=(not+set); GameAPILayerCloseV2=a%3A1%3A%7Bi%3A41%3Bi%3A130573 9364%3B%7D; base_domain_ec5234e2c6315ac146f072b124f32bed=bigpo int.com; bp5sid=46a03d7dce49a4b4319c152c921e05cc; dosid=" & TextBox_DosID.Text & "; aig=254; fbsetting_ec5234e2c6315ac146f072b124f32bed=%7B%22c onnectState%22%3A2%2C%22oneLineStorySetting%22%3A3 %2C%22shortStorySetting%22%3A3%2C%22inFacebook%22% 3Afalse%7D..."
Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)
Dim stream As NetworkStream = client.GetStream()
stream.Write(data, 0, data.Length)
data = New [Byte](256) {}
Dim responseData As [String] = [String].Empty
Dim bytes As Int32 = stream.Read(data, 0, data.Length)
responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
MsgBox("angekommen ist: " & responseData)
stream.Close()
client.Close()
Catch ex As Exception
MsgBox("nicht geklappt")
End Try
|