Restrictionare aplicatie doar pentru membrii unui forum

zachary1337 · August 6, 2014

Se poate sa faci un login form si la logare sa te loghezi cu un cont de pe un forum? deci daca nu ai cont pe un anumit forum nu te poti loga in program

PS : lucrez doar vb

Edited August 6, 2014 by zachary1337

Ganav · August 6, 2014

Da, poti. Trebuie sa stii doar ce mesaje afiseaza forumul atunci cand o logare s-a efectuat cu succes sau cand aceasta a esuat. Cu alte cuvinte cauti un string in pagina returnata de server-ul web: la o logare gresita(invalid user/pass) server-ul returneaza o pagina cu textul "Invalid username/password". Daca logarea se efectueaza cu succes atunci string-ul acesta nu este returnat in raspuns, deci combinatia user/pass este valida.

Poti folosi urmatorul cod(acesta este pentru un request fara parametrii POST/GET):


Imports System
Imports System.Net
Imports System.IO

Module Module1

    Sub Main()
        Dim sURL As String
        sURL = "http://www.forum.com"

        Dim wrGETURL As WebRequest
        wrGETURL = WebRequest.Create(sURL)

        Dim myProxy As New WebProxy("myproxy", 80)
        myProxy.BypassProxyOnLocal = True

        'wrGETURL.Proxy = myProxy
        wrGETURL.Proxy = WebProxy.GetDefaultProxy()

        Dim objStream As Stream
        objStream = wrGETURL.GetResponse.GetResponseStream()

        Dim objReader As New StreamReader(objStream)
        Dim linie As String = ""
        Dim i As Integer = 0

        Do While Not linie Is Nothing
            i += 1
            linie = objReader.ReadLine
            If Not linie Is Nothing Then
                ' Verificam daca logarea s-a efectuat cu succes sau nu
                If linie.Contains("Invalid username/password") then
                       Console.WriteLine("Logare invalida")
                End If
            End If
        Loop

        Console.ReadLine()

    End Sub

End Module

Edited August 6, 2014 by Ganav

askwrite · August 6, 2014

Poti face cu un webbrowser, setat pe hide, cum a spus si ganav, iei idul de la inputuri (user/parola/buton submit), denumesti inputurile tale din vb user/parola si faci asa (in eventul de la buton click):

webbrowser1.navigate("http://site.com")
webbrowser1.document.all("iduser").setattribute("value", user)
webbrowser1.document.all("idparola").setattribute("value", parola)
webbrowser1.document.all("idparola").invokemember("click")
if webbrowser1.documenttext.contains("mesaj pe care ti-l arata cand te-ai logat") Then
form2.show() // pui aici ce vrei sa faca daca e logat
else
msgbox("eroare") // pui aici ce vrei sa faca daca nu s-a logat
end if

Si asta e tot.

Eventual sa mai pui un delay inainte sa faca checkul dupa acel text.

zachary1337 · August 6, 2014

Poti face cu un webbrowser, setat pe hide, cum a spus si ganav, iei idul de la inputuri (user/parola/buton submit), denumesti inputurile tale din vb user/parola si faci asa (in eventul de la buton click):
Si asta e tot.
Eventual sa mai pui un delay inainte sa faca checkul dupa acel text.

asta am incercat si eu cu getlemenetby id :

WebBrowser1.Document.GetElementById(".... ").SetAttribute("value", TextBox1.Text)dar cum va sti programul daca are cont sau nu sa apara form2? daca intelegi ce vreau sa zic

askwrite · August 6, 2014

Tocmai am explicat mai sus,

webbrowser1.navigate("http://site.com")
webbrowser1.document.all("iduser").setattribute("v alue", user)
webbrowser1.document.all("idparola").setattribute( "value", parola)
webbrowser1.document.all("idparola").invokemember( "click")
if webbrowser1.documenttext.contains("mesaj pe care ti-l arata cand te-ai logat") Then
form2.show() // pui aici ce vrei sa faca daca e logat
else
msgbox("eroare") // pui aici ce vrei sa faca daca nu s-a logat
end if

zachary1337 · August 6, 2014

Object reference not set to an instance of an object. :@ ce are?

Private Sub NsButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NsButton1.Click

WebBrowser1.Navigate("http://royal.3xforum.ro/login.php")

WebBrowser1.Document.All("req_username").SetAttribute("value", TextBox1.Text)

WebBrowser1.Document.All("req_password").SetAttribute("value", TextBox2.Text)

WebBrowser1.Document.All("submit").InvokeMember("click")

If WebBrowser1.DocumentText.Contains("Logat cu succes !") Then

Form2.Show()

Else

MsgBox("Parola / ID , incorect")

End If

End Sub

daNNy.bv · August 6, 2014

if instr(webbrowser1.document.body.innerhtml.tostring,"succes")
form2.visible=true
else
messagebox.show("Mata-i grasa")
end if

incearca asa

zachary1337 · August 6, 2014

incearca asa

am reusit cu ask cu urmatorul cod

WebBrowser1.Navigate("http://royal.3xforum.ro/login.php")

WebBrowser1.Document.All("req_username").SetAttrib ute("value", TextBox1.Text)

WebBrowser1.Document.All("req_password").SetAttrib ute("value", TextBox2.Text)

WebBrowser1.Document.All("login").InvokeMember("c lick")

doar ca nu se intampla nimic cand apas "click" nu face request la pagina

Edited August 6, 2014 by zachary1337

askwrite · August 6, 2014

Nu se intampla nimic deoarece el are vreo n cuvinte "login" in sursa, si nu stie pe care sa-l interpreteze.

Nu mai stiu cum e in vb, gen cum e in php $string[1]

zachary1337 · August 6, 2014

am gasit codu asta pa gugal

WebBrowser1.Document.Forms.GetElementsByName("Search").Item(0).InvokeMember("submit")

askwrite · August 6, 2014

inloc de

WebBrowser1.Document.All("login").InvokeMember("click")

incearca asa

WebBrowser1.Document.Forms.GetElementsByName("login").Item(8).InvokeMember("click")

zachary1337 · August 6, 2014

inloc de
incearca asa

System.ArgumentOutOfRangeException was unhandled

Value of '8' is not valid for 'index'. 'index' should be between 0 and -1.

Parameter name: index

Byte-ul · August 6, 2014

Foloseste webrequests. Daca e vbulletin, VB.NET - vBulletin Login Module - Pastebin.com

zachary1337 · August 6, 2014

Foloseste webrequests. Daca e vbulletin, VB.NET - vBulletin Login Module - Pastebin.com

edit : am rezolvat , noroc cu vbforums

Edited August 6, 2014 by zachary1337

askwrite · August 6, 2014

Foloseste 3xforum, nu are access la nimic, nu ofera 3xforum.

(respectiv http://www.royal.3xforum.ro/), poate sa-l faca cum ai zis si tu cu webrequests, trebuie doar sa intercepteze geturile & posturile.

zachary1337 · August 6, 2014

Foloseste 3xforum, nu are access la nimic, nu ofera 3xforum.
(respectiv http://www.royal.3xforum.ro/), poate sa-l faca cum ai zis si tu cu webrequests, trebuie doar sa intercepteze geturile & posturile.

am reusit , se logheaza

WebBrowser1.Document.All("req_username").SetAttribute("value", TextBox1.Text)

WebBrowser1.Document.All("req_password").SetAttribute("value", TextBox2.Text)

WebBrowser1.Document.Forms("login").All("login").InvokeMember("click")

MsgBox("Logat cu succes !")

Form2.Show()

dar aici apare alta problema , ca orice id si pass bag imi apare form2

Byte-ul · August 6, 2014

am reusit
WebBrowser1.Document.All("req_username").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.All("req_password").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.Forms("login").All("login").InvokeMember("click")
MsgBox("Logat cu succes !")
Form2.Show()
dar aici apare alta problema , ca orice id si pass bag imi apare form2

pai normal :))

vezi si tu un text care apare pe site doar cand esti logat, verifica daca exista textu in webbrowser si daca exista, atunci pui form2.show

zachary1337 · August 6, 2014

pai normal
vezi si tu un text care apare pe site doar cand esti logat, verifica daca exista textu in webbrowser si daca exista, atunci pui form2.show

asta imi apare cand ma loghez , cum fac mai exact ?

Byte-ul · August 6, 2014

ceva de genu:

if browser.DocumentText.contains("Logare reusita") then

form2.show()

else

msgbox("logni esuat")

zachary1337 · August 6, 2014

imi arata doar msgbox si se logheaza dar nu imi mai arata form2

askwrite · August 6, 2014

Incearca sa faci cum ti-am dat prima oara:

webbrowser1.document.all("req_username").setattribute("value", user)
webbrowser1.document.all("req_password").setattribute( "value", parola)
webbrowser1.document.all("login").invokemember( "click")
if webbrowser1.documenttext.contains("Logare reusita") Then
form2.show() // pui aici ce vrei sa faca daca e logat
else
msgbox("eroare") // pui aici ce vrei sa faca daca nu s-a logat
end if

doar ca

webbrowser1.document.all("login").invokemember("click")

devine in

webbrowser1.document.forms("login").all("login").invokemember("click")

deci codul final va fi asa:

webbrowser1.document.all("req_username").setattribute("value", user)
webbrowser1.document.all("req_password").setattribute( "value", parola)
webbrowser1.document.forms("login").all("login").invokemember("click")
if webbrowser1.documenttext.contains("Logare reusita") Then
form2.show() // pui aici ce vrei sa faca daca e logat
else
msgbox("eroare") // pui aici ce vrei sa faca daca nu s-a logat
end if

zachary1337 · August 6, 2014

Incearca sa faci cum ti-am dat prima oara:
doar ca
devine in
deci codul final va fi asa:

nu vrea nici cum sa imi arate form2 mortu se logheaza si imi apare msgbox atat

WebBrowser1.Document.All("req_username").SetAttribute("value", TextBox1.Text)

WebBrowser1.Document.All("req_password").SetAttribute("value", TextBox2.Text)

WebBrowser1.Document.Forms("login").All("login").InvokeMember("click")

If WebBrowser1.DocumentText.Contains("Logare reusita.") Then

Form2.Show()

Else

MsgBox("eroare")

End If

askwrite · August 6, 2014

webbrowser1.document.all("req_username").setattribute("value", user)
webbrowser1.document.all("req_password").setattribute( "value", parola)
webbrowser1.document.forms("login").all("login").i nvokemember("click")
system.threading.thread.sleep(2000) // inseamna 2 secunde, o sa astepte 5 secunde inainte sa faca checkul.
if webbrowser1.documenttext.contains("Logare reusita") Then
form2.show() // pui aici ce vrei sa faca daca e logat
else
msgbox("eroare") // pui aici ce vrei sa faca daca nu s-a logat
end if

asa o sa-ti mearga sigur. (daca nu, mai umbla la sleep, incearca sa maresti timpul, vezi in cat timp dupa ce ai dat login, iti arata logare reusita si pui acolo.

Byte-ul · August 6, 2014

nu vrea nici cum sa imi arate form2 mortu se logheaza si imi apare msgbox atat
WebBrowser1.Document.All("req_username").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.All("req_password").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.Forms("login").All("login").InvokeMember("click")
If WebBrowser1.DocumentText.Contains("Logare reusita.") Then
Form2.Show()
Else
MsgBox("eroare")
End If

Uita-te in sursa si vezi cum e "Logare reusita" ala scris. Poate nu e chiar asa.

zachary1337 · August 6, 2014

Uita-te in sursa si vezi cum e "Logare reusita" ala scris. Poate nu e chiar asa.

am reusit , ma ajutat ask acum "finalu" =)) ) sa nu mai fac alt topic problema e ca dupa ce reuseste sa se logheze ramane automat logat pe site si cand intru dinou in program nu mai ma pot loga ca e deja logat :)) ma gandeam daca se poate un auto logout rapid dupa ce se logheaza ca nu vreau sa apelez la clear cookies sa le sterg la oameni din firefox ce au ei pe acol...

edit : uitati si codu

If WebBrowser1.DocumentText.Contains("Logout") Then

WebBrowser1.Document.Forms("Logout").All("Logout").InvokeMember("click")

WebBrowser1.Navigate("http://royal.3xforum.ro/login.php")

End If

Delay(1)

Application.DoEvents()

WebBrowser1.Document.All("req_username").SetAttribute("value", TextBox1.Text)

WebBrowser1.Document.All("req_password").SetAttribute("value", TextBox2.Text)

WebBrowser1.Document.Forms("login").All("login").InvokeMember("click")

Delay(1)

If WebBrowser1.DocumentText.Contains("Logare reusita.") Then

Form2.Show()

Me.Hide()

Else

MsgBox("Parola / ID , Invalid")

End If

Edited August 6, 2014 by zachary1337

Sign In

Restrictionare aplicatie doar pentru membrii unui forum

Recommended Posts

zachary1337

Ganav

askwrite

zachary1337

askwrite

zachary1337

daNNy.bv

zachary1337

askwrite

zachary1337

askwrite

zachary1337

Byte-ul

zachary1337

askwrite

zachary1337

Byte-ul

zachary1337

Byte-ul

zachary1337

askwrite

zachary1337

askwrite

Byte-ul

zachary1337

Join the conversation

Browse

Activity

Pages