Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 00:38

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

Advertisement



Was ist falsch?

Discussion on Was ist falsch? within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 1
Join Date: Apr 2012
Posts: 623
Received Thanks: 34
Was ist falsch?

Hallo AutoIt Sektion,

Ich wollte nachfragen was an diesen Code falsch ist?

Code:
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("-[P]rivate- 'n' -Ryo- Trainer P21 v5.0", 336, 295, 192, 124)
GUISetIcon("C:\Documents and Settings\usuario\Escritorio\Conan-Icono.ico", -1)
$Group1 = GUICtrlCreateGroup("Delays", 16, 16, 145, 121)
$Checkbox1 = GUICtrlCreateCheckbox("WallJump-Delay", 24, 32, 105, 33)
$Checkbox2 = GUICtrlCreateCheckbox("Dodge-Delay", 24, 56, 121, 41)
$Checkbox3 = GUICtrlCreateCheckbox("Jump-LandDelay", 24, 88, 121, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Unlimited", 176, 16, 145, 137)
$Checkbox4 = GUICtrlCreateCheckbox("Sp Skill's", 184, 32, 113, 33)
$Checkbox5 = GUICtrlCreateCheckbox("1 hit Kill", 184, 56, 97, 41)
$Checkbox6 = GUICtrlCreateCheckbox("Wall Hack", 184, 88, 105, 33)
$Checkbox9 = GUICtrlCreateCheckbox("Unlimited Ammo", 184, 120, 105, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("START", 184, 184, 121, 25)
$Group3 = GUICtrlCreateGroup("Others", 16, 144, 145, 89)
$Checkbox7 = GUICtrlCreateCheckbox("Accuracy", 24, 160, 113, 25)
$Checkbox8 = GUICtrlCreateCheckbox("Fast Fire", 24, 192, 105, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input1 = GUICtrlCreateInput("max:3", 240, 160, 73, 21)
$Label1 = GUICtrlCreateLabel("Speed : ", 184, 160, 44, 17)
$Label2 = GUICtrlCreateLabel("Made by -[P]rivate- 'n' -Ryo-", 56, 248, 223, 17)
GUICtrlSetFont(-1, 10, 800, 0, "BankGothic Lt BT")
GUICtrlSetColor(-1, 0xFF0000)
$Button2 = GUICtrlCreateButton("Instruccions", 184, 208, 121, 25)
$Label3 = GUICtrlCreateLabel("Trainer V1.0", 272, 272, 62, 17)
GUICtrlSetColor(-1, 0x808080)
$CLOSE = GUICtrlCreateButton("CLOSE", 8, 272, 65, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
GUISetState(@SW_HIDE)
_Atencion()
_Waiting()
_Fin()

Case $GUI_EVENT_CLOSE
Exit

Case $Button2
_Instruccion()

Case $GUI_EVENT_CLOSE
Exit

Case $CLOSE
Exit 0

Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

If $Checkbox1 = 1 Then
_WallJump()
Else
$Checkbox1 = 0
EndIf

If $Checkbox2 = 1 Then
_DodgeDelay()
Else
$Checkbox2 = 0
EndIf

If $Checkbox3 = 1 Then
_JumpLandDelay()
Else
$Checkbox3 = 0
EndIf

If $Checkbox4 = 1 Then
_SPSkills()
Else
$Checkbox4 = 0
EndIf

If $Checkbox5 = 1 Then
_1HitKill()
Else
$Checkbox5 = 0
EndIf

If $Checkbox6 = 1 Then
_WallHack()
Else
$Checkbox6 = 0
EndIf

If $Checkbox7 = 1 Then
_Accuracy()
Else
$Checkbox7 = 0
EndIf

If $Checkbox8 = 1 Then
_FastFire()
Else
$Checkbox8 = 0
EndIf

If $Checkbox9 = 1 Then
_UnlimitedAmmo()
Else
$Checkbox9 = 0
EndIf

Func _Instruccion()
MsgBox(0, "Instruccions", "Choose your favourite hacks and press Start - Thx -[P]rivate- and -Ryo-")
EndFunc
Sleep(0)

Func _Atencion()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Atencion", 206, 111, 223, 231)
GUISetIcon("C:\Documents and Settings\usuario\Escritorio\atencion icon.ico", -1)
$Button1 = GUICtrlCreateButton("Abort", 56, 32, 89, 25)
$Label1 = GUICtrlCreateLabel("Do you wanna abort?", 40, 8, 125, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Button2 = GUICtrlCreateButton("Continue", 56, 64, 89, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
ProcessClose("P21 v5.0 -[P]rivate- Trainer.exe")
Exit

Case $GUI_EVENT_CLOSE
Exit

Case $Button2
GUISetState(@SW_HIDE)
_Waiting()
_Fin()

Case $GUI_EVENT_CLOSE
Exit




EndSwitch
WEnd
EndFunc

Func _Waiting()
ToolTip("Waiting 4 S4Client.exe...",0,0)
Sleep(500)
$EXISTS=PROCESSWAIT("S4Client.exe")
$OPEN=_MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
EndFunc
Sleep(2000)




Func _WallJump()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$WallJumpDelay = 0x00D3C9F4

_MEMORYWRITE($WallJumpDelay, $OPEN, "-1", "char[3]")
EndFunc
Sleep(1)

Func _DodgeDelay()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$DodgeDelay = 0x00D3C99C

_MEMORYWRITE($DodgeDelay, $OPEN, "-1", "char[3]")
EndFunc
Sleep(1)


Func _JumpLandDelay()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$JumpLandDelay = 0x00D3CB88

_MEMORYWRITE($JumpLandDelay, $OPEN, "-1", "char[3]")
EndFunc
Sleep(1)

Func _SPSkills()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$SP1 = 0x00D382B0
$Sp2 = 0x00D3C908
$Sp3 = 0X00D3C962
$Sp4 = 0X00D3C9B9
$Sp5 = 0X00D3C9D1

_MEMORYWRITE($SP1, $OPEN, "-1", "char[3]")
_MEMORYWRITE($SP2, $OPEN, "-1", "char[3]")
_MEMORYWRITE($SP3, $OPEN, "-1", "char[3]")
_MEMORYWRITE($SP4, $OPEN, "-1", "char[3]")
_MEMORYWRITE($SP5, $OPEN, "-1", "char[3]")
EndFunc
Sleep(1)

Func _1HitKill()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$Hit1 = 0x00D38BC0
$Hit2 = 0x00D3C29A
$hit3 = 0x00D3FC47
$hit4 = 0x00D3F244
$Hit5 = 0x0198AD27
$Hit6 = 0x01B816F3

_MEMORYWRITE($Hit1, $OPEN, "range", "char[6]")
_MEMORYWRITE($Hit2, $OPEN, "range", "char[6]")
_MEMORYWRITE($Hit3, $OPEN, "range", "char[6]")
_MEMORYWRITE($Hit4, $OPEN, "range", "char[6]")
_MEMORYWRITE($Hit5, $OPEN, "range", "char[6]")
_MEMORYWRITE($Hit6, $OPEN, "range", "char[6]")
EndFunc
Sleep(1)

Func _WallHack()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$Wall1 = 0x00CEC13E
$Wall2 = 0x00D38318
$Wall3 = 0x00D38328
$Wall4 = 0x00D38C64
$Wall5 = 0x00D38C74
$Wall6 = 0x00D9AF84
$Wall7 = 0x01977CC8
$Wall8 = 0x019817DD
$Wall9 = 0x0198AB90
$Wall10 = 0x01991873
$Wall11 = 0x01991B94
$Wall12 = 0x01991BA4
$Wall13 = 0x01991BB4

_MEMORYWRITE($Wall1, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall2, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall3, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall4, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall5, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall6, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall7, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall8, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall9, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall10, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall11, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall12, $OPEN, "float", "char[6]")
_MEMORYWRITE($Wall13, $OPEN, "float", "char[6]")
EndFunc
Sleep(1)

Func _UnlimitedAmmo()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$Ammo1 = 0x00D38BF0
$Ammo2 = 0x00D38C0C
_MEMORYWRITE($Ammo1, $OPEN, "max_ammo", "char[9]")
_MEMORYWRITE($Ammo2, $OPEN, "max_ammo", "char[9]")
EndFunc
Sleep(1)

Func _Accuracy()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$Accuracy1 = 0x00D3F078

_MEMORYWRITE($Accuracy1, $OPEN, "-1", "char[3]")
EndFunc
Sleep(1)

Func _FastFire()
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
$FastFire1 = 0x00D38BB0

_MEMORYWRITE($FastFire1, $OPEN, "jump_time", "char[10]")
EndFunc
Sleep(1)



Func _Fin()
ToolTip("The injection was a succesfull.", 0, 0)
$EXISTS = PROCESSWAIT("S4Client.exe")
$OPEN = _MEMORYOPEN(PROCESSEXISTS("S4Client.exe"))
Sleep(100)
Exit
EndFunc
"-IceCold-" is offline  
Old 05/07/2012, 13:46   #2
 
elite*gold: 0
Join Date: Mar 2011
Posts: 8,645
Received Thanks: 3,454
1. Keine includes
2. Die Variablen der Form 2 sind schon bei Form 1 verwendet
Freddy​ is offline  
Old 05/07/2012, 13:50   #3
 
lolkop's Avatar
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
Code:
[...]
While 1
[...]
WEnd
//////////////////////////////////////////////
Ab Hier kann nichts mehr erreicht werden
//////////////////////////////////////////////
If $Checkbox1 = 1 Then
[...]
EndIf
[...]
Habe mal recht eindeutig gekennzeichnet was nicht funktionieren kann....
lolkop is offline  
Old 05/07/2012, 13:59   #4
 
elite*gold: 1
Join Date: Apr 2012
Posts: 623
Received Thanks: 34
Also alles neu._.?
"-IceCold-" is offline  
Old 05/07/2012, 14:02   #5
 
elite*gold: 0
Join Date: Mar 2011
Posts: 8,645
Received Thanks: 3,454
Und warum öffnest du die Memory bei jedem ändern der Werte neu?
Freddy​ is offline  
Old 05/07/2012, 14:06   #6
 
lolkop's Avatar
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
du hast eine endlosschleife.
der einzige weg aus dieser schleife ist der exit befehl.

das heist doch im logischen schluss, dass nichts, was sich hinter dieser schleife befindet, je erreicht werden kann.

das einzige was autoit dennoch annerkennt, sind funktionen, da bei einem funktionsaufruf der code nach eben dieser funktion durchsucht wird.

willst du deine checkbox abfragen in deinem code behalten, müssen sie selbstverständlich in die endlosschleife mit eingebaut werden. davon abgesehen beinhalten deine $Control variablen lediglich die control-handles. deshalb macht es keinen sinn zu schauen ob die handles =1 sind.
für derartige control abfragen gibt es die GUICtrlGetState und GUICtrlRead funktionen.
lolkop is offline  
Reply


Similar Threads Similar Threads
Was falsch?
06/26/2011 - Metin2 Private Server - 6 Replies
Was ist an der Quest falsch? quest Ringwarpquuest2 begin state start begin when 40002.use begin say_title("Ring der Ferne") say("Hallo ".. pc.get_name() ..",") say("ich bin der Ring der Ferne. Ich") say("führe meine Träger in weit entfernte")
[C++]Was ist Falsch?
10/17/2010 - C/C++ - 7 Replies
Ich weiss das mein Script nicht sonderlich schwer oder so ist aber bei mir kommen immer 2Fehler beim Kompilieren //Wurzel-If-Else-Schleife #include <iostream> #include <cmath> using namespace std; int main () { double eingabe; double wurzel;
Was ist Falsch?
09/28/2010 - General Coding - 6 Replies
Hallo Leute ich hätte mal ne Frage was ist an dem Script falsch?? Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) My.Computer.Keyboard.SendKeys("y")
End Falsch?=
04/28/2010 - Metin2 Private Server - 1 Replies
Hey liebe Com quest Waffenhändler begin state start begin when 9001.chat."Krieger Waffen" begin npc.open_shop(5558) say("Hier kannst du deine Waffen für Krieger kaufen") say("Mit dem steigenden Level verliert die + Zahl!") end when 9002.chat."Krieger Rüstungen" begin
Was ist da falsch?
09/16/2008 - Guild Wars - 7 Replies
Func bosscheck() If PixelChecksum(407, 21, 597, 31) = 2898646607 Then RandomSleep(500, 700) Call("fight1") Else RandomSleep(200, 400) Send("{TAB}") If PixelChecksum(407, 21, 597, 31) = 2898646607 Then RandomSleep(500, 700) Call("fight1")



All times are GMT +2. The time now is 00:38.


Powered by vBulletin®
Copyright ©2000 - 2024, 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 ©2024 elitepvpers All Rights Reserved.