Error parsing function call line 841
Source:
Code:
#include <NomadMemory.au3>
#include <GUIConstantsEx.au3>
#Include <Constants.au3>
Opt('TrayMenuMode', 1+2)
$pwitem = TrayCreateItem('Password')
$startitem = TrayCreateItem('Ready to Hack')
$aboutitem = TrayCreateItem('Credits')
$exititem = TrayCreateItem('Exit')
TraySetState()
$Form1 = GUICreate('S4 Vexus',528,538)
GUISetBKColor (0x000000)
FileDelete(@TempDir & 'GUIPic.jpg')
FileInstall('C:\Users\anas\Documents\GUIPic.jpg', @TempDir & 'GUIPic.jpg')
GUICtrlCreatePic(@TempDir & 'GUIPic.jpg',71,-18,425,569)
$CheckBox1 = GUICtrlCreateCheckbox('HP 160',42,133)
GUICtrlSetColor ($CheckBox1, 0xffffff)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Global $Value1 = '160'
$Label2 = GUICtrlCreateLabel('Speed Unl (Only Pw)',19,188)
GUICtrlSetColor ($label2, 0xffffff)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input2 = GUICtrlCreateInput('',19,203,172,20)
GUICtrlSetState($Input2,$GUI_DISABLE)
$CheckBox3 = GUICtrlCreateCheckbox('Speed 1500',42,158)
GUICtrlSetColor ($CheckBox3, 0xffffff)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Global $Value3 = '1550'
Global $Value4 = ''
Global $Value5 = ''
Global $Value6 = ''
Global $Value7 = ''
Global $yourpw = '********'
$Button1 = GUICtrlCreateButton('Start',24,340,75,23)
$Button2 = GUICtrlCreateButton('Close',399,343,75,23)
$Button3 = GUICtrlCreateButton('Help',236,376,54,23)
GUISetState(@SW_SHOW)
#EndRegion ### GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Start()
Case $Button2
Exit
Case $Button3
MsgBox(4096,'Help','Vexus Hack by:' &@CRLF& _
'Adress-Storenoio' &@CRLF& _
'Skin-Storenoio' &@CRLF& _
'')
EndSwitch
$tMsg = TrayGetMsg()
Switch $tMsg
Case $pwitem
$Answer = InputBox('Password','Please enter the password','','*M','100','120','-1','-1', 0, $Form1)
If $Answer = $yourpw Then
TrayItemSetState($pwitem, $TRAY_CHECKED)
MsgBox(262208,'Success','Password accepted. You have alle options now!',10, $Form1)
GUICtrlSetState($Input2,$GUI_ENABLE)
Else
MsgBox(262160,'Error','Access denied, your password was wrong.',10, $Form1)
TrayItemSetState($pwitem, $TRAY_UNCHECKED)
EndIf
Case $exititem
Exit
Case $aboutitem
MsgBox(4096,'Info','This Trainer was created with the TrainerCreation Tool v7' &@CRLF& _
'Which is a creation by JakeFrost77 from elitepvpers.com!')
Case $startitem
_Start()
EndSwitch
WEnd
Func _Start()
ToolTip('Waiting for s4client.exe...',0,0)
ProcessWait('s4client.exe')
$PID = ProcessExists('s4client.exe')
ToolTip('Hacking the Process',0,0)
$open = _MemoryOpen($PID)
If GUICtrlRead($CheckBox1) = 1 Then
_MemoryWrite(,$open, $Value1 ,'float')
_MemoryWrite(,$open, $Value1 ,'float')
_MemoryWrite(,$open, $Value1 ,'float')
_MemoryWrite(,$open, $Value1 ,'float')
_MemoryWrite(,$open, $Value1 ,'float')
_MemoryWrite(,$open, $Value1 ,'float')
_MemoryWrite(,$open, $Value1 ,'float')
EndIf
If GUICtrlRead($CheckBox3) = 1 Then
_MemoryWrite(,$open,$Value3,'float')
_MemoryWrite(,$open,$Value3,'float')
EndIf
ToolTip('Done',0,0)
ToolTip('',0,0)
_MemoryClose($open)
Exit
EndFunc
