[PYTANIE]Jak zrobic program do logowania sie przez strone

DrexonPl · 8 Grudnia 2012

witam chcialbym zrobic program do logowania sie przez strone,

ze ten program sprawdza czy jest te konto i sie loguje na nie i wyskakuje nowe okienko.

sry za ort.

8 Grudnia 2012

2 tematy niżej?

DrexonPl · 8 Grudnia 2012

nie oto mi chodzilo

nie loguje sie przez webbrowser

IICwaniaKII · 8 Grudnia 2012

Tu masz kod funkcji wysyłającej procedurę post.

Function Logowanie(ByVal login As String, ByVal haslo As String)

Dim kodstrony As String

Dim postData As String = "login=" & login & "&password=" & haslo

Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("adres strony"), 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 = "adres strony"

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())

kodstrony = postreqreader.ReadToEnd 'źródło strony

Return kodstrony

End Function

DrexonPl · 8 Grudnia 2012

co mam za importowac

Tu masz kod funkcji wysyłającej procedurę post.

Function Logowanie(ByVal login As String, ByVal haslo As String)

Dim kodstrony As String

Dim postData As String = "login=" & login & "&password=" & haslo

Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("adres strony"), 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 = "adres strony"

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())

kodstrony = postreqreader.ReadToEnd 'źródło strony

Return kodstrony

End Function

co mam za importowac

Tu masz kod funkcji wysyłającej procedurę post.

Function Logowanie(ByVal login As String, ByVal haslo As String)

Dim kodstrony As String

Dim postData As String = "login=" & login & "&password=" & haslo

Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("adres strony"), 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 = "adres strony"

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())

kodstrony = postreqreader.ReadToEnd 'źródło strony

Return kodstrony

End Function

co mam za importowac

IICwaniaKII · 8 Grudnia 2012

Imports System.Net

8 Grudnia 2012

i System.IO

DrexonPl · 17 Grudnia 2012

#refresh

Sunnyline2 · 17 Grudnia 2012

#refresh

@UP masz gotowe ??

Imports System.Net
Imports System.IO

Dim logincookie As CookieContainer

Function budujratusz()
 Dim serwer As String = NumericUpDown1.Value
 Dim postData As String = ""
 Dim tempCookies As New CookieContainer
 Dim encoding As New UTF8Encoding
 Dim byteData As Byte() = encoding.GetBytes(postData)

 Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://pl" & serwer & ".plemiona.pl/game.php?village=213561&ajaxaction=upgrade_building&h=8621&type=main&screen=main&id=main&force=1&destroy=0&source=213561"), HttpWebRequest)
 postReq.Method = "POST"
 postReq.KeepAlive = True
 postReq.CookieContainer = tempCookies
 postReq.ContentType = "application/x-www-form-urlencoded"
 postReq.Referer = "http://pl" & serwer & ".plemiona.pl/game.php?village=213561&ajaxaction=upgrade_building&h=8621&type=main&screen=main&id=main&force=1&destroy=0&source=213561"
 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())
 Dim thepage As String = postreqreader.ReadToEnd
End Function

postData wyciągasz charlesem, ja usunąłem bo przez to cudo można wbić na konto :P

Teraz lajkuj bo działa

DrexonPl · 20 Grudnia 2012

UTF8Encoding error

@UP masz gotowe ??

Imports System.Net
Imports System.IO

Dim logincookie As CookieContainer

Function budujratusz()
 Dim serwer As String = NumericUpDown1.Value
 Dim postData As String = ""
 Dim tempCookies As New CookieContainer
 Dim encoding As New UTF8Encoding
 Dim byteData As Byte() = encoding.GetBytes(postData)

 Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://pl" & serwer & ".plemiona.pl/game.php?village=213561&ajaxaction=upgrade_building&h=8621&type=main&screen=main&id=main&force=1&destroy=0&source=213561"), HttpWebRequest)
 postReq.Method = "POST"
 postReq.KeepAlive = True
 postReq.CookieContainer = tempCookies
 postReq.ContentType = "application/x-www-form-urlencoded"
 postReq.Referer = "http://pl" & serwer & ".plemiona.pl/game.php?village=213561&ajaxaction=upgrade_building&h=8621&type=main&screen=main&id=main&force=1&destroy=0&source=213561"
 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())
 Dim thepage As String = postreqreader.ReadToEnd
End Function

postData wyciągasz charlesem, ja usunąłem bo przez to cudo można wbić na konto :P

Teraz lajkuj bo działa

error

UTF8Encoding

error

DrexonPl · 20 Grudnia 2012

dobra powiem to inaczej

że rejstrujesz sie na stronce swojej

potem mozesz sie logowac w programie

czyli program sprawdza na tej stronce czy jest te konto

czyli podajesz nazwe i haslo do textboxa

(czyli program sprawdza na tej stronce czy jest te konto)

i otwiera sie form2.

wiem błędy

20 Grudnia 2012

Nie obchodzi mnie do czego to wykrzystasz. Nie umiesz przerobić tak prostego kodu więc nie posiądziesz rozwiązania.

DrexonPl · 21 Grudnia 2012

wtf??

taki mądry to napisz caly kod sam i go wstaw tutaj.

21 Grudnia 2012

wtf??

taki mądry to napisz caly kod sam i go wstaw tutaj.

Jak napisałem wyżej nie licz na gotowca.

DrexonPl · 21 Grudnia 2012

Jak napisałem wyżej nie licz na gotowca.

no to like nie dostaniesz ale dostaniesz reporta no chyba , ze dasz gotowca

Imports System.Text

zapomniales

DrexonPl · 21 Grudnia 2012

Jak napisałem wyżej nie licz na gotowca.

no to like nie dostaniesz ale dostaniesz reporta no chyba , ze dasz gotowca

JestemSlepy · 21 Grudnia 2012

Gościu, nie potrafisz się nawet poprawnie wypowiedzieć, na dodatek reportów to już w chuj powinieneś dostać za spam więc lepiej nie gróź innym reportami. Poza tym, tobie się chyba wydaje, że każdy użytkownik który potrafi to zrobić MUSI Ci pomóc i na dodatek myślisz, że robisz wielką łaskę dając komuś Like`a. Sorry, ale musiałem się wypowiedzieć - po prostu było to silniejsze ode mnie.

Tak, teraz możesz/możecie zacząć mnie hejtować, że nic nie wniosłem do tematu. Chcesz, reportuj - zawsze jakaś nowość.

DrexonPl · 27 Grudnia 2012

chodzi mi o httpwebrequest

DrexonPl · 28 Grudnia 2012

#refresh

Symeg · 28 Grudnia 2012

Przecież już dostałeś rozwiązanie. Naucz się języka i przerób wg. własnych potrzeb.

DrexonPl · 29 Grudnia 2012

httpwebrequest

DrexonPl · 2 Marca 2013

Tu masz kod funkcji wysyłającej procedurę post.

Function Logowanie(ByVal login As String, ByVal haslo As String)

Dim kodstrony As String

Dim postData As String = "login=" & login & "&password=" & haslo

Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("adres strony"), 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 = "adres strony"

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())

kodstrony = postreqreader.ReadToEnd 'źródło strony

Return kodstrony

End Function

jak wywołac tą funkcje

Casper · 2 Marca 2013

Normalnie, bro. Jak każdą inną.

DrexonPl · 2 Marca 2013

Normalnie, bro. Jak każdą inną.

tej sie nieda normalnie

jak jest taka da sie:

Function budujratusz()

a jak taka nie:

Function Logowanie(ByVal login As String, ByVal haslo As String)

2 Marca 2013

tej sie nieda normalnie

jak jest taka da sie:

Function budujratusz()

a jak taka nie:

Function Logowanie(ByVal login As String, ByVal haslo As String)

Bo musisz podać argumenty Logowanie("abc", "def").

Zaloguj się

👋 Witaj na MPCForum!

[PYTANIE]Jak zrobic program do logowania sie przez strone

Rekomendowane odpowiedzi

Gość

Gość

Gość

Gość

Gość

Gość

Gość

Gość

Gość

Gość

Zarchiwizowany