AutoIt Problem

~~v0lle~~ · 05/24/2010, 03:56

hey community

ich hab ein problem^^
unzwar will ich das senden von F12 an 4story beenden mit einem Stop bzw Aus button also ich will die dauerschlaufe pausieren gar beenden
und wenn ich wieder an drücke wieder starten^^

bloß ich weiß nicht wie deshalb frag ich mal^^

Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>



$Form1 = GUICreate("GE_Bot", 467, 292, 192, 124)
GUICtrlCreateTab(0, 0, 465, 289)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)

$GE_Bot = GUICtrlCreateTabItem("test")
$Button1 = GUICtrlCreateButton("An", 80, 112, 121, 41, 0)
$Button2 = GUICtrlCreateButton("Aus", 240, 112, 121, 41, 0)
$Label1 = GUICtrlCreateLabel("Sendet F12 an das 4Story Fenster so das Aoe mit Skillhack dauerhaft ausgeführt wird.", 32, 176, 409, 17)

$CE = GUICtrlCreateTabItem("CE-Values")
$Values = GUICtrlCreateList("", 8, 24, 449, 253)

$Standard = GUICtrlCreateTabItem("§tandard Hacks")

$Spezial = GUICtrlCreateTabItem("§pezial Hacks")

$Porthack = GUICtrlCreateTabItem("Porthack")

$Skillhack = GUICtrlCreateTabItem("Skillhack")

$Chat = GUICtrlCreateTabItem("Chat Hack")

GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
	
Case $button1
	While 1
      ControlSend("4Story_US", "", "", "{F12}")
  Wend
  
  Case $button2


			EndSwitch
WEnd

mfg volle

huberhans · 05/24/2010, 10:03

Quote:

Originally Posted by volle14

hey community

ich hab ein problem^^
unzwar will ich das senden von F12 an 4story beenden mit einem Stop bzw Aus button also ich will die dauerschlaufe pausieren gar beenden
und wenn ich wieder an drücke wieder starten^^

bloß ich weiß nicht wie deshalb frag ich mal^^

Spoiler

mfg volle

Mach's einfach so:

Spoiler

Gruß

~~v0lle~~ · 05/24/2010, 10:38

nice ^^

thx

hab nur den timer bisschen verändert^^
weil das ja bot für 4story für den skillhack ist

kriegst ein Thanks

mfg volle

huberhans · 05/24/2010, 17:04

Quote:

Originally Posted by volle14

nice ^^

thx

hab nur den timer bisschen verändert^^
weil das ja bot für 4story für den skillhack ist

kriegst ein Thanks

mfg volle

Der Timer war ja nur als Beispiel gedacht, damit du das Sleep rausbekommst.
Wenn du nämlich mehrere Funktionen laufen lässt, musst du wissen, daß Sleep immer das ganze Script pausiert, Timer jedoch nicht!

Gruß

Lawnmove · 05/25/2010, 10:46

@ huberhans

gibts noch ne Alternative um aus ner Sleep While raus zu kommen ?
Finde Timer eher unelegant ^^

Σternαl. · 05/25/2010, 11:30

Müsste das nicht mit Adlibregister/Adlibunregister gehen?

€dit: Mit dem Adlibgedöns kann man ja nur vorgeben wie oft ne Funktion ausgeführt wird.
Ich hab gedacht das ginge weil man mit Adlibunregister die Funktion dann stoppen könnte.
Aber du willst ja solange senden, bis der Stopbutton gedrückt wird^^

Vllt gehts ja so, ist nur ne Überlegung^^

PHP Code:


			
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

Global $Check = 1

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("GE_Bot", 467, 292, 192, 124)
GUICtrlCreateTab(0, 0, 465, 289)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)

$GE_Bot = GUICtrlCreateTabItem("test")
$Button1 = GUICtrlCreateButton("An", 80, 112, 121, 41, 0)
GUICtrlSetOnEvent(-1, "_send")
$Button2 = GUICtrlCreateButton("Aus", 240, 112, 121, 41, 0)
GUICtrlSetOnEvent(-1, "_stop")
$Label1 = GUICtrlCreateLabel("Sendet F12 an das 4Story Fenster so das Aoe mit Skillhack dauerhaft ausgeführt wird.", 32, 176, 409, 17)

$CE = GUICtrlCreateTabItem("CE-Values")
$Values = GUICtrlCreateList("", 8, 24, 449, 253)

$Standard = GUICtrlCreateTabItem("§tandard Hacks")

$Spezial = GUICtrlCreateTabItem("§pezial Hacks")

$Porthack = GUICtrlCreateTabItem("Porthack")

$Skillhack = GUICtrlCreateTabItem("Skillhack")

$Chat = GUICtrlCreateTabItem("Chat Hack")

GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)


While 1
    sleep(10)
WEnd

Func _send()
    $Check = 1
    
    Do
        ControlSend("4Story_US", "", "", "{F12}")
        sleep(5)
    While $Check = 1
EndFunc
    
Func _stop()
    $Check = 2
EndFunc

Lawnmove · 05/25/2010, 14:53

jo habe mit AdlibRegister auch schon rumgemacht, aber kann inner while nix steuern
aber OnEvent tuts ja auch obwohls mir für an/aus auch zuviel an code ist

huberhans · 05/25/2010, 18:08

Quote:

Originally Posted by Lawnmove

@ huberhans

gibts noch ne Alternative um aus ner Sleep While raus zu kommen ?
Finde Timer eher unelegant ^^

Ich persönlich arbeite halt gern mit Timer, hab damit für meine Bedürfnisse halt bislang immer die besten Ergebnisse erzielt

Gruß

Lawnmove · 05/25/2010, 20:14

Normal schon stimmt wohl, ich arbeite an ne`m extravaganten Spambot der mehrere
Lines zugleich send soll und da haben sich Timer als untauglich erwiesen weil sie zu langsam sind. Wenn ich Timer = nicht 1000 sondern 1 also ms mache, könnt ich einschlafen beim zukucken ^^
Deswegen such ich was anderes.
Sleep While ist schon gut aber ich komme nicht per Button mehr raus wenn sie läuft.

Σternαl. · 05/25/2010, 20:57

Du hast ja ne Lösung oben in meinem Post.

huberhans · 05/25/2010, 22:42

Quote:

Originally Posted by Lawnmove

Normal schon stimmt wohl, ich arbeite an ne`m extravaganten Spambot der mehrere
Lines zugleich send soll und da haben sich Timer als untauglich erwiesen weil sie zu langsam sind. Wenn ich Timer = nicht 1000 sondern 1 also ms mache, könnt ich einschlafen beim zukucken ^^
Deswegen such ich was anderes.
Sleep While ist schon gut aber ich komme nicht per Button mehr raus wenn sie läuft.

Lass mal sehen, eventuell mußt du deine Eingabe-Abfrage (GUIGetMsg) in ne Funktion setzen und in jeder vorhandenen Schleife aufrufen... könnte funktionieren

Tatzuya · 05/25/2010, 23:10

man könnte eine bool variable benutzen
falls der aus button gedrückt wird, setzte bool=false
und in der schleife kann man dann eine if-bedingung einfügen
(if bool=false then exitloop)

Lawnmove · 05/26/2010, 00:44

@ FooFightah
Hm funzt nicht wirklich ohne Wend und Until

@ huberhans
Das hier issn kleines "Derivat" vom grossen Bruder ^^
Nur 1 Timer und zwar als Initialzünder ^^

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Blinker", 380, 145, 394, 139)
$Button1 = GUICtrlCreateButton("On", 32, 32, 49, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Off", 88, 32, 49, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("", 144, 16, 210, 100, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()

Select
	Case $msg = $Button1
		 MsgBox(0, "BlinkSpammer", "Sequenz beginnt in 5 Sekunden !")
                           GUICtrlSetBkColor($button3, 0x00CF00)
		 $Bli = TimerInit()
             	  _Blink()
	Case $msg = $Button2
                          GUICtrlSetBkColor($button3, 0xFFFFFF)
		_BS()
             Case $msg = $GUI_EVENT_CLOSE
                          _BS()
		Exit
    EndSelect
WEnd

Func _Blink()
	While 1
		Local $sMsg = GUIGetMsg()
		If TimerDiff($Bli) >= 5000 Then
		GUICtrlSetBkColor($button3, 0xFF0000)
		Sleep(2000)
                          GUICtrlSetBkColor($button3, 0x00CF00)
	             Sleep(2000)
		GUICtrlSetBkColor($button3, 0xF100CE)
                          Sleep(2000)
                 	ElseIf $msg = $Button2 Then
                         GUICtrlSetBkColor($button3, 0xFFFFFF)
		_BS()
		EndIf
	WEnd
EndFunc   ;==>_Blink

Func _BS()
	While 1
		Local $sMsg = GUIGetMsg()
		If $sMsg = $GUI_EVENT_CLOSE Then
		   MsgBox(0, "BlinkSpammer", "Blink Spammer wird beendet !")
		   Exit
		ElseIf $sMsg = $Button2 Then
		  GUICtrlSetBkColor($Button3, 0xFF0000)
		  ExitLoop
        EndIf
	WEnd
EndFunc   ;==>_BS

Im Original sind natürlich $`s und $GUICtrlCreateInputs drinne usw.
Aber es geht ja hier um while/sleep.
(Diverses hab ich entfernt wegen der Forum Regeln)

Σternαl. · 05/26/2010, 15:41

Quote:

Originally Posted by Lawnmove

@ FooFightah
Hm funzt nicht wirklich ohne Wend und Until

Oh, hatte do-while von C++ im Kopf.....>_>

BestOfElite · 06/04/2010, 15:34

kann mir jmd kurz bei spammer helfen ich kann den nur an amchen aber nicht durch buttonklick aus

PHP Code:


			
$Write = 0 
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $button1
            $write = 0
         If $Write = 0 Then
               $Write = 1
              ElseIf $Write = 1 Then
               $Write = 0
           EndIf 
       case $button2
           $write = 2
        EndSwitch
        If  $Write = 1  Then
            send (GUICtrlRead($input1))
            send ("{ENTER}")
            sleep (1000)
        EndIf
            
        
WEnd

plz help
es geht nur wenn ich kein sleep einbaue das will ich aber net plz help