Ciao, ora vedrete come implementare il login nel vostro programma.
Come esempio prenderò visual basic.

Innanzi tutto dovete trovare tre dati importanti:
-Nome casella password
-Nome casella username
-Nome tasto login

Come li trovo? Beh su google chrome basta andare nella home di italianhack, fare click destro sull'oggetto interessato (Casella o button) e cliccare "Ispeziona elemento" e nella riga evidenziata cercare costa sta "tra virgolette" subito dopo nome.

Es casella username:
<input type="text" class="textbox default-value" name="vb_login_username" id="navbar_username" size="25" accesskey="u" tabindex="101" value="Nome Utente" style="color: rgb(119, 119, 119); ">

Quello è ciò che ci interessa.

Ora nel nostro form inseriamo:
-Label x2
-Button x1
-TextBox x2
-WebBrowser x1

Rinominiamo i label in "Username:" e "Password:"
E il button in "Accedi"

E disponiamo il tutto in questo modo.

(Ingrandite il form e spostate il webbrowser, poi rimpicciolitelo in modo da rendere il browser non visibile)

Ora andiamo sotto "Public Class Form1" e scriviamo:

Codice:

Dim StatusLogin As String = "Unlogged"

Ora nell'evento form1_load scriviamo:

Codice:

WebBrowser1.Navigate("www.italianhack.org") 'Sito interessato
Button1.Enabled = False

Ora nell'evento WebBrowser1_DocumentCompleted (Doppio click sul browser):

Codice:

If StatusLogin = "Unlogged" then
    Button1.enabled = True

Ora dobbiamo vedere cosa esce nel sito quando sbagliamo password...
Su italianhack esce "Hai inserito un nome utente o una password non validi. Per favore inserisci i dettagli corretti e riprova. ".

Codice:

ElseIf StatusLogged = "Logged" then
if WebBrowser1.WebBrowser1.DocumentText.Contains("Hai inserito un nome utente o una password non validi." & _
    "Per favore inserisci i dettagli corretti e riprova.") then
    MsgBox("Dati inseriti non validi, riprovare.", MsgBoxStyle.Critical, "Errore login")
  else
   form2.show
   form1.hide
end if
end if

Dopo questo else dovete scrivere cosa deve accadere se tutto è andato a buon fine. In questo caso facciamo vedere il form2 e oscurare il form1

Ora andiamo nell'evento click del button1 e scriviamo:

Codice:

WebBrowser1.Document.GetElementById("vb_login_username").InnerText = TextBox1.text
WebBrowser1.Document.GetElementById("vb_login_username").InnerText = TextBox1.text
WebBrowser1.Document.GetElementById("loginbutton").InvokeMember("click")
StatusLogin = "Logged"

Guida completamente creata da @__]H[elRooS . La pubblicazione su altri forum/siti/blog è autorizzata se è seguita da crediti e fonti (Helroos e italianhack)

Quindi con questo programma potremmo collegarci a italianhack.

Originariamente Scritto da Mentalist

Quindi con questo programma potremmo collegarci a italianhack.

Si, ma ti connetti sul webbrowser...
Quindi poi controlli il webbrowser...

Con questi codici volendo si puo fare un bot... Oppure se vuoi fare in modo che un programma venga usato solo da membri del tuo forum =)

C'è solo un problema...
Ora vi mostro il codice:


Public Class Form1
Dim StatusLogin As String = "Unlogged"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("www.italianhack.org") 'Sito interessato
Button1.Enabled = False
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
If StatusLogin = "Unlogged" Then
Button1.Enabled = True
ElseIf StatusLogged = "Logged" Then
If WebBrowser1.DocumentText.Contains("Hai inserito un nome utente o una password non validi." & _
"Per favore inserisci i dettagli corretti e riprova.") Then
MsgBox("Dati inseriti non validi, riprovare.", MsgBoxStyle.Critical, "Errore login")
Else
Form2.Show()
Me.Hide()
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("vb_login_user name").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("vb_login_user name").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("loginbutton") .InvokeMember("click")
StatusLogin = "Logged"
End Sub
End Class


StatusLogged = "Logged" mi dice che il "Nome StatusLogged non è dichiarato". Come risolvo?

Originariamente Scritto da DaryoBoy

C'è solo un problema...
Ora vi mostro il codice:


Public Class Form1
Dim StatusLogin As String = "Unlogged"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("www.italianhack.org") 'Sito interessato
Button1.Enabled = False
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
If StatusLogin = "Unlogged" Then
Button1.Enabled = True
ElseIf StatusLogged = "Logged" Then
If WebBrowser1.DocumentText.Contains("Hai inserito un nome utente o una password non validi." & _
"Per favore inserisci i dettagli corretti e riprova.") Then
MsgBox("Dati inseriti non validi, riprovare.", MsgBoxStyle.Critical, "Errore login")
Else
Form2.Show()
Me.Hide()
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("vb_login_user name").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("vb_login_user name").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("loginbutton") .InvokeMember("click")
StatusLogin = "Logged"
End Sub
End Class


StatusLogged = "Logged" mi dice che il "Nome StatusLogged non è dichiarato". Come risolvo?

Scusa ho sbagliato a scrivere, è StatusLogin...

Potreste anche risolverli da soli certi problemini eh..

Originariamente Scritto da __]H[elRooS

Scusa ho sbagliato a scrivere, è StatusLogin...

Potreste anche risolverli da soli certi problemini eh..

Non essendo esperto come te non so come risolverli, per questo ho chiesto in questo topic.

Originariamente Scritto da DaryoBoy

Non essendo esperto come te non so come risolverli, per questo ho chiesto in questo topic.

Io esperto?
Io non so manco principiante ._.

Comunque ok, all'inizio io non riuscivo a far funzionare un'orologio perchè non avevo inserito "Timer1.start"