AutoIt Script

Page 2 of 3 1 2 3
06/25/2010 22:06 bladerofdarknes#16
du siehst da keinen fehler?
der fehler war absichtlich eingebaut...
würdest du dich ein wenig auskennen würdest du ihn direkt sehen!
tipp: stoppbutton und send verweisen auf die gleiche schelife...
man beachte 2 mal exitloop
06/25/2010 22:23 h4xx0r1911#17
Du bist ja fies. Absichtlich Fehler in das Script einzubauen:D
06/26/2010 17:37 checker0899#18
Quote:
Originally Posted by h4xx0r1911 View Post
Du bist ja fies. Absichtlich Fehler in das Script einzubauen:D
ich muss ja auch was lernen :P

Quote:
Originally Posted by bladerofdarknes View Post
du siehst da keinen fehler?
der fehler war absichtlich eingebaut...
würdest du dich ein wenig auskennen würdest du ihn direkt sehen!
tipp: stoppbutton und send verweisen auf die gleiche schelife...
man beachte 2 mal exitloop
okay ich kenn mich ein wenig aus ich hab alle TuTs von AutoIt gemacht...
€dit: warum brauche ich bei dem startbutton ExitLoop??
06/29/2010 15:17 DraaaKe#19
so sollte er problemlos gehen



PHP Code:
#Include <SendMessage.au3>
#include <ie.au3>
#include <GUIConstants.au3>

$Form1_1 = GUICreate("4Story EG Bot", 397, 125, 193, 125)
$Tastenfeld = GUICtrlCreateInput("", 32, 40, 121, 21)
$startbutton = GUICtrlCreateButton("Start", 184, 40, 75, 25, 0)
$Zeitfeld = GUICtrlCreateInput("", 32, 80, 121, 21)
$stoppbutton = GUICtrlCreateButton("Stopp", 184, 80, 75, 25, 0)
$Label1 = GUICtrlCreateLabel("Taste:", 32, 16, 34, 17)
$Label2 = GUICtrlCreateLabel("Zeit:", 32, 64, 25, 17)
$Label3 = GUICtrlCreateLabel("Createt by IZEROI", 296, 16, 91, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
            Exit
Case $Startbutton
$taste1=GUICtrlRead($Tastenfeld)
$time1=GuiCtrlRead($Zeitfeld)
While GUIGetMsg()<>$stoppbutton
Send($taste1)
sleep($time1)
WEnd
EndSwitch
WEnd 



und bladerofdarknes, wieso machst du das mit inis ist doch völlig unnötig hier
06/30/2010 21:11 checker0899#20
dankeschön..

€dit: geht nicht wenn ich stopp drück macht er einfach weiter...:(
06/30/2010 21:18 bladerofdarknes#21
omg was ich da schon wieder für fehler sehe löl
06/30/2010 21:51 .Shinkz™#22
Aaah D:
Dann sagt ihm einfach den doofen Code, dann hört der Flammwar hier auf x_x
06/30/2010 21:55 bladerofdarknes#23
nach dem flame von dem einen typen da, NÖ! :D
wer bissle grips hat sieht das schnell...
06/30/2010 22:31 v0lle#24
geh unter autoitbot *punkt* de

gib bei search "spambot" ein

oder wie du auch immer spamm schreibst oder spam

dann findeste genug^^

mfg
06/30/2010 23:19 PenGuin :O#25
Quote:
Manche haben hier aber auch gefährliches Halbwissen


Code:
Code:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "_Exit")

Global $bPaused = False

GUICreate("Spambot v1.3 By xEr0r", 600, 300)
$ID_input = GUICtrlCreateInput("", 30, 50)
$input1 = GUICtrlCreateInput("", 30, 130)
$ID_button = GUICtrlCreateButton("Start", 420, 50)
$ID_button2 = GUICtrlCreateButton("Pause", 470, 50)
GUICtrlCreateLabel("Spams eingeben ", 10, 10)
GUICtrlCreateLabel("Copyright by xEr0r", 500, 250)
GUICtrlCreateLabel("Spamzeit einstellen", 10, 90)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $ID_button
			_Send()
	EndSwitch
WEnd

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func _Send()
	$Send = GUICtrlRead($ID_input)
	$Sleep = GUICtrlRead($input1)
	If $Sleep = "" Then $Sleep = 10 ;Um CPU Auslustung niedrig zu halten
	If Not $Send = "" Then
		While 1
 			Send($Send)
			Sleep($Sleep)
		WEnd
	Else
		MsgBox(0, "Error", " Please fill something in the send box.")
	EndIF
EndFunc   ;==>_Send

Func WM_COMMAND($hWnd, $nMsg, $wParam, $lParam)
	Local $hButton = $ID_button2
	$hButton = GUICtrlGetHandle($hButton)
	If $lParam = $hButton Then
		$bPaused = Not $bPaused
		AdlibRegister("_Stop", 10)
	EndIf
EndFunc   ;==>WM_COMMAND

Func _Stop()
	AdlibUnRegister("_Stop")
	While $bPaused And Sleep(10)
		If GUIGetMsg() = -3 Then Exit
	WEnd
EndFunc   ;==>_StopMit "Pause" kann man pausieren.
Mit dem ersten Klick pausierst du, mit dem 2. gehts weiter.
Schließen kann man die GUI nur, wenn man pausiert hat.
Das hab ich ich nem anderen Thread gecodet, kannst ja übernehmen, ist aber nur ne Pause Funktion. Bitte GUI anpassen, die ist nämlich von xeror.
07/01/2010 04:02 chefes78#26
ich mache das jeweils so... ich denke das sollte dir helfen dein
script zu realisieren ^^

Gui event mode:
opt("guioneventmode",1) * damit die buttons mittels guictrlsetonevent getriggerd werden und nicht mit guigetmsg...


Gui Loop:

While 1
Sleep(10)
if $button1Loop Then
call ("Deine_Funktion_die_der_Startbutton_auslösen_soll ")
EndIf
WEnd

Event f¨r den Start button:
guictrlsetonevent($starbutton,"funcstartbuttonclic ked")


Funktion die den $Button1loop auf True setzt:

func funcstartbuttonclicked()

$button1Loop = True
GUICtrlSetState($stopbutton, $GUI_ENABLE)
GUICtrlSetState($startbutton, $GUI_DISABLE)

Endfunc


Was das script nach dem start machen soll:

func Deine_Funktion_die_der_Startbutton_auslösen_soll()
blabliblabla
endfunc
07/01/2010 16:13 DraaaKe#27
Quote:
Originally Posted by checker0899 View Post
dankeschön..

€dit: geht nicht wenn ich stopp drück macht er einfach weiter...:(

bei mir funktioniert er einwandfrei
07/01/2010 22:38 checker0899#28
thanks an alle die geholfen haben ich habs hinbekommen...

€dit: ich hab noch ne Frage: wie bekomme ich die hotkeys hin?? (im script)
PHP Code:
#include <GUIConstantsEx.au3> 
#include <WindowsConstants.au3> 

HotKeySet("{ESC}", "_Exit") 
HotKeySet("{+}","_Start") 
HotKeySet("{#}","_Pause") 

Global $bPaused = False 

GUICreate("Spambot by IZEROI", 350, 200) 
$Tastenfeld = GUICtrlCreateInput("", 20, 35) 
$Zeitfeld = GUICtrlCreateInput("", 20, 115) 
$startbutton = GUICtrlCreateButton("Start", 250, 33) 
$stoppbutton = GUICtrlCreateButton("Pause/Weiter", 250, 113) 
GUICtrlCreateLabel("Taste", 10, 10) 
GUICtrlCreateLabel("Createt by IZEROI and help by e*pvpers", 50, 160) 
GUICtrlCreateLabel("Zeitabstand", 10, 90) 
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") 
GUISetState(@SW_SHOW) 

While 1 
    $nMsg = GUIGetMsg() 
    Switch $nMsg 
        Case -3 
            Exit 
        Case $startbutton 
            _Send() 
    EndSwitch 
WEnd 

Func _Start() 
    ;was kommt da rein wenn ich ihn mit hotkey starten will? 
    EndFunc 

Func _Pause() 
    ;was kommt da rein wenn ich ihn mit hotkey stoppen will? 
EndFunc 

Func _Exit() 
    Exit 
EndFunc 

Func _Send() 
    $Send = GUICtrlRead($Tastenfeld) 
    $Sleep = GUICtrlRead($Zeitfeld) 
    If $Sleep = "" Then $Sleep = 10 
    If Not $Send = "" Then 
        While 1 
             Send($Send) 
            Sleep($Sleep) 
        WEnd 
    Else 
        MsgBox(0, "Error", "Bitte Schreibe etwas in die Felder") 
    EndIF 
EndFunc 

Func WM_COMMAND($hWnd, $nMsg, $wParam, $lParam) 
    Local $hButton = $stoppbutton 
    $hButton = GUICtrlGetHandle($hButton) 
    If $lParam = $hButton Then 
        $bPaused = Not $bPaused 
        AdlibRegister("_Stop", 10) 
    EndIf 
EndFunc 

Func _Stop() 
    AdlibUnRegister("_Stop") 
    While $bPaused And Sleep(10) 
        If GUIGetMsg() = -3 Then Exit 
    WEnd 
EndFunc 
07/02/2010 02:48 PenGuin :O#29
Code:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "_Exit")
HotKeySet("{+}", "_Start")
HotKeySet("{#}", "_Pause")

Global $bPaused = False

GUICreate("Spambot by IZEROI", 350, 200)
$Tastenfeld = GUICtrlCreateInput("", 20, 35)
$Zeitfeld = GUICtrlCreateInput("", 20, 115)
$startbutton = GUICtrlCreateButton("Start", 250, 33)
$stoppbutton = GUICtrlCreateButton("Pause/Weiter", 250, 113)
GUICtrlCreateLabel("Taste", 10, 10)
GUICtrlCreateLabel("Createt by IZEROI and help by e*pvpers", 50, 160)
GUICtrlCreateLabel("Zeitabstand in (ms)", 10, 90)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $startbutton
			_Send()
	EndSwitch
WEnd

Func _Start()
	_Send()
EndFunc   ;==>_Start

Func _Pause()
	$bPaused = Not $bPaused
	AdlibRegister("_Stop", 10)
EndFunc   ;==>_Pause

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func _Send()
	$Send = GUICtrlRead($Tastenfeld)
	$Sleep = GUICtrlRead($Zeitfeld)
	If $Sleep = "" Then $Sleep = 50
	If Not $Send = "" AND  Then
		While 1
			Send($Send)
			Sleep($Sleep)
		WEnd
	Else
		MsgBox(0, "Error", "Bitte Schreibe etwas in die Felder")
	EndIf
EndFunc   ;==>_Send

Func WM_COMMAND($hWnd, $nMsg, $wParam, $lParam)
	Local $hButton = $stoppbutton
	$hButton = GUICtrlGetHandle($hButton)
	If $lParam = $hButton Then
		$bPaused = Not $bPaused
		AdlibRegister("_Stop", 10)
	EndIf
EndFunc   ;==>WM_COMMAND

Func _Stop()
	AdlibUnRegister("_Stop")
	While $bPaused And Sleep(10)
		If GUIGetMsg() = -3 Then Exit
	WEnd
EndFunc   ;==>_Stop
:bandit:
07/02/2010 20:57 checker0899#30
du bist der beschde :P thx jz raff ich des au mit hotkeys
Page 2 of 3 1 2 3