Register for your free account! | Forgot your password?

Go Back   elitepvpers > Shooter > S4 League
You last visited: Today at 04:08

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



????....

Discussion on ????.... within the S4 League forum part of the Shooter category.

Reply
 
Old   #1
 
xDarkMan's Avatar
 
elite*gold: 20
Join Date: Oct 2012
Posts: 346
Received Thanks: 361
Wink ????....

What is that?:

___
And What Do i Missing?

The Code Is below :

Opt("TrayMenuMode", 1)
TraySetIcon("I.ico")
$STATUS = TrayCreateItem("Status")
TrayCreateItem("")
$EXIT = TrayCreateItem("Exit")
ToolTip("Start S4League.", 5, 5)
Global $STATUST = "Waiting for S4Client.exe"
While 1
If ProcessExists("S4Client.exe") Then
BYPASS()
EndIf
$MSG = TrayGetMsg()
Switch $MSG
Case $EXIT
Exit
Case $STATUS
ToolTip("Created By xDarkMan", $STATUST, 5)
EndSwitch
WEnd
Func BYPASS()
$STATUST = "Found"
ToolTip("Created By xDarkmax", 5, 5)
Global $MEMORYHANDLE, $ENUMPROCESSES
$BYTELEN = 19
$NOP = "0x" & _StringRepeat("90", $BYTELEN)
$PROCESSID = ProcessWait("S4Client.exe")
$MEMORYHANDLE = _MEMORYOPEN($PROCESSID)
Do
Sleep(10)
Until _CHECK() = 1
_MEMORYWRITE($ENUMPROCESSES, $MEMORYHANDLE, $NOP, "byte[" & $BYTELEN & "]")
_MEMORYCLOSE($MEMORYHANDLE)
$STATUST = "OK"
ToolTip("Thanks For xDarkMan.", 5, 5)
Sleep(5000)
Exit
EndFunc
Func _CHECK()
$ENUMPROCESSES = _GETPROCESSADDRESS(_WinAPI_GetModuleHandle("psapi. dll"), "EnumProcesses")
If _MEMORYREAD($ENUMPROCESSES, $MEMORYHANDLE, "byte[2]") = "0x8BFF" Then
Return 1
Else
Return 0
EndIf
EndFunc
Func _GETPROCESSADDRESS($HMODULE, $FUNCTION)
$CALL = DllCall("Kernel32.dll", "ptr", "GetProcAddress", "ptr", $HMODULE, "str", $FUNCTION)
Return $CALL[0]
EndFunc
xDarkMan is offline  
Old 04/22/2013, 12:52   #2
 
elite*gold: 0
Join Date: Aug 2012
Posts: 222
Received Thanks: 1,821
Code:
#include <String.au3>
#include <WinAPI.au3>
Opt("TrayMenuMode", 1)
TraySetIcon("I.ico")
$STATUS = TrayCreateItem("Status")
TrayCreateItem("")
$EXIT = TrayCreateItem("Exit")
ToolTip("Start S4League.", 5, 5)
Global $STATUST = "Waiting for S4Client.exe"
While 1
If ProcessExists("S4Client.exe") Then
BYPASS()
EndIf
$MSG = TrayGetMsg()
Switch $MSG
Case $EXIT
Exit
Case $STATUS
ToolTip("Created By xDarkMan", $STATUST, 5)
EndSwitch
WEnd
Func BYPASS()
$STATUST = "Found"
ToolTip("Created By xDarkmax", 5, 5)
Global $MEMORYHANDLE, $ENUMPROCESSES
$BYTELEN = 19
$NOP = "0x" & _StringRepeat("90", $BYTELEN)
$PROCESSID = ProcessWait("S4Client.exe")
$MEMORYHANDLE = _MEMORYOPEN($PROCESSID)
Do
Sleep(10)
Until _CHECK() = 1
_MEMORYWRITE($ENUMPROCESSES, $MEMORYHANDLE, $NOP, "byte[" & $BYTELEN & "]")
_MEMORYCLOSE($MEMORYHANDLE)
$STATUST = "OK"
ToolTip("Thanks For xDarkMan.", 5, 5)
Sleep(5000)
Exit
EndFunc
Func _CHECK()
$ENUMPROCESSES = _GETPROCESSADDRESS(_WinAPI_GetModuleHandle("psapi. dll"), "EnumProcesses")
If _MEMORYREAD($ENUMPROCESSES, $MEMORYHANDLE, "byte[2]") = "0x8BFF" Then
Return 1
Else
Return 0
EndIf
EndFunc
Func _GETPROCESSADDRESS($HMODULE, $FUNCTION)
$CALL = DllCall("Kernel32.dll", "ptr", "GetProcAddress", "ptr", $HMODULE, "str", $FUNCTION)
Return $CALL[0]
EndFunc
Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)
   
    If Not ProcessExists($iv_Pid) Then
        SetError(1)
        Return 0
    EndIf
   
    Local $ah_Handle[2] = [DllOpen('kernel32.dll')]
   
    If @Error Then
        SetError(2)
        Return 0
    EndIf
   
    Local $av_OpenProcess = DllCall($ah_Handle[0], 'int', 'OpenProcess', 'int', $iv_DesiredAccess, 'int', $if_InheritHandle, 'int', $iv_Pid)
   
    If @Error Then
        DllClose($ah_Handle[0])
        SetError(3)
        Return 0
    EndIf
   
    $ah_Handle[1] = $av_OpenProcess[0]
   
    Return $ah_Handle
   
EndFunc
Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = 'dword')
   
    If Not IsArray($ah_Handle) Then
        SetError(1)
        Return 0
    EndIf
   
    Local $v_Buffer = DllStructCreate($sv_Type)
   
    If @Error Then
        SetError(@Error + 1)
        Return 0
    EndIf
   
    DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')
   
    If Not @Error Then
        Local $v_Value = DllStructGetData($v_Buffer, 1)
        Return $v_Value
    Else
        SetError(6)
        Return 0
    EndIf
   
EndFunc
Func _MemoryWrite($iv_Address, $ah_Handle, $v_Data, $sv_Type = 'dword')
   
    If Not IsArray($ah_Handle) Then
        SetError(1)
        Return 0
    EndIf
   
    Local $v_Buffer = DllStructCreate($sv_Type)
   
    If @Error Then
        SetError(@Error + 1)
        Return 0
    Else
        DllStructSetData($v_Buffer, 1, $v_Data)
        If @Error Then
            SetError(6)
            Return 0
        EndIf
    EndIf
   
    DllCall($ah_Handle[0], 'int', 'WriteProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')
   
    If Not @Error Then
        Return 1
    Else
        SetError(7)
        Return 0
    EndIf
   
EndFunc
JohnAndersn is offline  
Old 04/22/2013, 12:58   #3
 
Der-Eddy's Avatar
 
elite*gold: 400
Join Date: Nov 2008
Posts: 67,905
Received Thanks: 19,505
Instead of copying code you should do this on your own
then check the debug informations in Scite instead of compiling your code first
also you forgot zu include the "NomadMemory.au3" if you use _memoryopen and _memorywrite

Code:
Func BYPASS()
$STATUST = "Found"
[COLOR="Red"]ToolTip("Created By xDarkmax", 5, 5)[/COLOR]
Global $MEMORYHANDLE, $ENUMPROCESSES
$BYTELEN = 19
$NOP = "0x" & [B]_StringRepeat[/B]("90", $BYTELEN)
$PROCESSID = ProcessWait("S4Client.exe")
$MEMORYHANDLE = _MEMORYOPEN($PROCESSID)
Do
Sleep(10)
Until _CHECK() = 1
_MEMORYWRITE($ENUMPROCESSES, $MEMORYHANDLE, $NOP, "byte[" & $BYTELEN & "]")
_MEMORYCLOSE($MEMORYHANDLE)
$STATUST = "OK"
[COLOR="Red"]ToolTip("Thanks For xDarkMan.", 5, 5)[/COLOR]
Sleep(5000)
Exit
EndFunc
sure it yours ...

also you need to include "String.au3" if you want to use _StringRepeat
Der-Eddy is offline  
Reply




All times are GMT +1. The time now is 04:09.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.