Zitat:
Zitat von UT13CoinsPS3 Beitrag anzeigen
naja bei einem frischangemeldetem user mit seinen 8 beiträgen und einem so krassen namen wie "ProgRammer-X" wundert mich das nicht. bin mir sicher das du auch über wasser gehen kannst und deine haustiere reden können.
fakt ist, dass es weit mehr als eine zeile ist, die geändert werden MUSS. und das wir im gegensatz zu solchen neandertalern der neuzeit, wie du es eine rbist, rein gar keinen code von jemand anderen übernommen haben. sondern alles von grund auf neu und selber geschrieben haben. was meinste, warum es die ersten 2 monate keinen autobuyer gab? obwohl der code schon ewig auf se7ensins public war? weil er völlig fehlerhaft und somit unbrauchbar ist. die meisten spezies haben den code genommen und versucht darauf etwa aufzubauen. irgendwann haben sie dann gemerkt, dass es nicht geht
und plötlich kurz nachdem unser autobuyer auf dem markt kam, gab es auch noch ein paar andere. die haargenau unsere suche benutzten. aber kein problem, diese können wir jederzeit deaktivieren. wir warten ja nur darauf, dass jemand seine geklaute version hier verkaufen will
Wer ist bitte so blöd und baut eine Suche von euch ein, die Verbindung zu eurem Server hält?!
Ich glaube eurer wurde in Visual C++ 8 geschrieben oder?
Vielleicht gibt es Converter, dann könnt ihr den Code hier verwenden, der nach wie vor suchen / kaufen kann:
Code:
Public Sub cardBid(ByVal tradeId As String, ByVal amount As String)
Try
Dim postData As String = "{" & Chr(34) & "bid" & Chr(34) & ":" & amount & "}"
Dim request As WebRequest = WebRequest.Create("https://utas.s2.fut.ea.com/ut/game/fifa13/trade/" & tradeId & "/bid")
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
request.ContentType = "application/json"
request.Headers.Add("Cookie", CachePhishing)
request.Headers.Add("X-UT-SID", CacheXUTSID)
request.Method = "PUT"
request.ContentLength = byteArray.Length
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()
Dim response As WebResponse = request.GetResponse()
dataStream = response.GetResponseStream()
dataStream.Close()
response.Close()
FUTSQL.WriteStatus(AccountNr, "Bought Card")
Catch ex As Exception
FUTSQL.WriteStatus(AccountNr, "Error buying card!")
End Try
End Sub
Code:
Public Function cardSearch(ByVal criteria As String)
Dim postreq As HttpWebRequest = HttpWebRequest.Create("https://utas.s2.fut.ea.com/ut/game/fifa13/auctionhouse?" & criteria)
postreq.ContentType = "application/json"
postreq.Headers.Add("Cookie", CachePhishing)
postreq.Headers.Add("X-UT-SID", CacheXUTSID)
Try
Dim postresponse As HttpWebResponse = postreq.GetResponse()
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd
Return thepage
Catch ex As System.Net.WebException
Login()
End Try
End Function
Und voilà ... Ihr könnt euren Kunden heute noch ein Update präsentieren...