Wo ist die 5???

12/20/2009 12:21 WiiZocker#1
Hi

Habe einen Bot geschrieben, für Nostale.Teste den erst mit dem Editor.
So, Wenn ich 'Aufsammeln' Anhake drückt er immer die 5 statt den Buchstabe den man eingiebt...Find die % einfach ned bitte Helft mir:confused:

Code:
#include <GUIConstants.au3>
Global $Paused
$running = false
HotKeySet("{PAUSE}", "Pause")
$windowname = "Unbenannt - Editor"
#Region ### START Koda GUI section ### Form=C:\Users\brtheuer\Desktop\LevelFreak By Jan25051\Levelfreak Koda Projekt.kxf
$Levelfreak = GUICreate("LevelFreak By Jan25051", 462, 568, 274, 133)
$Aufsammel = GUICtrlCreateCheckbox("Aufsammeln", 8, 40, 105, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Angreifen = GUICtrlCreateCheckbox("Angreifen", 328, 40, 105, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$AufSamTaste = GUICtrlCreateInput("Aufsammel Taste", 136, 48, 161, 21)
$Skilltaste1 = GUICtrlCreateCheckbox("Skill Auf Taste 1", 0, 272, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Skilltaste2 = GUICtrlCreateCheckbox("Skill Auf Taste 2", 5, 310, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$StartButton = GUICtrlCreateButton("Starten!!!", 128, 448, 185, 49, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Skilltaste3 = GUICtrlCreateCheckbox("Skill Auf Taste 3", 6, 348, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Skilltaste4 = GUICtrlCreateCheckbox("Skill Auf Taste 4", 2, 387, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Aufsammelgrp = GUICtrlCreateGroup("Aufsammeln", 0, 24, 321, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Skilleing1 = GUICtrlCreateInput("Wielange zwischen Drücken Warten (In Millisekunden)", 143, 273, 281, 21)
$Skilleing2 = GUICtrlCreateInput("Wielange zwischen Drücken Warten (In Millisekunden)", 147, 314, 281, 21)
$Skilleing3 = GUICtrlCreateInput("Wielange zwischen Drücken Warten (In Millisekunden)", 150, 349, 281, 21)
$Skilleing4 = GUICtrlCreateInput("Wielange zwischen Drücken Warten (In Millisekunden)", 149, 390, 281, 21)
$Skillgrp = GUICtrlCreateGroup("Skills Benutzen", 0, 248, 449, 177)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Stoppen = GUICtrlCreateButton("Stoppen", 128, 504, 185, 49, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Schlafen = GUICtrlCreateCheckbox("Schlafen", 8, 128, 105, 49)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$WielangeLeveln = GUICtrlCreateInput("Wielange Leveln?", 136, 128, 289, 21)
$WielangeSchlafen = GUICtrlCreateInput("Wielange muss Geschlafen werden?", 136, 160, 289, 21)
$Schlafgrp = GUICtrlCreateGroup("Schlaf Option", 0, 104, 441, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func Start()
	$running = NOT $running
EndFunc



Func Pause()
	$Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
    EndFunc



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE

	Case $StartButton
		Start()
	Case $Stoppen
		 Pause()






EndSwitch

Angreifen()

Aufsammeln()

Skill1()

Skill2()

Skill3()

Skill4()

Schlafen()

WEnd

Func Angreifen()
	if BitAnd(GUICtrlRead($Angreifen), $GUI_CHECKED) THEN
				ControlSend($windowname, '', '', "{SPACE}")
				Sleep(350)
	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
	EndIf
EndFunc

Func Aufsammeln()
	if BitAnd(GUICtrlRead($Aufsammel), $GUI_CHECKED) THEN
				ControlSend($windowname, '', '', $AufSamTaste)
				Sleep(1500)
	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
	EndIf
EndFunc

Func Skill1()
	if BitAnd(GUICtrlRead($Skilltaste1), $GUI_CHECKED) THEN
				Sleep($Skilleing1)
				ControlSend($windowname, '', '', "1")
				
	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
	EndIf
EndFunc

Func Skill2()
	if BitAnd(GUICtrlRead($Skilltaste2), $GUI_CHECKED) THEN
					Sleep($Skilleing2)
				ControlSend($windowname, '', '', "2")
			
	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
	EndIf
EndFunc

Func Skill3()
	if BitAnd(GUICtrlRead($Skilltaste3), $GUI_CHECKED) THEN
				Sleep($Skilleing3)
				ControlSend($windowname, '', '', "3")
				
	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
	EndIf
EndFunc

Func Skill4()
	if BitAnd(GUICtrlRead($Skilltaste4), $GUI_CHECKED) THEN
				Sleep($Skilleing4)
				ControlSend($windowname, '', '', "4")
				
	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
	EndIf
EndFunc


Func Schlafen()
	if BitAnd(GUICtrlRead($Schlafen), $GUI_CHECKED) THEN
				Sleep($WielangeLeveln)
				ControlSend($windowname, '', '', "C")
				Sleep($WielangeSchlafen)
				ControlSend($windowname, '', '', "C")
	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
	EndIf
EndFunc
Findet ihr die 5?

mfg WiiZocker;)
12/20/2009 12:24 UniSoul#2
Habe jetzt auch alles Durchgeguckt aber finde die 5 auch nicht :awesome:
12/20/2009 12:26 faflkakfakfkkfpqrstuhhwa#3
bei skilltaste 2 steht eine 5^^
12/20/2009 16:43 WiiZocker#4
Suche die 5 bei Aufsammeln da wird die immer ausgegeben...

mfg
12/20/2009 20:33 kknb#5
ControlSend($windowname, '', '', guictrlread($AufSamTaste))

hf
12/20/2009 23:36 | Moep |#6
Here they are!!!

[Only registered and activated users can see links. Click Here To Register...]
12/21/2009 12:31 WiiZocker#7
kknb Thx jetzt funktionierts richtig Thx und xD da steht nicht hilfsbereit bei dir unterm bild^^ ich bin anderer meinung thx

mfg glücklicher wiizocker^^

soweit so gut(=.
Ich habe noch eine klitze kleine Frage an euch(;
(Dafür will ich jetzt nicht extra ein Thread aufmachen)

Unzwar habe ich ein Problem mit den sleep bei der schlaf funktion.
Wenn man den Haken bei schlafen setzt und auch die Zeiten eingiebt,
soll er ja bis zu der ersten zeit (Wielange Leveln) leveln dann die zeit sitzen,
und dann wieder weiterleveln aber er macht es nicht ganz so...

Er Levelt nicht am anfang sondern wartet die zeit bis er sich setzen soll.Dann sitzt er und steht nach einer weile wieder auf,drückt 1 oder 2 mal Leertaste und sitzt auch schon wieder hmmm...

Bitte Helft mir.

Hier nochmal der Code...

Code:
#include <GUIConstants.au3>
Global $Paused
$running = false
HotKeySet("{PAUSE}", "Pause")
$windowname = "Unbenannt - Editor"
#Region ### START Koda GUI section ### Form=C:\Users\brtheuer\Desktop\LevelFreak By Jan25051\Levelfreak Koda Projekt.kxf
$Levelfreak = GUICreate("LevelFreak By Jan25051", 462, 568, 274, 133)
$Aufsammel = GUICtrlCreateCheckbox("Aufsammeln", 8, 40, 105, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Angreifen = GUICtrlCreateCheckbox("Angreifen", 328, 40, 105, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$AufSamTaste = GUICtrlCreateInput("Aufsammel Taste", 136, 48, 161, 21)
$Skilltaste1 = GUICtrlCreateCheckbox("Skill Auf Taste 1", 0, 272, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Skilltaste2 = GUICtrlCreateCheckbox("Skill Auf Taste 2", 5, 310, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Starten = GUICtrlCreateCheckbox("Starten!!!", 160, 448, 97, 33)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Skilltaste3 = GUICtrlCreateCheckbox("Skill Auf Taste 3", 6, 348, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Skilltaste4 = GUICtrlCreateCheckbox("Skill Auf Taste 4", 2, 387, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Aufsammelgrp = GUICtrlCreateGroup("Aufsammeln", 0, 24, 321, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Skilleing1 = GUICtrlCreateInput("Wielange zwischen Drücken Warten (In Millisekunden)", 143, 273, 281, 21)
$Skilleing2 = GUICtrlCreateInput("Wielange zwischen Drücken Warten (In Millisekunden)", 147, 314, 281, 21)
$Skilleing3 = GUICtrlCreateInput("Wielange zwischen Drücken Warten (In Millisekunden)", 150, 349, 281, 21)
$Skilleing4 = GUICtrlCreateInput("Wielange zwischen Drücken Warten (In Millisekunden)", 149, 390, 281, 21)
$Skillgrp = GUICtrlCreateGroup("Skills Benutzen", 0, 248, 449, 177)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Schlafen = GUICtrlCreateCheckbox("Schlafen", 8, 128, 105, 49)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$WielangeLeveln = GUICtrlCreateInput("Wielange Leveln?", 136, 128, 289, 21)
$WielangeSchlafen = GUICtrlCreateInput("Wielange muss Geschlafen werden?", 136, 160, 289, 21)
$Schlafgrp = GUICtrlCreateGroup("Schlaf Option", 0, 104, 441, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func Start()
	$running = NOT $running
EndFunc



Func Pause()
	$Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
    EndFunc



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE

	Case $Starten
		Start()






EndSwitch

Angreifen()

Aufsammeln()

Skill1()

Skill2()

Skill3()

Skill4()

Schlafen()

WEnd

Func Angreifen()

	If BitAnd(GUICtrlRead($Starten), $GUI_CHECKED) Then
	if BitAnd(GUICtrlRead($Angreifen), $GUI_CHECKED) THEN

				ControlSend($windowname, '', '', "{SPACE}")
		Sleep(350)

	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
			EndIf
		EndIf

EndFunc

Func Aufsammeln()
	If BitAnd(GUICtrlRead($Starten), $GUI_CHECKED) Then
	if BitAnd(GUICtrlRead($Aufsammel), $GUI_CHECKED) THEN
				ControlSend($windowname, '', '', guictrlread($AufSamTaste))
				Sleep(1000)
	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
			EndIf
			EndIf
EndFunc

Func Skill1()
	If BitAnd(GUICtrlRead($Starten), $GUI_CHECKED) Then
	if BitAnd(GUICtrlRead($Skilltaste1), $GUI_CHECKED) THEN
				Sleep($Skilleing1)
				ControlSend($windowname, '', '', "1")

	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
			EndIf
			EndIf
EndFunc

Func Skill2()
	If BitAnd(GUICtrlRead($Starten), $GUI_CHECKED) Then
	if BitAnd(GUICtrlRead($Skilltaste2), $GUI_CHECKED) THEN
					Sleep($Skilleing2)
				ControlSend($windowname, '', '', "2")

	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
			EndIf
			EndIf
EndFunc

Func Skill3()
	If BitAnd(GUICtrlRead($Starten), $GUI_CHECKED) Then
	if BitAnd(GUICtrlRead($Skilltaste3), $GUI_CHECKED) THEN
				Sleep($Skilleing3)
				ControlSend($windowname, '', '', "3")

	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
			EndIf
			EndIf
EndFunc

Func Skill4()
	If BitAnd(GUICtrlRead($Starten), $GUI_CHECKED) Then
	if BitAnd(GUICtrlRead($Skilltaste4), $GUI_CHECKED) THEN
				Sleep($Skilleing4)
				ControlSend($windowname, '', '', "4")

	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
			EndIf
			EndIf
EndFunc


Func Schlafen()
	If BitAnd(GUICtrlRead($Starten), $GUI_CHECKED) Then
	if BitAnd(GUICtrlRead($Schlafen), $GUI_CHECKED) THEN



			Sleep(guictrlread($WielangeLeveln))
			ControlSend($windowname, '', '', "C")



			Sleep(guictrlread($WielangeSchlafen))
			ControlSend($windowname, '', '', "C")



	Else
				;NIX TUN --> WEIL NICHT AUSGEWÄHLT
			EndIf
			EndIf
		EndFunc
Fazit: er soll sleepen und leertaste drücken(=
Bitte helft mir(=
12/21/2009 18:11 | Moep |#8
guck dir mal TimerInit und TimerDiff an. Damit kannst du die Zeit erfassen ohne das Script zu pausieren

Bsp:

Code:
$Timer = TimerInit ()
Do
	Send("{SPACE}")
	Sleep(1000)
Until TimerDiff($Timer) > 10000
12/21/2009 19:53 WiiZocker#9
Ich probiere das mal^^ Thx das du mir so viel hilfst ;)
GIBST AUCH THX WENNS KLAPPT xD

Edit: Wo muss ich das einfügen? habs zwar ohne Probleme ausprobieren können aber er drückt entweder nicht schlafen taste oder lässt sich nicht starten und stoppen
12/21/2009 21:58 | Moep |#10
Na überleg mal wie die timer demo von mir funktioniert.
Wenn du verstanden hast warum des funktioniert, dann kannst du es auch in dein script einbinden. Einfach nur c&p is nich...
;)
12/22/2009 18:27 WiiZocker#11
Hmm lol^^

Eingebaut hab ich es ja auch schon,nur das funktioniert nicht so wie es soll)=
Bitte zeig mir wie man das RICHTIGEinbaut.

bitte...
12/22/2009 21:38 Xereon#12
Quote:
Originally Posted by WiiZocker View Post
Hmm lol^^

Eingebaut hab ich es ja auch schon,nur das funktioniert nicht so wie es soll)=
Bitte zeig mir wie man das RICHTIGEinbaut.

bitte...
Bitte bitte bitte gebt mir mal 100$

Also mal ehrlich, wenn du an deine Probleme mit solch einer Einstellung ran gehts, wirst du nicht ehr weit kommen.

Ich geb dir einfach 3 Begriffe die dir helfen werden:
If,TimerDiff,TimerInit

Wenn du es immer noch nicht verstehts, wie man sowas einbaut, dann hast du noch nicht einmal die Grundlagen von AutoIT verstanden. -.-
12/22/2009 23:18 WiiZocker#13
^^
12/23/2009 18:46 Shadow992#14
Quote:
Originally Posted by Xereon View Post
Wenn du es immer noch nicht verstehts, wie man sowas einbaut, dann hast du noch nicht einmal die Grundlagen von AutoIT verstanden. -.-
Zu den Grundlagen gehört auch sich über irgendeine andere sehr bekannte Seite (GOOGLE!!!) informationen zu beschaffen und die in AutoIT beigelegte Hilfe-Datei zu benutzen ...

Manchen fehlen leider diese 2 Grundlagen und dann wird derjenige , der diese Grundlagen nicht beherrscht nie etwas "gescheites" und vorallem nützliches code können ...

Das wollen nur leider viele nicht verstehen ...
12/24/2009 13:06 WiiZocker#15
Meinste Wikepedia?