M
Membre supprimé 245833
Bonjour tout le monde.
Aujourd'hui je vous partage un tuto qui ma été proposé par Evaelis pour faire mon bypass S4League.
Donc aujourd'hui je vais vous apprendre à faire un programme qui Suspend/Resume un processus, avec la liste des process et de les kills.
Donc il nous faut:
Microsoft Visual Basic
Et c'est tout ;)
Tutoriel:
On va mettre 3 Button:
-Button1 : Suspend
-Button2 : Suspend
-Button3 : ProcessList
On va mettre 2 PictureBox:
-PictureBox1 : BackColor = Red, Image = S4League
-PictureBox2 : BackColor = Red, Image = HGWC
On va mettre 4 Label:
-Label1 : "Status:"
-Label2 : "Non suspend" & ForeColor = Red
-Label3 : "Status:"
-Label4 : "Non suspend" & ForeColor = Red
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
On va rajouter une 2ème Form:
On va mettre 1 ListBox
-ListBox1 : Sorted = True
On va mettre 4 Button:
-Button1 : "Kill Process"
-Button2 : "Suspend"
-Button3 : "Refresh"
-Button4 : "Resume"
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
On va rajouter un module, ca va nous servir pour les fonctions resumeprocess et suspendprocess.
On va mettre ce code:
On devra mette des declare functions ! Voilà les functions à déclarer:
On a besoin de mettre 2 Sub ! SuspendProcess et ResumeProcess, donc je vous donne le code:
Alors maintenant on veut suspend le process S4Client.exe donc on à besoin de ce code:
Et on va mettre ce code:
Double clique sur la Form2 pour avoir un FormLoad.
Donc on veut que la listbox à comme items les process en cours.
Donc on a besoin de ce code:
Et on a besoin de sa:
Donc la on a encore besoin de suspend et resume.
Donc en haut de tout les codes(En dessous de Public Class2):
On veut refresh la listbox donc:
Aujourd'hui je vous partage un tuto qui ma été proposé par Evaelis pour faire mon bypass S4League.
Donc aujourd'hui je vais vous apprendre à faire un programme qui Suspend/Resume un processus, avec la liste des process et de les kills.
Donc il nous faut:
Microsoft Visual Basic
Et c'est tout ;)
Tutoriel:
On va mettre 3 Button:
-Button1 : Suspend
-Button2 : Suspend
-Button3 : ProcessList
On va mettre 2 PictureBox:
-PictureBox1 : BackColor = Red, Image = S4League
-PictureBox2 : BackColor = Red, Image = HGWC
On va mettre 4 Label:
-Label1 : "Status:"
-Label2 : "Non suspend" & ForeColor = Red
-Label3 : "Status:"
-Label4 : "Non suspend" & ForeColor = Red
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
On va rajouter une 2ème Form:
On va mettre 1 ListBox
-ListBox1 : Sorted = True
On va mettre 4 Button:
-Button1 : "Kill Process"
-Button2 : "Suspend"
-Button3 : "Refresh"
-Button4 : "Resume"
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
On va rajouter un module, ca va nous servir pour les fonctions resumeprocess et suspendprocess.
On va mettre ce code:
Revenons à la Form1 !Public Enum ThreadAccess As Integer
TERMINATE = (&H1)
SUSPEND_RESUME = (&H2)
GET_CONTEXT = (&H8)
SET_CONTEXT = (&H10)
SET_INFORMATION = (&H20)
QUERY_INFORMATION = (&H40)
SET_THREAD_TOKEN = (&H80)
IMPERSONATE = (&H100)
DIRECT_IMPERSONATION = (&H200)
End Enum
On devra mette des declare functions ! Voilà les functions à déclarer:
Maintenant le plus important !Private Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As Long) As Long
Private Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As Long) As Long
Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As UInteger) As IntPtr
Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
On a besoin de mettre 2 Sub ! SuspendProcess et ResumeProcess, donc je vous donne le code:
Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
For Each t As ProcessThread In process.Threads
Dim th As IntPtr
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
If th <> IntPtr.Zero Then
SuspendThread(th)
CloseHandle(th)
End If
Next
End Sub
Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
For Each t As ProcessThread In process.Threads
Dim th As IntPtr
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
If th <> IntPtr.Zero Then
ResumeThread(th)
CloseHandle(th)
End If
Next
End Sub
Alors maintenant on veut suspend le process S4Client.exe donc on à besoin de ce code:
Explications:If Button1.Text = "Suspend" Then
Dim game As Process() = Process.GetProcessesByName("S4Client")
SuspendProcess(game(0))
PictureBox1.BackColor = Color.Green
Label2.ForeColor = Color.Green
Label2.Text = "Suspend"
Button1.Text = "Resume"
Else
Dim game As Process() = Process.GetProcessesByName("S4Client")
ResumeProcess(game(0))
PictureBox1.BackColor = Color.Red
Label2.ForeColor = Color.Red
Label2.Text = "Pas suspend"
Button1.Text = "Suspend"
End If
-Si le button1.texte = "Suspend" Alors
Game = un process = Process.getprocessbyname("S4Client") (Ici on dit que Game = le process S4Client.exe)
Après on dit SuspendProcess(game(0)) (On va suspend S4Client)
Après c'est simple :)
ResumeProcess(game(0)) (On va resume S4Client)
Maintenant on va double clique sur Button2:Game = un process = Process.getprocessbyname("S4Client") (Ici on dit que Game = le process S4Client.exe)
Après on dit SuspendProcess(game(0)) (On va suspend S4Client)
Après c'est simple :)
Sinon
Game = un process = Process.getprocessbyname("S4Client") (Ici on dit que Game = le process S4Client.exeResumeProcess(game(0)) (On va resume S4Client)
Et on va mettre ce code:
Explication:If Button2.Text = "Suspend" Then
Dim game As Process() = Process.GetProcessesByName("HGWC")
SuspendProcess(game(0))
PictureBox2.BackColor = Color.Green
Label3.ForeColor = Color.Green
Label3.Text = "Suspend"
Button1.Text = "Resume"
Else
Dim game As Process() = Process.GetProcessesByName("HGWC")
ResumeProcess(game(0))
PictureBox2.BackColor = Color.Red
Label3.ForeColor = Color.Red
Label3.Text = "Pas suspend"
Button2.Text = "Suspend"
End If
Même Explication qu'en haut
Maintenant on veut voir la liste des process ! Donc double clique sur Button3:Form2.Show()
Fini pour la Form1. Passons à la Form2
Double clique sur la Form2 pour avoir un FormLoad.
Donc on veut que la listbox à comme items les process en cours.
Donc on a besoin de ce code:
En français:For Each p As Process In Process.GetProcesses
ListBox1.Items.Add(p.ProcessName.ToString)
Next
Maintenant double clique sur le button1 pour kill un process select.Pour chaque p Comme Process Dans Process.GetProcesses
ListBox1.Items.Add (p.ProcessName.ToString)
Suivant
Et on a besoin de sa:
On dit que myProcesse est un process et on veut le process selectionné dans la listbox1.Dim myProcesses As Process() = Process.GetProcessesByName(ListBox1.SelectedItem)
Dim myProcess As Process
For Each myProcess In myProcesses
myProcess.Kill()
Next myProcess
Donc la on a encore besoin de suspend et resume.
Donc en haut de tout les codes(En dessous de Public Class2):
Maintenant qu'on a mit ce code qui va nous servir pour Suspend et Resume, on double clique sur Button2:Private Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As Long) As Long
Private Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As Long) As Long
Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As UInteger) As IntPtr
Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
For Each t As ProcessThread In process.Threads
Dim th As IntPtr
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
If th <> IntPtr.Zero Then
SuspendThread(th)
CloseHandle(th)
End If
Next
End Sub
Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
For Each t As ProcessThread In process.Threads
Dim th As IntPtr
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
If th <> IntPtr.Zero Then
ResumeThread(th)
CloseHandle(th)
End If
Next
End Sub
Dim game As Process() = Process.GetProcessesByName(ListBox1.SelectedItem)
SuspendProcess(game(0))
On veut refresh la listbox donc:
On veut aussi resume un process donc tout simplement:ListBox1.Refresh()
Dim game As Process() = Process.GetProcessesByName(ListBox1.SelectedItem)
ResumeProcess(game(0))
Et voilà le tutorial est finis ! Je ne réponderai pas au question sur: "Comment suspend Xtrap ?" Cause: J'ai eu beaucoup de mal, donc Evaelis m'a aidé, et je ne partage pas le code qui m'a donné. Voilà tout. Ce tutorial marche sur tout les process !