AutoIt Problem

Page 1 of 2 1 2
05/24/2010 03:56 v0lle#1
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 :bandit:
05/24/2010 10:03 huberhans#2
Quote:
Originally Posted by volle14 View Post
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^^




mfg volle :bandit:
Mach's einfach so:


Gruß
05/24/2010 10:38 v0lle#3
nice ^^

thx :D

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

kriegst ein Thanks


mfg volle
05/24/2010 17:04 huberhans#4
Quote:
Originally Posted by volle14 View Post
nice ^^

thx :D

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

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ß
05/25/2010 10:46 Lawnmove#5
@ huberhans

gibts noch ne Alternative um aus ner Sleep While raus zu kommen ?
Finde Timer eher unelegant ^^
05/25/2010 11:30 Σternαl.#6
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 
05/25/2010 14:53 Lawnmove#7
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
05/25/2010 18:08 huberhans#8
Quote:
Originally Posted by Lawnmove View Post
@ 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ß
05/25/2010 20:14 Lawnmove#9
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.
05/25/2010 20:57 Σternαl.#10
Du hast ja ne Lösung oben in meinem Post.
05/25/2010 22:42 huberhans#11
Quote:
Originally Posted by Lawnmove View Post
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
05/25/2010 23:10 Tatzuya#12
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)
05/26/2010 00:44 Lawnmove#13
@ 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)
05/26/2010 15:41 Σternαl.#14
Quote:
Originally Posted by Lawnmove View Post
@ FooFightah
Hm funzt nicht wirklich ohne Wend und Until
Oh, hatte do-while von C++ im Kopf.....>_>
06/04/2010 15:34 BestOfElite#15
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
Page 1 of 2 1 2