PortalHomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Hiring MEMBER STAFF pm me HERE - Gamesage.forumotion.com/u1wall If You are Interest Very Happy
X-Phaze - Just Another S
October 2018
MonTueWedThuFriSatSun
1234567
891011121314
15161718192021
22232425262728
293031    
CalendarCalendar
Latest topics
» [Rules of Survival] Cuprum 9.0
Sat Oct 20, 2018 10:16 am by [GFX]Gamesage

» Rules of Survival Cheat Always Upadate
Fri Oct 19, 2018 12:05 am by Nemmar

» Crossfire WallMod August(8)
Sun Aug 12, 2018 6:56 pm by CheTaeH

» 8 Agustus 2018 - Kalium 8.0 + ExileD RosCBD (Version 8.8) RØS + Steam Server!
Wed Aug 08, 2018 12:36 pm by Nemmar

» NEW Bucks Special Force
Fri Jun 15, 2018 3:19 pm by Nemmar

» ROS cheat update May 31- June 1 2018
Fri Jun 01, 2018 6:32 am by homeralt2

» Rules of survival Ceat Tutorial and daily updates
Thu May 31, 2018 11:18 am by homeralt2

» HistidinCit R0S3.0 Part 2
Sun May 20, 2018 7:37 pm by Nemmar

» The Best Way to Expand
Sat Apr 21, 2018 8:25 pm by aidanrey187

Keywords
Top posting users this week

Share | 
 

 SF1 aGate Bypass

Go down 
AuthorMessage
STEAMLOVE
VIP
VIP
avatar

Posts : 8
Points : 2032
Reputation : 0
Join date : 2017-10-09
Age : 20
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 : 68
Points : 2226
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: