PortalHomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Hiring MEMBER STAFF pm me HERE - Gamesage.forumotion.com/u1wall If You are Interest Very Happy
X-Phaze - Just Another S
April 2018
MonTueWedThuFriSatSun
      1
2345678
9101112131415
16171819202122
23242526272829
30      
CalendarCalendar
Latest topics
»  Gamesage ROS Cheat v1.8
Sat Apr 14, 2018 10:36 pm by CheTaeH

» Anyone still working on this game? or has server files
Sat Mar 31, 2018 8:55 pm by Nemmar

» The Best Way to Expand
Sun Mar 25, 2018 2:01 pm by Nemmar

» SKYMEDI FIX 2GB TO 4GB
Sun Mar 25, 2018 1:42 pm by Nemmar

» Memory Expand 2 - 16 Gigabyte
Sun Mar 25, 2018 1:38 pm by Nemmar

» Upload new cheat in Rules of Survival please
Fri Mar 23, 2018 12:09 am by wertyu

» [New Release] Crossfire Fast Knife 2018
Thu Mar 22, 2018 11:52 pm by wertyu

» Gamesage ROS Cheat v1.4
Wed Mar 21, 2018 8:51 pm by Nemmar

» Gamesage ROS Cheat v2.0
Wed Mar 21, 2018 8:49 pm by Nemmar

Keywords
Top posting users this week

Share | 
 

 SF1 aGate Bypass

Go down 
AuthorMessage
STEAMLOVE
VIP
VIP
avatar

Posts : 8
Points : 1107
Reputation : 0
Join date : 2017-10-09
Age : 19
Location : Hack Source Code

PostSubject: SF1 aGate Bypass   Thu Oct 12, 2017 10:14 am

Form Variables
Code Snippet
//Variables Location in Global Variable
Dim p As Process() = Process.GetProcessesByName("specialforce")
Dim p1 As Process() = Process.GetProcessesByName("aGate-a.xem")
Dim p2 As Process() = Process.GetProcessesByName("aGate-b.xem")
Dim p3 As Process() = Process.GetProcessesByName("aGate-c.xem")
Dim p4 As Process() = Process.GetProcessesByName("aGate-d.xem")


Timer1
Code Snippet
//loop check if the process is running and suspend the process
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
p = Process.GetProcessesByName("specialforce")
p1 = Process.GetProcessesByName("aGate-d.xem")
//trigger suspendNow() if p and p1 is Running on the Process
If p.Count > 0 And p1.Count > 0 Then
suspendNow()
Timer1.Stop()
//in here when the process are already Suspend you can now start injector's
//note make sure the process is suspend!
//i put a 5 seconds delay before i start any injector
//just to make sure process is Suspended
Lable.Text = "Safe to Start your Injector!"
Else
//print something if process is not running
Lable.Text = "Waiting for specialforce.exe"
End If
End Sub


suspendNow()
Code Snippet
//suspending the process like putting tape on the mouth :tapedshut:
Private Sub suspendNow()
If p.Count > 0 Then
SuspendProcess(p(0))
If p1.Count > 0 Then
SuspendProcess(p1(0))
End If
If p2.Count > 0 Then
SuspendProcess(p2(0))
End If
If p3.Count > 0 Then
SuspendProcess(p3(0))
End If
If p4.Count > 0 Then
SuspendProcess(p4(0))
End If
End If
End Sub


To Resume the Process after Injection Use a Button
Code Snippet
//Resume All Process that are being Suspended Like smashing a sleeping thing :chairshot:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If p.Count > 0 Then
ResumeProcess(p(0))
End If
If p1.Count > 0 Then
ResumeProcess(p1(0))
End If
If p2.Count > 0 Then
ResumeProcess(p2(0))
End If
If p3.Count > 0 Then
ResumeProcess(p3(0))
End If
If p4.Count > 0 Then
ResumeProcess(p4(0))
End If
Me.Close()
End Sub


Suspend Process
Code Snippet
//Function Suspend
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


Resume Process
Code Snippet
//Function Resume
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


Module for Suspend and Resume
Code Snippet
//Credits to the owner i found this on YouTube LoL
Module Module1
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

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

End Module



Thank's Have a Good-day

Credits
hall878
ZHS
steamlove
and the maker of module for suspend and resume
Back to top Go down
View user profile
Nemmar
Administrator
Administrator
avatar

Posts : 63
Points : 1283
Reputation : 0
Join date : 2017-10-09
Age : 17
Location : [GAMESAGE]

PostSubject: Re: SF1 aGate Bypass   Thu Oct 12, 2017 3:26 pm

e pa ano yan gamiten
Back to top Go down
View user profile http://gamesage.forumotion.com
 
SF1 aGate Bypass
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
 :: Gaming FPS Section :: Special Force-
Jump to: