[Help] My script does not load

October 18, 2009

Hi, I'm trying to expand my trainer for more versions, however I am having trouble in choosing the version (Bra or esp)

I made a script to be able to choose the desired version

But they are not working, or I did wrong

someone help me

script choose version

Local $n2,$1,$2
   GUICreate("Multi Version",200,100)
   GUICtrlCreateGroup("Choose a version",0,30,200,100)
   $1 = GUICtrlCreateRadio("Version Brazil", 60, 50, 120, 20)
   GUICtrlSetState(-1,$GUI_CHECKED)
   $2 = GUICtrlCreateRadio("Version España", 60, 69, 120, 20)
   $n2 = GUICtrlCreateButton("Start Program", 10, 1, 75)
   GUISetState(@SW_SHOW)
   While 1
       $country = GUICtrlRead($1)
    $country = GUICtrlRead($2)
        Select
            Case $n2
                If GUICtrlRead ($2) = $GUI_CHECKED Then
                    Global $country = 'BRA'
                ElseIf GUICtrlRead ($2) = $GUI_CHECKED Then
                    Global $country = 'Esp'
                EndIf
            EndSelect
    WEnd

My Trainer with script

#NoTrayIcon; No icon at the bottom of screen
#include <GUIConstantsEx.au3>;
#include <EditConstants.au3>
#include <Inet.au3>
; adds neccessary items for this to work
Opt("guioneventmode", 1); allows us to use GUIsetonevent

$version = "v4.4 "; Put in the version of your trainer here
local $listText, $s_TempText,$country1,$country2

_Gercheck(); Checks what version you are using German/USA


$ID = _MemoryOpen(ProcessExists("Nksp.exe")); Opens the Last Chaos Memory
if $country = 'BRA' Then; If the country is BRA then
$pointer = 0x105D5398; the pointer is *insert pointer*
$skilladd = _MemoryRead($pointer, $ID) + 0x000FC534; Skill Speed offset
$Attkadd = _MemoryRead($pointer, $ID) + 0x000FC4A8; attack speed offset
$runadd = _MemoryRead($pointer, $ID) + 0x000FC4A0; run speed offset
$rangeadd = _MemoryRead($pointer, $ID) + 0x000FC4A4;  range offset
$Monsadd = _MemoryRead($pointer, $ID) + 0x000FC0E0;  pvp offset
$Petadd = _MemoryRead($pointer, $ID) + 0x000FC4A8; pet lver
ElseIf $country = 'Esp' Then
$pointer = 0x105D4318; the pointer is *insert pointer*
$skilladd = _MemoryRead($pointer, $ID) + 0x000FC534; Skill Speed offset
$Attkadd = _MemoryRead($pointer, $ID) + 0x000FC4A8; attack speed offset
$runadd = _MemoryRead($pointer, $ID) + 0x000FC4A0; run speed offset
$rangeadd = _MemoryRead($pointer, $ID) + 0x000FC4A4;  range offset
$Monsadd = _MemoryRead($pointer, $ID) + 0x000FC0E0;  pvp offset
$Petadd = _MemoryRead($pointer, $ID) + 0x000FC4A8; pet lver
Endif


$form = GUICreate("LC " & $country1 or $country2 & " Hack Public - gOHc -" & $version, 500, 300); Creates a GUI window
GUISetOnEvent($GUI_EVENT_CLOSE, "onautoitexit"); puts it on the event to close
GUISetBkColor(0xFFFFFF); sets the background color to black
$listText = GUICtrlCreateList("                  - Hack Made - Bode.                         Acesse / Visite nuestro sitio web - www.gOHc.webnode.com -                          Atenção / Atención: Evite usar este software perto de outros players - [Evite el uso de este software en torno a otros jugadores]                                      Este Software é/es totalmente FREE.                                                     Para maiores [más] informações [información] deixe [dejar] mensagens [mensajes] no [en el] Site [sitio web] ( Atravez do Chat )                          Equipe gOHc Agradece sua Escolha . ", 50, 10, 306, 40, 10) ; a label (change it to your name
GUICtrlSetFont(-1, 17, 400, 2, "Impact"); font
GUICtrlSetColor(-1, 0x000000); color
GUICtrlCreateLabel("Atenção : Se ativar Attack Speed nao ative o Pet Lever",10,280,550)
GUICtrlCreateLabel("Atención: Si activa la Attack Speed no permitir lo Pet Lever",10,260,570)
GUICtrlSetColor(-1, 0x0012FF)
GUICtrlCreateGroup("Info",348,200,140,80)
GUICtrlCreateLabel("Ver:",355,215,570)
GUICtrlSetColor(-1, 0x0012FF)
GUICtrlCreateLabel("N°:",355,235,570)
GUICtrlSetColor(-1, 0x0012FF)
GUICtrlCreateLabel("Made:",355,255,570)
GUICtrlSetColor(-1, 0x0012FF)
GUICtrlCreateLabel("Publica Multi-Versao",386,215,570)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("4.40",386,235,570)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("Bode - gOHc",386,255,570)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateButton("Botao",200,300,20)
$Attk = GUICtrlCreateCheckbox("Attack Speed (Low) ", 290, 80, 121, 17)
GUICtrlCreateGroup("Principais",280,64,180,120)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$run = GUICtrlCreateCheckbox("Super Run Speed", 290, 140, 121, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Pet = GUICtrlCreateCheckbox("Pet Lever", 290, 160, 121, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$CustomMons = GUICtrlCreateCheckbox("Monster Level", 65, 170, 121, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$range = GUICtrlCreateCheckbox("2x Range", 290, 100, 121, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Customattk = GUICtrlCreateCheckbox("Custom Attack Speed", 65, 110, 121, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Customrun = GUICtrlCreateCheckbox("Custom Run Speed", 65, 140, 121, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$skill = GUICtrlCreateCheckbox("Super Skill", 290, 120, 121, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$CustomRange = GUICtrlCreateCheckbox("Custom Range", 65, 80, 121, 17)
GUICtrlCreateGroup("Custom",50,64,190,140)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$AttackSpeed = GUICtrlCreateInput("1", 190, 110, 41, 21)
$Runspeed = GUICtrlCreateInput("12", 190, 140, 41, 21)
$Range1 = GUICtrlCreateInput("30", 190, 80, 41, 21)
$Mons1 = GUICtrlCreateInput("1", 190, 170, 41, 21)
GUISetState(@SW_SHOW)
While 1
Sleep(250)
     $s_TempText = GUICtrlRead($listText)
     GUICtrlSetData($listText, "|" & StringTrimLeft($s_TempText, 1)  & StringLeft($s_TempText, 1))

   If GUICtrlRead($Attk) = 1 Then
       _MemoryWrite($Attkadd, $ID, 8)
   EndIf
   If GUICtrlRead($run) = 1 Then
       _MemoryWrite($runadd, $ID, 15, 'float')
   EndIf
   If GUICtrlRead($Pet) = 1 Then
       _MemoryWrite($Petadd, $ID, 35)
   EndIf
   If GUICtrlRead($CustomMons) = 1 Then
       _MemoryWrite($Monsadd, $ID, GUICtrlRead($Mons1))
   EndIf
   If GUICtrlRead($range) = 1 Then
       _MemoryWrite($rangeadd, $ID, 30, 'float')
   EndIf
   If GUICtrlRead($skill) = 1 Then
       _MemoryWrite($skilladd, $ID, 2)
   EndIf
   If GUICtrlRead($Customattk) = 1 Then
       _MemoryWrite($Attkadd, $ID, GUICtrlRead($AttackSpeed))
   EndIf
   If GUICtrlRead($Customrun) = 1 Then
       _MemoryWrite($runadd, $ID, GUICtrlRead($Runspeed), 'float')
   EndIf
   If GUICtrlRead($CustomRange) = 1 Then
       _MemoryWrite($rangeadd, $ID, GUICtrlRead($Range1), 'float')
   EndIf
WEnd




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  ;==>_MemoryOpen
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  ;==>_MemoryRead
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  ;==>_MemoryWrite

Func _gercheck()
Local $n2,$1,$2
   GUICreate("Multi Version",200,100)
   GUICtrlCreateGroup("Choose a version",0,30,200,100)
   $1 = GUICtrlCreateRadio("Version Brazil", 60, 50, 120, 20)
   GUICtrlSetState(-1,$GUI_CHECKED)
   $2 = GUICtrlCreateRadio("Version España", 60, 69, 120, 20)
   $n2 = GUICtrlCreateButton("Start Program", 10, 1, 75)
   GUISetState(@SW_SHOW)
   While 1
       $country = GUICtrlRead($1)
    $country = GUICtrlRead($2)
        Select
            Case $n2
                If GUICtrlRead ($2) = $GUI_CHECKED Then
                    Global $country = 'BRA'
                ElseIf GUICtrlRead ($2) = $GUI_CHECKED Then
                    Global $country = 'Esp'
                EndIf
            EndSelect
    WEnd
EndFunc



Func _MsgBoxEx($iFlag, $sTitle, $sText, $iTime = 0, $sCIDChange = '')
   Local $_MsgBox_ = '"' & "ConsoleWrite(MsgBox(" & $iFlag & ', ""' & $sTitle & '"", ""' & $sText & '"", ' & $iTime & '"))'
   Local $iPID = Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $_MsgBox_, '', @SW_SHOW, 6)
   Do
       Sleep(10)
   Until WinExists($sTitle)
   If IsArray($sCIDChange) Then
       For $iCC = 1 To UBound($sCIDChange) - 1
           ControlSetText($sTitle, '', 'Button' & $iCC, $sCIDChange[$iCC])
       Next
   Else
       ControlSetText($sTitle, '', 'Button1', $sCIDChange)
   EndIf
   While ProcessExists($iPID)
       Local $iStdOut = StdoutRead($iPID)
       If Number($iStdOut) Then Return $iStdOut
       Sleep(10)
   WEnd
   If IsArray($sCIDChange) Then Return SetError(1, 0, 2)
   Return SetError(1, 0, 1)
EndFunc  ;==>_MsgBoxEx

Func onautoitexit()
   Exit
EndFunc  ;==>onautoitexit

FuryCell · October 18, 2009

Your version script was pretty messed up. It did not have GUIGetMSG and had several other things wrong with it. I fixed it up. Change the code where the msgbox is to suit your needs. Best of luck. -Mike

#include <GUIConstantsEx.au3>
Local $n2, $1, $2
GUICreate("Multi Version", 200, 100)
GUICtrlCreateGroup("Choose a version", 0, 30, 200, 100)
$1 = GUICtrlCreateRadio("Version Brazil", 60, 50, 120, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$2 = GUICtrlCreateRadio("Version España", 60, 69, 120, 20)
$n2 = GUICtrlCreateButton("Start Program", 10, 1, 75)
GUISetState(@SW_SHOW)
While 1
    $country = GUICtrlRead($1)
    $country = GUICtrlRead($2)
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $n2
            If GUICtrlRead($1) = $GUI_CHECKED Then
                Global $country = 'BRA'
            ElseIf GUICtrlRead($2) = $GUI_CHECKED Then
                Global $country = 'Esp'
            EndIf
            MsgBox(0, "Starting", "Version is:" & $country);Change code here to suit your needs
    EndSelect
WEnd

Edited October 18, 2009 by P5ych0Gigabyte

October 18, 2009

Edit :

I did it, but is not closing the "Multiversion" when selected

I left so:

Local $n2, $1, $2
GUICreate("Multi Version", 200, 100)
GUICtrlCreateGroup("Choose a version", 0, 30, 200, 100)
$1 = GUICtrlCreateRadio("Version Brazil", 60, 50, 120, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$2 = GUICtrlCreateRadio("Version España", 60, 69, 120, 20)
$n2 = GUICtrlCreateButton("Start Program", 10, 1, 75)
GUISetState(@SW_SHOW)
While 1
    $country = GUICtrlRead($1)
    $country = GUICtrlRead($2)
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $n2
            If GUICtrlRead($1) = $GUI_CHECKED Then
                Global $country = 'BRA'
                        runp() ; i add this here for work
            ElseIf GUICtrlRead($2) = $GUI_CHECKED Then
                Global $country = 'Esp'
                        runp() ;i add this here for work
            EndIf
            MsgBox(0, "Starting", "Version is:" & $country);Change code here to suit your needs
    EndSelect
WEnd

Edit:

Already solved this problem with the

GUIDelete($Form1)

Edited October 18, 2009 by 10031992

Sign In

[Help] My script does not load

Recommended Posts

10031992

FuryCell

10031992

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta