spambot hilfe

crazer491 · 10/27/2010, 21:35

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

maxi39 · 10/27/2010, 21:53

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

maxi39 · 10/27/2010, 22:17

lolkop · 10/27/2010, 22:44

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