#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
HotKeySet("{F12}","_Re")
#RequireAdmin
SetPrivilege(0x0020,0x0002)
if not FileExists(@ScriptDir & "\S4TeLeSTaZ.bin") then FileWrite(@ScriptDir & "\S4TeLeSTaZ.bin","")
Opt("GUIOnEventMode", 1)
Dim $TeleportAddress[3]
Local $Form1 = GUICreate("eZ Teleport Manager", 274, 340, 15,15)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
Local $Combo1 = GUICtrlCreateCombo("", 8, 8, 169, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetOnEvent(-1, "Combo1Change")
Local $Button1 = GUICtrlCreateButton("Teleport [F11]", 184, 6, 83, 25)
GUICtrlSetOnEvent(-1, "Button1Click")
Local $Group1 = GUICtrlCreateGroup("", 8, 40, 257, 97)
Local $Input1 = GUICtrlCreateInput("", 32, 56, 225, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
GUICtrlSetOnEvent(-1, "Input1Change")
Local $Label1 = GUICtrlCreateLabel("X :", 16, 59, 17, 17)
GUICtrlSetOnEvent(-1, "Label1Click")
Local $Input2 = GUICtrlCreateInput("", 32, 80, 225, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
GUICtrlSetOnEvent(-1, "Input2Change")
Local $Label2 = GUICtrlCreateLabel("Y :", 16, 83, 17, 17)
GUICtrlSetOnEvent(-1, "Label2Click")
Local $Input3 = GUICtrlCreateInput("", 32, 104, 225, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
GUICtrlSetOnEvent(-1, "Input3Change")
Local $Label3 = GUICtrlCreateLabel("Z :", 16, 107, 17, 17)
GUICtrlSetOnEvent(-1, "Label3Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Local $Group2 = GUICtrlCreateGroup("Save Position", 8, 144, 257, 183)
Local $Input4 = GUICtrlCreateInput("", 32, 160, 225, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetOnEvent(-1, "Input4Change")
Local $Label4 = GUICtrlCreateLabel("X :", 16, 163, 17, 17)
GUICtrlSetOnEvent(-1, "Label4Click")
Local $Input5 = GUICtrlCreateInput("", 32, 184, 225, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetOnEvent(-1, "Input5Change")
Local $Label5 = GUICtrlCreateLabel("Y :", 16, 187, 17, 17)
GUICtrlSetOnEvent(-1, "Label5Click")
Local $Input6 = GUICtrlCreateInput("", 32, 208, 225, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetOnEvent(-1, "Input6Change")
Local $Label6 = GUICtrlCreateLabel("Z :", 16, 211, 17, 17)
GUICtrlSetOnEvent(-1, "Label6Click")
Local $Button2 = GUICtrlCreateButton("Reload Position ( X , Y, Z )", 16, 232, 241, 25)
GUICtrlSetOnEvent(-1, "Button2Click")
Local $Combo2 = GUICtrlCreateCombo("", 16, 264, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetOnEvent(-1, "Combo2Change")
Local $Button3 = GUICtrlCreateButton("ADD", 176, 262, 81, 25)
GUICtrlSetOnEvent(-1, "Button3Click")
Local $Button4 = GUICtrlCreateButton("DELETE", 176, 289, 81, 25)
GUICtrlSetOnEvent(-1, "Button4Click")
Local $Combo3 = GUICtrlCreateButton("UPDATE LIST", 16, 289, 153, 25)
GUICtrlSetOnEvent(-1, "_Re")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
_Re()
AdlibRegister("_Pointer",250)
While 1
Sleep(100)
WEnd
Func _Re();Reload ComboBox Items
GUICtrlSetData($Combo1,"")
GUICtrlSetData($Combo2,"")
Dim $aArray = IniReadSectionNames("S4TeLeSTaZ.bin")
if not @error Then
For $i = 1 To $aArray[0]
GUICtrlSetData($Combo1,$aArray[$i]& "|")
GUICtrlSetData($Combo2,$aArray[$i] & "|")
Next
EndIf
EndFunc
Func Button4Click();Delete Funktion
IniDelete("S4TeLeSTaZ.bin",GUICtrlRead($Combo2))
EndFunc
Func _Pointer();Load the Pointer and Set the X,Y,Z Input Box
$mem = _MemoryOpen(ProcessExists("S4Client.exe"))
$tmp = _MemoryRead(0x0161E324,$mem)+0x108
$tmp = _MemoryRead($tmp,$mem)+0x29c
$tmp = _MemoryRead($tmp,$mem)+0x4
$tmp = _MemoryRead($tmp,$mem)+0x12c
$tmp = _MemoryRead($tmp,$mem)+0x684
$TeleportAddress[0] = $tmp
$TeleportAddress[1] = $tmp +0x4
$TeleportAddress[2] = $tmp +0x8
GUICtrlSetData($Input1,_MemoryRead($tmp,$mem,"float"))
GUICtrlSetData($Input2,_MemoryRead($tmp +0x4,$mem,"float"))
GUICtrlSetData($Input3,_MemoryRead($tmp+0x8,$mem,"float"))
EndFunc
Func Button1Click();Teleport
Dim $n = GUICtrlRead($Combo1)
$mem = _MemoryOpen(ProcessExists("S4Client.exe"))
_MemoryWrite($TeleportAddress[0],$mem,IniRead(@ScriptDir & "\S4TeLeSTaZ.bin",$n,"X","0"),"float")
_MemoryWrite($TeleportAddress[1],$mem,IniRead(@ScriptDir & "\S4TeLeSTaZ.bin",$n,"Y","0"),"float")
_MemoryWrite($TeleportAddress[2],$mem,IniRead(@ScriptDir & "\S4TeLeSTaZ.bin",$n,"Z","0"),"float")
EndFunc
Func Button2Click();
GUICtrlSetData($input4,GUICtrlRead($Input1));Inputbox1 Text -> Text Of Inputbox4
GUICtrlSetData($input5,GUICtrlRead($Input2));Inputbox2 Text -> Text Of Inputbox5
GUICtrlSetData($input6,GUICtrlRead($Input3));Inputbox3 Text -> Text Of Inputbox6
EndFunc
Func Button3Click()
if not GUICtrlRead($Combo2) = "" Then
IniWrite(@ScriptDir & "\S4TeLeSTaZ.bin",GUICtrlRead($Combo2),"X",GUICtrlRead($input4))
IniWrite(@ScriptDir & "\S4TeLeSTaZ.bin",GUICtrlRead($Combo2),"Y",GUICtrlRead($input5))
IniWrite(@ScriptDir & "\S4TeLeSTaZ.bin",GUICtrlRead($Combo2),"Z",GUICtrlRead($input6))
Else
MsgBox(0,"error","you must type a name in")
EndIf
EndFunc
Func Combo1Change()
EndFunc
Func Combo2Change()
EndFunc
Func Form1Close()
Exit
EndFunc
Func Form1Maximize()
EndFunc
Func Form1Minimize()
EndFunc
Func Form1Restore()
_Re()
EndFunc
Func Input1Change()
EndFunc
Func Input2Change()
EndFunc
Func Input3Change()
EndFunc
Func Input4Change()
EndFunc
Func Input5Change()
EndFunc
Func Input6Change()
EndFunc
Func Label1Click()
EndFunc
Func Label2Click()
EndFunc
Func Label3Click()
EndFunc
Func Label4Click()
EndFunc
Func Label5Click()
EndFunc
Func Label6Click()
EndFunc
#include-once
#region _Memory
;==================================================================================
; AutoIt Version: 3.1.127 (beta)
; Language: English
; Platform: All Windows
; Author: Nomad
; Requirements: These functions will only work with beta.
;==================================================================================
; Credits: wOuter - These functions are based on his original _Mem() functions.
; But they are easier to comprehend and more reliable. These
; functions are in no way a direct copy of his functions. His
; functions only provided a foundation from which these evolved.
;==================================================================================
;
; Functions:
;
;==================================================================================
; Function: _MemoryOpen($iv_Pid[, $iv_DesiredAccess[, $iv_InheritHandle]])
; Description: Opens a process and enables all possible access rights to the
; process. The Process ID of the process is used to specify which
; process to open. You must call this function before calling
; _MemoryClose(), _MemoryRead(), or _MemoryWrite().
; Parameter(s): $iv_Pid - The Process ID of the program you want to open.
; $iv_DesiredAccess - (optional) Set to 0x1F0FFF by default, which
; enables all possible access rights to the
; process specified by the Process ID.
; $iv_InheritHandle - (optional) If this value is TRUE, all processes
; created by this process will inherit the access
; handle. Set to 1 (TRUE) by default. Set to 0
; if you want it FALSE.
; Requirement(s): None.
; Return Value(s): On Success - Returns an array containing the Dll handle and an
; open handle to the specified process.
; On Failure - Returns 0
; @Error - 0 = No error.
; 1 = Invalid $iv_Pid.
; 2 = Failed to open Kernel32.dll.
; 3 = Failed to open the specified process.
; Author(s): Nomad
; Note(s):
;==================================================================================
Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $iv_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', $iv_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
;==================================================================================
; Function: _MemoryRead($iv_Address, $ah_Handle[, $sv_Type])
; Description: Reads the value located in the memory address specified.
; Parameter(s): $iv_Address - The memory address you want to read from. It must
; be in hex format (0x00000000).
; $ah_Handle - An array containing the Dll handle and the handle
; of the open process as returned by _MemoryOpen().
; $sv_Type - (optional) The "Type" of value you intend to read.
; This is set to 'dword'(32bit(4byte) signed integer)
; by default. See the help file for DllStructCreate
; for all types. An example: If you want to read a
; word that is 15 characters in length, you would use
; 'char[16]' since a 'char' is 8 bits (1 byte) in size.
; Return Value(s): On Success - Returns the value located at the specified address.
; On Failure - Returns 0
; @Error - 0 = No error.
; 1 = Invalid $ah_Handle.
; 2 = $sv_Type was not a string.
; 3 = $sv_Type is an unknown data type.
; 4 = Failed to allocate the memory needed for the DllStructure.
; 5 = Error allocating memory for $sv_Type.
; 6 = Failed to read from the specified process.
; Author(s): Nomad
; Note(s): Values returned are in Decimal format, unless specified as a
; 'char' type, then they are returned in ASCII format. Also note
; that size ('char[size]') for all 'char' types should be 1
; greater than the actual size.
;==================================================================================
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
;==================================================================================
; Function: _MemoryWrite($iv_Address, $ah_Handle, $v_Data[, $sv_Type])
; Description: Writes data to the specified memory address.
; Parameter(s): $iv_Address - The memory address which you want to write to.
; It must be in hex format (0x00000000).
; $ah_Handle - An array containing the Dll handle and the handle
; of the open process as returned by _MemoryOpen().
; $v_Data - The data to be written.
; $sv_Type - (optional) The "Type" of value you intend to write.
; This is set to 'dword'(32bit(4byte) signed integer)
; by default. See the help file for DllStructCreate
; for all types. An example: If you want to write a
; word that is 15 characters in length, you would use
; 'char[16]' since a 'char' is 8 bits (1 byte) in size.
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0
; @Error - 0 = No error.
; 1 = Invalid $ah_Handle.
; 2 = $sv_Type was not a string.
; 3 = $sv_Type is an unknown data type.
; 4 = Failed to allocate the memory needed for the DllStructure.
; 5 = Error allocating memory for $sv_Type.
; 6 = $v_Data is not in the proper format to be used with the
; "Type" selected for $sv_Type, or it is out of range.
; 7 = Failed to write to the specified process.
; Author(s): Nomad
; Note(s): Values sent must be in Decimal format, unless specified as a
; 'char' type, then they must be in ASCII format. Also note
; that size ('char[size]') for all 'char' types should be 1
; greater than the actual size.
;==================================================================================
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
;==================================================================================
; Function: _MemoryClose($ah_Handle)
; Description: Closes the process handle opened by using _MemoryOpen().
; Parameter(s): $ah_Handle - An array containing the Dll handle and the handle
; of the open process as returned by _MemoryOpen().
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0
; @Error - 0 = No error.
; 1 = Invalid $ah_Handle.
; 2 = Unable to close the process handle.
; Author(s): Nomad
; Note(s):
;==================================================================================
Func _MemoryClose($ah_Handle)
If Not IsArray($ah_Handle) Then
SetError(1)
Return 0
EndIf
DllCall($ah_Handle[0], 'int', 'CloseHandle', 'int', $ah_Handle[1])
If Not @Error Then
DllClose($ah_Handle[0])
Return 1
Else
DllClose($ah_Handle[0])
SetError(2)
Return 0
EndIf
EndFunc
;==================================================================================
; Function: SetPrivilege( $privilege, $bEnable )
; Description: Enables (or disables) the $privilege on the current process
; (Probably) requires administrator privileges to run
;
; Author(s): Larry (from autoitscript.com's Forum)
; Notes(s):
; http://www.autoitscript.com/forum/index.php?s=&showtopic=31248&view=findpost&p=223999
;==================================================================================
Func SetPrivilege( $privilege, $bEnable )
Const $TOKEN_ADJUST_PRIVILEGES = 0x0020
Const $TOKEN_QUERY = 0x0008
Const $SE_PRIVILEGE_ENABLED = 0x0002
Local $hToken, $SP_auxret, $SP_ret, $hCurrProcess, $nTokens, $nTokenIndex, $priv
$nTokens = 1
$LUID = DLLStructCreate("dword;int")
If IsArray($privilege) Then $nTokens = UBound($privilege)
$TOKEN_PRIVILEGES = DLLStructCreate("dword;dword[" & (3 * $nTokens) & "]")
$NEWTOKEN_PRIVILEGES = DLLStructCreate("dword;dword[" & (3 * $nTokens) & "]")
$hCurrProcess = DLLCall("kernel32.dll","hwnd","GetCurrentProcess")
$SP_auxret = DLLCall("advapi32.dll","int","OpenProcessToken","hwnd",$hCurrProcess[0], _
"int",BitOR($TOKEN_ADJUST_PRIVILEGES,$TOKEN_QUERY),"int_ptr",0)
If $SP_auxret[0] Then
$hToken = $SP_auxret[3]
DLLStructSetData($TOKEN_PRIVILEGES,1,1)
$nTokenIndex = 1
While $nTokenIndex <= $nTokens
If IsArray($privilege) Then
$priv = $privilege[$nTokenIndex-1]
Else
$priv = $privilege
EndIf
$ret = DLLCall("advapi32.dll","int","LookupPrivilegeValue","str","","str",$priv, _
"ptr",DLLStructGetPtr($LUID))
If $ret[0] Then
If $bEnable Then
DLLStructSetData($TOKEN_PRIVILEGES,2,$SE_PRIVILEGE_ENABLED,(3 * $nTokenIndex))
Else
DLLStructSetData($TOKEN_PRIVILEGES,2,0,(3 * $nTokenIndex))
EndIf
DLLStructSetData($TOKEN_PRIVILEGES,2,DllStructGetData($LUID,1),(3 * ($nTokenIndex-1)) + 1)
DLLStructSetData($TOKEN_PRIVILEGES,2,DllStructGetData($LUID,2),(3 * ($nTokenIndex-1)) + 2)
DLLStructSetData($LUID,1,0)
DLLStructSetData($LUID,2,0)
EndIf
$nTokenIndex += 1
WEnd
$ret = DLLCall("advapi32.dll","int","AdjustTokenPrivileges","hwnd",$hToken,"int",0, _
"ptr",DllStructGetPtr($TOKEN_PRIVILEGES),"int",DllStructGetSize($NEWTOKEN_PRIVILEGES), _
"ptr",DllStructGetPtr($NEWTOKEN_PRIVILEGES),"int_ptr",0)
$f = DLLCall("kernel32.dll","int","GetLastError")
EndIf
$NEWTOKEN_PRIVILEGES=0
$TOKEN_PRIVILEGES=0
$LUID=0
If $SP_auxret[0] = 0 Then Return 0
$SP_auxret = DLLCall("kernel32.dll","int","CloseHandle","hwnd",$hToken)
If Not $ret[0] And Not $SP_auxret[0] Then Return 0
return $ret[0]
EndFunc ;==>SetPrivilege
Func memwrite($mid, $adress, $hex)
Local $struct = DllStructCreate('byte[' & BinaryLen('0x' & $hex) & ']')
For $i = DllStructGetSize($struct) To 1 Step - 1
DllStructSetData($struct, 1, BinaryMid('0x' & $hex, $i, 1), $i)
Next
Local $x = DllCall("Kernel32.dll", 'int', 'VirtualProtectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', 0x40, 'dword*', 0)
DllCall("Kernel32.dll", 'int', 'WriteProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', 0)
DllCall("Kernel32.dll", 'int', 'VirtualProtectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', $x[5], 'dword*', 0)
EndFunc ;==>memwrite
#endregion
![[I]Pod](/data/avatars/s/162/162580.jpg?1486985963){kind=avatar}
