The Playlist
November 2017
MonTueWedThuFriSatSun
  12345
6789101112
13141516171819
20212223242526
27282930   

Calendar Calendar

Latest topics
» New Game<Dead Frontier 2>
Sun Nov 12, 2017 12:46 pm by Nemmar

» Global announcement:
Tue Oct 17, 2017 1:15 pm by STEAMLOVE

» CF Pharaoh
Sun Oct 15, 2017 5:45 pm by Nemmar

» Clan Logo Configuration
Sat Oct 14, 2017 12:37 am by Nemmar

» [10-10-17] SF1 SEA Public Hack by ZHS
Fri Oct 13, 2017 9:23 pm by Nemmar

» Para sa mga Freedata jan ....
Fri Oct 13, 2017 1:16 pm by sadwa

» SF1 aGate Bypass
Thu Oct 12, 2017 3:26 pm by Nemmar

» [Release] ZHSPublicV1.9.24
Thu Oct 12, 2017 3:25 pm by Nemmar

» VIP TRY THIS!!!
Thu Oct 12, 2017 3:25 pm by Nemmar

Keywords

Top posting users this week


SF1 aGate Bypass

View previous topic View next topic Go down

SF1 aGate Bypass

Post by STEAMLOVE on 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
avatar
STEAMLOVE
VIP
VIP

Posts : 8
Join date : 2017-10-09
Age : 19
Location : Hack Source Code

View user profile

Back to top Go down

Re: SF1 aGate Bypass

Post by Nemmar on Thu Oct 12, 2017 3:26 pm

e pa ano yan gamiten
avatar
Nemmar
Moderators
Moderators

Posts : 23
Join date : 2017-10-09
Age : 17

View user profile http://gamemoyo.forumotion.com

Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum