autoit do schleife problem

Page 1 of 2 1 2
11/21/2009 14:01 GT4#1
wolte ma ein autoit spammer machen

Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $pause

$inireadinput1 = IniRead("save2.ini","save","input1","")
$inireadinput2 = IniRead("save2.ini","save","input2","")
$inireadinput3 = IniRead("save2.ini","save","input3","")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spam made by ******", 626, 442, 192, 124)
$Button1 = GUICtrlCreateButton("Start spam !", 0, 0, 113, 49)
$Input1 = GUICtrlCreateInput($inireadinput1, 472, 27, 153, 21)
$Input2 = GUICtrlCreateInput($inireadinput2, 472, 56, 153, 21)
$input3 = GUIctrlCreateinput($inireadinput3, 472, 85, 153, 21) 
$checkbox1 = GUICtrlCreateCheckbox("Enter ?",472, 115, 153, 21)
$Pic1 = GUICtrlCreatePic("41125.kp2", 0, 0, 625, 441, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

IniWrite("save.ini","hotkey","exit","{f5}")

$iniread = IniRead("save.ini","hotkey","exit","")
HotKeySet($iniread,"_exit")
IniDelete("save.ini","hotkey","exit")
iniwrite("save3.ini","wie viel verzögerung","sleep","2000")
HotKeySet("{f4}", "_Pause")
hotkeyset("{f3}","_Start")

if $checkbox1 = 1 Then _enter()
if $checkbox1 = 0 Then _nichtenter()


func _enter()
	send("{enter}")
endfunc

Func _exit()
Exit
EndFunc

Func _Pause()
While 1
    Sleep(100)
WEnd
EndFunc

func _Start()
	
IniWrite("save2.ini","save","input1",GUICtrlRead($input1))
IniWrite("save2.ini","save","input2",GUICtrlRead($input2))
IniWrite("save2.ini","save","input3",GUICtrlRead($input3))

$auslesen = GUICtrlRead($checkbox1)
if $auslesen = 1 Then 
	
$anzahl = 0
do

	sleep(Guictrlread($input2))                         <-   ; WIE SOLL ICH DAS HIR MACHEN ??
	Send(GUICtrlRead($input1))
    send("{Enter}")
	$anzahl = +1
	until $anzahl = GUICtrlRead($input3)
EndIf

If $auslesen = 4 then
Do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    until GUICtrlRead($input3)
EndIf


endfunc

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $button1
			
IniWrite("save2.ini","save","input1",GUICtrlRead($input1))
IniWrite("save2.ini","save","input2",GUICtrlRead($input2))
IniWrite("save2.ini","save","input3",GUICtrlRead($input3))

while 3
$auslesen = GUICtrlRead($checkbox1)
if $auslesen = 1 Then 

	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    send("{Enter}")
EndIf

If $auslesen = 4 then
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))

	EndIf
WEnd
	EndSwitch
WEnd

BISCHEN UNÜBERSICHTLICH ;)
ich wil z.B das er 10 mal schreibt hallo nur 10 mal krige es aber nicht hin ;(
er schreibt immer und immer weiter...
11/21/2009 14:02 MC_Muffin#2
Quote:
Originally Posted by GT4 View Post
wolte ma ein autoit spammer machen

Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $pause

$inireadinput1 = IniRead("save2.ini","save","input1","")
$inireadinput2 = IniRead("save2.ini","save","input2","")
$inireadinput3 = IniRead("save2.ini","save","input3","")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spam made by Master28 !", 626, 442, 192, 124)
$Button1 = GUICtrlCreateButton("Start spam !", 0, 0, 113, 49)
$Input1 = GUICtrlCreateInput($inireadinput1, 472, 27, 153, 21)
$Input2 = GUICtrlCreateInput($inireadinput2, 472, 56, 153, 21)
$input3 = GUIctrlCreateinput($inireadinput3, 472, 85, 153, 21) 
$checkbox1 = GUICtrlCreateCheckbox("Enter ?",472, 115, 153, 21)
$Pic1 = GUICtrlCreatePic("41125.kp2", 0, 0, 625, 441, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

IniWrite("save.ini","hotkey","exit","{f5}")

$iniread = IniRead("save.ini","hotkey","exit","")
HotKeySet($iniread,"_exit")
IniDelete("save.ini","hotkey","exit")
iniwrite("save3.ini","wie viel verzögerung","sleep","2000")
HotKeySet("{f4}", "_Pause")
hotkeyset("{f3}","_Start")

if $checkbox1 = 1 Then _enter()
if $checkbox1 = 0 Then _nichtenter()


func _enter()
	send("{enter}")
endfunc

Func _exit()
Exit
EndFunc

Func _Pause()
While 1
    Sleep(100)
WEnd
EndFunc

func _Start()
	
IniWrite("save2.ini","save","input1",GUICtrlRead($input1))
IniWrite("save2.ini","save","input2",GUICtrlRead($input2))
IniWrite("save2.ini","save","input3",GUICtrlRead($input3))

$auslesen = GUICtrlRead($checkbox1)
if $auslesen = 1 Then 
	
$anzahl = 0
do

	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    send("{Enter}")
	$anzahl = +1
	until $anzahl = GUICtrlRead($input3)
EndIf

If $auslesen = 4 then
Do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    until GUICtrlRead($input3)
EndIf


endfunc

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $button1
			
IniWrite("save2.ini","save","input1",GUICtrlRead($input1))
IniWrite("save2.ini","save","input2",GUICtrlRead($input2))
IniWrite("save2.ini","save","input3",GUICtrlRead($input3))

while 3
$auslesen = GUICtrlRead($checkbox1)
if $auslesen = 1 Then 

	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    send("{Enter}")
EndIf

If $auslesen = 4 then
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))

	EndIf
WEnd
	EndSwitch
WEnd
Ja und was ist das Problem?
11/21/2009 14:06 GT4#3
Ich hab das problem editiert ;)

Muss forsichtig sein nicht das ich mein dritte verwanung kriege ;(

Ich mache mal parr photos.

[Only registered and activated users can see links. Click Here To Register...] Drauf klicken pls ;)
11/21/2009 14:31 Xereon#4
Also ich nehme mal an das du hiermit Probleme hast oder?

Code:
If $auslesen = 4 then
Do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    until GUICtrlRead($input3)
Da fehlt ein counter :P
11/21/2009 14:45 GT4#5
Quote:
Originally Posted by Xereon View Post
Also ich nehme mal an das du hiermit Probleme hast oder?

Code:
If $auslesen = 4 then
Do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    until GUICtrlRead($input3)
Da fehlt ein counter :P
Ich hab doch folgendes hingeschrieben:

$anzahl = 0
do

sleep(Guictrlread($input2))
Send(GUICtrlRead($input1))
send("{Enter}")
$anzahl = +1
until $anzahl = GUICtrlRead($input3)

Hab ich was falsch gemacht ???
11/21/2009 15:01 Xereon#6
gott hat das Ewigkeiten gedauert bis ich dein Script durschaut habe.
Du hast eine Funktion _Start, in der sich die do schleife befindet, die du aber überhaupt nicht callst. Statdessen gehts du in eine While Schleife die immer true ist. Ist doch logisch das es nicht endet.
Und zu meinen letzten Post:
Code:
If $auslesen = 4 then
Do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    until GUICtrlRead($input3)
Da fehlt der Counter :P
11/21/2009 15:44 GT4#7
EDIT: !!!!!!!!!!!!!!!!!!!

Könte jemand den code korrigieren ?
Und in posten, da kommt immer so ein fehler ganz unten.


Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $pause

$inireadinput1 = IniRead("save2.ini","save","input1","")
$inireadinput2 = IniRead("save2.ini","save","input2","")
$inireadinput3 = IniRead("save2.ini","save","input3","")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spam made by ******* !", 626, 442, 192, 124)
$Button1 = GUICtrlCreateButton("Start spam !", 0, 0, 113, 49)
$Input1 = GUICtrlCreateInput($inireadinput1, 472, 27, 153, 21)
$Input2 = GUICtrlCreateInput($inireadinput2, 472, 56, 153, 21)
$input3 = GUIctrlCreateinput($inireadinput3, 472, 85, 153, 21) 
$checkbox1 = GUICtrlCreateCheckbox("Enter ?",472, 115, 153, 21)
$Pic1 = GUICtrlCreatePic("41125.kp2", 0, 0, 625, 441, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

IniWrite("save.ini","hotkey","exit","{f5}")

$iniread = IniRead("save.ini","hotkey","exit","")
HotKeySet($iniread,"_exit")
IniDelete("save.ini","hotkey","exit")
iniwrite("save3.ini","wie viel verzögerung","sleep","2000")
HotKeySet("{f4}", "_Pause")
hotkeyset("{f3}","_Start")

if $checkbox1 = 1 Then _enter()
if $checkbox1 = 0 Then _nichtenter()


func _enter()
	send("{enter}")
endfunc

Func _exit()
Exit
EndFunc

Func _Pause()
While 1
    Sleep(100)
WEnd
EndFunc

func _Start()
	
IniWrite("save2.ini","save","input1",GUICtrlRead($input1))
IniWrite("save2.ini","save","input2",GUICtrlRead($input2))
IniWrite("save2.ini","save","input3",GUICtrlRead($input3))

$auslesen = GUICtrlRead($checkbox1)
if $auslesen = 1 Then 
	
$anzahl = 0

do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    send("{Enter}")
	$anzahl = $anzahl + 1
	tooltip("du hast schon"& $anzahl & "nachrichten geschikt",0,0,"info")
	until $anzahl = GUICtrlRead($input3)
	if $anzahl = GUICtrlRead($input3) Then
		WinClose("du hast schon" & GUICtrlRead($input3) "nachrichten geschikt","")
		ToolTip("Fertig!",0,0,"Info")
		sleep(2000)
		winclose("Fertig!","")
		EndIf
EndIf

If $auslesen = 4 then
$anzahl2 = 0
Do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
	$anzahl2 = $anzahl2 + 1
	tooltip("du hast schon"& $anzahl & "nachrichten geschikt",0,0,"info")
	until GUICtrlRead($input3)
	if $anzahl = GUICtrlRead($input3) Then
	WinClose("du hast schon" & GUICtrlRead($input3) "nachrichten geschikt","")
	ToolTip("Fertig!",0,0,"Info")
	sleep(2000)
	winclose("Fertig!","")
EndIf



While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $button1
			
IniWrite("save2.ini","save","input1",GUICtrlRead($input1))
IniWrite("save2.ini","save","input2",GUICtrlRead($input2))
IniWrite("save2.ini","save","input3",GUICtrlRead($input3))


$auslesen = GUICtrlRead($checkbox1)
if $auslesen = 1 Then 
$anzahl3 = 0

do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    send("{Enter}")
	$anzahl3 = $anzahl3 + 1
	tooltip("du hast schon"& $anzahl & "nachrichten geschikt",0,0,"info")
until GUICtrlRead($input3)
if $anzahl = GUICtrlRead($input3) Then
		WinClose("du hast schon" & GUICtrlRead($input3) "nachrichten geschikt","")
		ToolTip("Fertig!",0,0,"Info")
		sleep(2000)
		winclose("Fertig!","")
		
EndIf

If $auslesen = 4 then
	$anzahl4 = 0
	Do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
	$anzahl3 = $anzahl3 + 1
	tooltip("du hast schon"& $anzahl & "nachrichten geschikt",0,0,"info")
until GUICtrlRead($input3)
if $anzahl = GUICtrlRead($input3) Then
		WinClose("du hast schon" & GUICtrlRead($input3) "nachrichten geschikt","")
		ToolTip("Fertig!",0,0,"Info")
		sleep(2000)
		winclose("Fertig!","")
		
EndIf


EndSwitch    [COLOR="Red"][B]<<<<-----[/B][/COLOR] [COLOR="Red"][B]HIR KOMMEN IMMER FEHLER[/B][/COLOR]
WEnd          [COLOR="Red"][B]<<<<-----[/B][/COLOR] [B][COLOR="Red"]HIR KOMMEN IMMER FEHLER[/COLOR][/B]
11/21/2009 16:16 Xereon#8
Wenn du jetzt auch noch die genaue Fehlermeldung hier reinschreibts, können wir dir bestimmt helfen ;)
11/21/2009 16:31 GT4#9
Du köntest ja auch diesen code was ich oben gepostet habe in einem autoit datei rein schmeisen und dan es an gucken.
Aber hier der Fehler :


C:\Dokumente und Einstellungen\anonymous\Desktop\spammer bearbeiten\Neu AutoIt v3 Script.au3 (116) : ==> "Wend" statement with no matching "While" statement.:
WEnd
11/21/2009 16:41 Xereon#10
Nein könnte ich nicht, weil ich dazu viel zu faul bin :P
Wenn mich nicht alles irrt, gehört vor den Endswitch ein Endif hin :P
11/21/2009 16:44 bloodx#11
Wend" statement with no matching "While" statement.:

du musst das Wend weg nehmen weil du kein dazugehöriges While hast.... Wer lesen kann ist klar im vorteil :facepalm:
11/21/2009 16:50 Xereon#12
Quote:
Originally Posted by bloodx View Post
Wend" statement with no matching "While" statement.:

du musst das Wend weg nehmen weil du kein dazugehöriges While hast.... Wer lesen kann ist klar im vorteil :facepalm:
Ohja wie recht du da hast:
Code:
[COLOR="Red"][B]While 1[/B][/COLOR]
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $button1
			
IniWrite("save2.ini","save","input1",GUICtrlRead($input1))
IniWrite("save2.ini","save","input2",GUICtrlRead($input2))
IniWrite("save2.ini","save","input3",GUICtrlRead($input3))


$auslesen = GUICtrlRead($checkbox1)
if $auslesen = 1 Then 
$anzahl3 = 0

do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
    send("{Enter}")
	$anzahl3 = $anzahl3 + 1
	tooltip("du hast schon"& $anzahl & "nachrichten geschikt",0,0,"info")
until GUICtrlRead($input3)
if $anzahl = GUICtrlRead($input3) Then
		WinClose("du hast schon" & GUICtrlRead($input3) "nachrichten geschikt","")
		ToolTip("Fertig!",0,0,"Info")
		sleep(2000)
		winclose("Fertig!","")
		
EndIf

If $auslesen = 4 then
	$anzahl4 = 0
	Do
	sleep(Guictrlread($input2))
	Send(GUICtrlRead($input1))
	$anzahl3 = $anzahl3 + 1
	tooltip("du hast schon"& $anzahl & "nachrichten geschikt",0,0,"info")
until GUICtrlRead($input3)
if $anzahl = GUICtrlRead($input3) Then
		WinClose("du hast schon" & GUICtrlRead($input3) "nachrichten geschikt","")
		ToolTip("Fertig!",0,0,"Info")
		sleep(2000)
		winclose("Fertig!","")
		
EndIf


EndSwitch    <<<<----- HIR KOMMEN IMMER FEHLER
[COLOR="Red"][B]WEnd[/B] [/COLOR]         <<<<----- HIR KOMMEN IMMER FEHLER
11/21/2009 16:55 GT4#13
Wen ich das "wend" weg mache dan kommt das:

C:\Dokumente und Einstellungen\anonymous\Desktop\spammer bearbeiten\Neu AutoIt v3 Script.au3 (116) : ==> "While" statement has no matching "Wend" statement.:
EndSwitch

Hier noch ma der CODE ;)
Keiner der mir helfen kann ?

Edit:Jetzt bin ich ganz verwirrt , was soll ich jetz machen.
*verzweifelt*
11/21/2009 17:00 Xereon#14
Quote:
Originally Posted by Xereon View Post
Nein könnte ich nicht, weil ich dazu viel zu faul bin :P
Wenn mich nicht alles irrt, gehört vor den Endswitch ein Endif hin :P
Schonmal das ausprobiert?
11/21/2009 17:08 GT4#15
Ohh entlich ich habs ! Ich habe ein endif vergessen !

Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $pause

$inireadinput1 = IniRead("save2.ini", "save", "input1", "")
$inireadinput2 = IniRead("save2.ini", "save", "input2", "")
$inireadinput3 = IniRead("save2.ini", "save", "input3", "")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spam made by ****** !", 626, 442, 192, 124)
$Button1 = GUICtrlCreateButton("Start spam !", 0, 0, 113, 49)
$Input1 = GUICtrlCreateInput($inireadinput1, 472, 27, 153, 21)
$Input2 = GUICtrlCreateInput($inireadinput2, 472, 56, 153, 21)
$input3 = GUIctrlCreateinput($inireadinput3, 472, 85, 153, 21)
$checkbox1 = GUICtrlCreateCheckbox("Enter ?", 472, 115, 153, 21)
$Pic1 = GUICtrlCreatePic("41125.kp2", 0, 0, 625, 441, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

IniWrite("save.ini", "hotkey", "exit", "{f5}")

$iniread = IniRead("save.ini", "hotkey", "exit", "")
HotKeySet($iniread, "_exit")
IniDelete("save.ini", "hotkey", "exit")
iniwrite("save3.ini", "wie viel verzögerung", "sleep", "2000")
HotKeySet("{f4}", "_Pause")
hotkeyset("{f3}", "_Start")






Func _exit()
	Exit
EndFunc   ;==>_exit

Func _Pause()
	While 1
		Sleep(100)
	WEnd
EndFunc   ;==>_Pause

func _Start()

	IniWrite("save2.ini", "save", "input1", GUICtrlRead($Input1))
	IniWrite("save2.ini", "save", "input2", GUICtrlRead($Input2))
	IniWrite("save2.ini", "save", "input3", GUICtrlRead($input3))

	$auslesen = GUICtrlRead($checkbox1)
	if $auslesen = 1 Then

		$anzahl = 0

		do
			tooltip("du hast schon" & $anzahl & "nachrichten geschikt", 0, 0, "info")
			sleep(Guictrlread($Input2))
			Send(GUICtrlRead($Input1))
			send("{Enter}")
			$anzahl = $anzahl + 1
			tooltip("du hast schon" & $anzahl & "nachrichten geschikt", 0, 0, "info")
		until $anzahl = GUICtrlRead($input3)
		if $anzahl = GUICtrlRead($input3) Then
			WinClose("du hast schon" & GUICtrlRead($input3) "nachrichten geschikt", "")
			ToolTip("Fertig!", 0, 0, "Info")
		EndIf
		EndIf   [COLOR="Red"][B]<---- das HABE ICH VERGSSEN ! !MAN MAN !! TROTZDEM DANKE AN ALLE ;)[/B][/COLOR]

		If $auslesen = 4 then
			$anzahl2 = 0
			Do
				sleep(Guictrlread($Input2))
				Send(GUICtrlRead($Input1))
				$anzahl2 = $anzahl2 + 1
			until GUICtrlRead($input3)
		EndIf

         EndFunc   [COLOR="Red"][B]<<<<------ UND DAS HABBE ICH AUCH VERGeSSEN![/B][/COLOR]

		while 1
			$nMsg = GUIGetMsg()
			Switch $nMsg
				Case $GUI_EVENT_CLOSE
					Exit
				case $Button1

					IniWrite("save2.ini", "save", "input1", GUICtrlRead($Input1))
					IniWrite("save2.ini", "save", "input2", GUICtrlRead($Input2))
					IniWrite("save2.ini", "save", "input3", GUICtrlRead($input3))


					$auslesen = GUICtrlRead($checkbox1)
					if $auslesen = 1 Then
						$anzahl3 = 0

						do
							sleep(Guictrlread($Input2))
							Send(GUICtrlRead($Input1))
							send("{Enter}")
							$anzahl3 = $anzahl3 + 1
						until GUICtrlRead($input3)
					EndIf

					If $auslesen = 4 then
						$anzahl4 = 0
						GUICtrlCreateLabel("du hast schon" & $anzahl4 "nachrichten gesendet", 472, 144, 153, 21)
						GUICtrlSetColor(-1, 0xFF0000)
						Do
							sleep(Guictrlread($Input2))
							Send(GUICtrlRead($Input1))
							$anzahl3 = $anzahl3 + 1
						until GUICtrlRead($input3)
					EndIf
			EndSwitch
		WEnd
Page 1 of 2 1 2