Hack Problem

02/05/2011 11:43 -Light [xLittle#1
I finished the hack but when i tested it i get that error:
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
Adresses deleted because are hp\sp hack and speed hack
04/07/2011 14:57 Xyooz#2
Quote:
Originally Posted by WoWPlayer. View Post
Dude, sorry, but i must say that that was a EPIC fail.
Why you push this old Thread?
Because you push some other old Threads yet, i report you.