Bonjour je vous présente un room pass word finder que j'ai fait d'abord je voudrais dire un GRAND merci à la synopsis qui à donné le code pour faire ceci, mais tout d'abord je voudrais savoir sa:
Le code source je ne l'ai pas trouvé tout seul, je l'ai prit à un autre programme mais j'en ai fait ma touche, sa compte comme un des mes programme ou sa reste un programme extérieur?
Bref passons:
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
J'ai installé un Label pour mettre le tutoriel et un Label pour le numéro de la room, j'ai installé un button et une image de fond, m'enfin bref les trucs basics quoi
Voici le code source, je ne l'ai pas encore posté car comme j'ai envie d'apprendre bien le VB, j'ai tout écrit sans C/C pour mieux retenir les fonctions, donc je voudrais aussi savoir si il n'y à pas de faute:
Voila n'hésiter pas les commentaire si c'est pour aider ;)
Le code source je ne l'ai pas trouvé tout seul, je l'ai prit à un autre programme mais j'en ai fait ma touche, sa compte comme un des mes programme ou sa reste un programme extérieur?
Bref passons:
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
J'ai installé un Label pour mettre le tutoriel et un Label pour le numéro de la room, j'ai installé un button et une image de fond, m'enfin bref les trucs basics quoi
Voici le code source, je ne l'ai pas encore posté car comme j'ai envie d'apprendre bien le VB, j'ai tout écrit sans C/C pour mieux retenir les fonctions, donc je voudrais aussi savoir si il n'y à pas de faute:
PHP:
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim s4proc As Process() = Process.GetProcessesByName("S4Client")
Dim modules4 As System.Diagnostics.ProcessModule = s4proc(0).MainModule
Dim baseaddr As Long = ReadLong("S4Client", modules4.BaseAddress + &H10E0EE8)
Dim firstadd As Long = ReadLong("S4Client", baseaddr + 4)
WriteLong("S4Client", baseaddr + 4, TextBox1.Text)
MsgBox("Maintenant, allez dans 'Créer une room play match' sur S4 et regarder le mot de passe dans le champ mot de passe :)")
End Sub
End Class
Voila n'hésiter pas les commentaire si c'est pour aider ;)