[TuT]Logowanie na strone i inne DrakOrbit

IICwaniaKII · 19 Sierpnia 2012

Oto aplikacja nad którą poświęciłem kilka godzina 3 czy 4 z przerwami nie chce mi się jej dalej pisać więc umieszczam ją na forum morze się komuś przyda. Co potrafi?

-Możliwość kupna amunicji

-Miałem zrobić auto licytowanie na handlu ale nie dokończyłem i w rezultacie jest napisane w 50%

-Logowanie na mapę i na stronę

Dim postData As String = "loginForm_default_username=" & login & "&loginForm_default_password=" & haslo & "&loginForm_default_login_submit=Logowanie"
 Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://www.darkorbit.pl/?locale=pl&aid=270&aip=SB"), HttpWebRequest)
 Dim tempCookies As New CookieContainer
 Dim encoding As New UTF8Encoding
 Dim byteData As Byte() = encoding.GetBytes(postData)
 postReq.Method = "POST"
 postReq.KeepAlive = True
 postReq.ContentType = "application/x-www-form-urlencoded"
 postReq.Referer = "http://www.darkorbit.pl/?locale=pl&aid=270&aip=SB"
 postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
 postReq.ContentLength = byteData.Length
 Dim postreqstream As Stream = postReq.GetRequestStream()
 postreqstream.Write(byteData, 0, byteData.Length)
 postreqstream.Close()
 Dim postresponse As HttpWebResponse
 postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
 tempCookies.Add(postresponse.Cookies)
 logincookie = tempCookies
 Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
 Source1 = postreqreader.ReadToEnd
 Dim szukajod As Integer = Source1.IndexOf(serwer)
 Source1 = Source1.Remove(0, szukajod)
 szukajod = Source1.IndexOf("'")
 Source1 = Source1.Remove(szukajod)
 Dim Req As HttpWebRequest = DirectCast(WebRequest.Create("http://" & Source1), HttpWebRequest)
 Req.CookieContainer = tempCookies
 Dim response As HttpWebResponse
 response = DirectCast(Req.GetResponse(), HttpWebResponse)
 Dim reqreader As New StreamReader(response.GetResponseStream())
 SID = reqreader.ReadToEnd
 login = SID
 szukajod = login.IndexOf("currentUsername : '")
 login = login.Remove(0, szukajod + 20)
 szukajod = login.IndexOf("'")
 login = login.Remove(szukajod)
 szukajod = SID.IndexOf("dosid=")
 SID = SID.Remove(0, szukajod + 6)
 szukajod = SID.IndexOf("'")
 SID = SID.Remove(szukajod)

Na pewno komuś jakaś funkcja się przyda.

http://www.mediafire...bs9srbzs4iu7c3u

https://www.virustot...sis/1336834675/

C#, szybciej, lepiej, bez webbrowsera(nie sprawdzałem Twojego projektu bo nie mam VB.NET'a Studio ale podejrzewam że to zastosowałeś)

http://www.mpcforum....it-httprequest/

Nie stosowałem webbrowsera a i do takich programów VB.NET jest idealny a od C# różni się tym że jest prostszy widać że nie masz o nim źelonego pojęcia