spambot hilfe

10/27/2010 21:35 crazer491#1
Ich beschäftige mich gerade wieder nen bisschen mit auto it und bastel mir gerade nen spambot bis jetzt sieht er so aus:

Code:
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spambot", 429, 184, 193, 125)
$Input1 = GUICtrlCreateInput("", 16, 128, 385, 21)
$Button1 = GUICtrlCreateButton("Starte Spam", 88, 64, 81, 41, 0)
$Button2 = GUICtrlCreateButton("aus", 250, 64, 81, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			sleep(5000)
             While 2
				 sleep(5000)
				 send(GUICtrlRead($Input1))
				 Send("{enter}")
			 WEnd
		 case $Button2
			Exit
		EndSwitch
	Wend
so mein problemm wenn ich jetzt auf den button 2 klick dann passiert nicht, dabei soll der spambot pausieren bzw. sich schließen. Bitte um hilfe
10/27/2010 21:53 maxi39#2
PHP Code:
$a = 1

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spambot", 429, 184, 193, 125)
$Input1 = GUICtrlCreateInput("", 16, 128, 385, 21)
$Button1 = GUICtrlCreateButton("Starte Spam", 88, 64, 81, 41, 0)
$Button2 = GUICtrlCreateButton("aus", 250, 64, 81, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            sleep(5000)
            $a = 1
 _1()
         case $Button2
            $a = 0
        EndSwitch
    Wend

Func _1()

while $a 

                 sleep(5000)
                 send(GUICtrlRead($Input1))
                 Send("{enter}")
             WEnd

Endfunc 
hab irwas vergessen ;D
10/27/2010 22:17 maxi39#3
[Only registered and activated users can see links. Click Here To Register...]
10/27/2010 22:44 lolkop#4
naja halt auf eine schleife reduzieren und keine sleeps verwenden.
Code:
Dim $timer, $go = False, $btn[2] = ['Start', 'Stop']
$gui = GUICreate("Spambot", 429, 184, 193, 125)
$Input1 = GUICtrlCreateInput("", 16, 128, 385, 21)
$Button = GUICtrlCreateButton($btn[0], 88, 64, 243, 41, 0)
GUISetState(@SW_SHOW)

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		case $Button
			$go = Not $go
			GUICtrlSetData($Button, $btn[$go])
		Case Else
			If $go And Not WinActive($gui) And TimerDiff($timer) > 5000 Then
				send(GUICtrlRead($Input1))
				Send("{enter}")
				$timer = TimerInit()
			 EndIf
	EndSwitch
Wend