AutoIt Script

bladerofdarknes · 06/25/2010, 22:06

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

h4xx0r1911 · 06/25/2010, 22:23

Du bist ja fies. Absichtlich Fehler in das Script einzubauen

checker0899 · 06/26/2010, 17:37

Quote:

Originally Posted by h4xx0r1911

Du bist ja fies. Absichtlich Fehler in das Script einzubauen

ich muss ja auch was lernen :P

Quote:

Originally Posted by bladerofdarknes

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??

DraaaKe · 06/29/2010, 15:17

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

checker0899 · 06/30/2010, 21:11

dankeschön..

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

bladerofdarknes · 06/30/2010, 21:18

omg was ich da schon wieder für fehler sehe löl

.Shinkz™ · 06/30/2010, 21:51

Aaah D:
Dann sagt ihm einfach den doofen Code, dann hört der Flammwar hier auf x_x

bladerofdarknes · 06/30/2010, 21:55

nach dem flame von dem einen typen da, NÖ!

wer bissle grips hat sieht das schnell...

~~v0lle~~ · 06/30/2010, 22:31

geh unter autoitbot *punkt* de

gib bei search "spambot" ein

oder wie du auch immer spamm schreibst oder spam

dann findeste genug^^

mfg

PenGuin :O · 06/30/2010, 23:19

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.

chefes78 · 07/01/2010, 04:02

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

DraaaKe · 07/01/2010, 16:13

Quote:

Originally Posted by checker0899

dankeschön..

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

bei mir funktioniert er einwandfrei

checker0899 · 07/01/2010, 22:38

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

PenGuin :O · 07/02/2010, 02:48

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

checker0899 · 07/02/2010, 20:57

du bist der beschde :P thx jz raff ich des au mit hotkeys