Wo ist der fehler?

07/02/2010 22:17 blubablubafasel#1
Hallo mein Problem ist, dass wenn ich NUMPAD2 drücke nichts passiert. Eigentlich sollte er ja anfangen zu spammen

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

#Region ### START Koda GUI section ### Form=c:\users\marc\desktop\koda_1.7.0.1\forms\form1.kxf
$Form1_1 = GUICreate("Multibot by blubablubafasel - als Administrator ausführen", 625, 443, 192, 124, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
$ID = GUICtrlCreateInput("Benutzername", 40, 48, 105, 21)
$Benutzername = GUICtrlCreateLabel("Benutzername", 40, 24, 72, 17)
$PW = GUICtrlCreateInput("Passwort", 160, 48, 105, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Passwort = GUICtrlCreateLabel("Passwort", 160, 24, 47, 17)
$Label1 = GUICtrlCreateLabel("Daten einfügen mit NUMPAD1", 288, 48, 149, 17)
$Label2 = GUICtrlCreateLabel("Spammer:", 40, 96, 51, 17)
$Spam = GUICtrlCreateInput("Text zum Spammen", 48, 128, 353, 21)
$ruf = GUICtrlCreateRadio("Rufchat", 48, 176, 57, 17, BitOR($BS_AUTORADIOBUTTON,$WS_GROUP))
GUICtrlSetState(-1, $GUI_CHECKED)
$norm = GUICtrlCreateRadio("Normal", 48, 192, 57, 17)
$Input1 = GUICtrlCreateInput("SpamDelay", 120, 184, 65, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetTip(-1, "1sec = 1000")
$menge = GUICtrlCreateInput("Aufhören nach XXX Spams", 120, 216, 137, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Checkbox1 = GUICtrlCreateCheckbox("Nach Spam Eingabe schließen", 256, 184, 169, 17)
GUICtrlCreateLabel("Spammer Starten mit NUMPAD2", 304, 224, 157, 17)
$Label3 = GUICtrlCreateLabel("Pickup:", 40, 272, 40, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Pausieren, wenn ENTER gedrückt", 48, 304, 185, 17)
$Input2 = GUICtrlCreateInput("aufheben mit", 248, 304, 97, 21, BitOR($ES_CENTER,$ES_LOWERCASE,$ES_AUTOHSCROLL))
$Input3 = GUICtrlCreateInput("PickupDelay", 248, 328, 73, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label4 = GUICtrlCreateLabel("Starten/Beenden mit PAUSE", 384, 320, 141, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{NUMPAD1}", "ab")
HotKeySet("{NUMPAD2}", "Spam")
Func ab ();
	$msg = MsgBox(4,"Einloggen?","Wollen Sie sich einloggen?")
	if $msg = 6 Then
		Send(GUICtrlRead($ID))
		
		Send("{TAB}")
		Send(GUICtrlRead($PW))
		
		Send("{Enter}")
		
	
		EndIf
	EndFunc
	Func Spam ();
		
		
$mng = 1

if $ruf = True Then

if  $Checkbox1 = True Then

While GUICtrlRead($menge) < $mng
Send("{ENTER}{!}"& $Spam & "{ENTER}{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
Else
	Send("{ENTER}"
While GUICtrlRead($menge) < $mng
Send("{!}"& $Spam & "{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
EndIf
EndIf

if $norm = True Then

if  $Checkbox1 = True Then

While GUICtrlRead($menge) < $mng
Send("{ENTER}"& $Spam & "{ENTER}{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
Else
	Send("{ENTER}"
While GUICtrlRead($menge) < $mng
Send($Spam & "{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
EndIf
EndIf
EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
07/02/2010 22:40 CroSSiie#2
Weil der Hotkey keiner existierenden funktion zugewiesen ist...
bruachst ne funktion namens "Spam" soweit ich weiß
07/02/2010 22:44 blubablubafasel#3
Quote:
Originally Posted by CroSSiie View Post
Weil der Hotkey keiner existierenden funktion zugewiesen ist...
bruachst ne funktion namens "Spam" soweit ich weiß
ist doch da:
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\users\marc\desktop\koda_1.7.0.1\forms\form1.kxf
$Form1_1 = GUICreate("Multibot by blubablubafasel - als Administrator ausführen", 625, 443, 192, 124, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
$ID = GUICtrlCreateInput("Benutzername", 40, 48, 105, 21)
$Benutzername = GUICtrlCreateLabel("Benutzername", 40, 24, 72, 17)
$PW = GUICtrlCreateInput("Passwort", 160, 48, 105, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Passwort = GUICtrlCreateLabel("Passwort", 160, 24, 47, 17)
$Label1 = GUICtrlCreateLabel("Daten einfügen mit NUMPAD1", 288, 48, 149, 17)
$Label2 = GUICtrlCreateLabel("Spammer:", 40, 96, 51, 17)
$Spam = GUICtrlCreateInput("Text zum Spammen", 48, 128, 353, 21)
$ruf = GUICtrlCreateRadio("Rufchat", 48, 176, 57, 17, BitOR($BS_AUTORADIOBUTTON,$WS_GROUP))
GUICtrlSetState(-1, $GUI_CHECKED)
$norm = GUICtrlCreateRadio("Normal", 48, 192, 57, 17)
$Input1 = GUICtrlCreateInput("SpamDelay", 120, 184, 65, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetTip(-1, "1sec = 1000")
$menge = GUICtrlCreateInput("Aufhören nach XXX Spams", 120, 216, 137, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Checkbox1 = GUICtrlCreateCheckbox("Nach Spam Eingabe schließen", 256, 184, 169, 17)
GUICtrlCreateLabel("Spammer Starten mit NUMPAD2", 304, 224, 157, 17)
$Label3 = GUICtrlCreateLabel("Pickup:", 40, 272, 40, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Pausieren, wenn ENTER gedrückt", 48, 304, 185, 17)
$Input2 = GUICtrlCreateInput("aufheben mit", 248, 304, 97, 21, BitOR($ES_CENTER,$ES_LOWERCASE,$ES_AUTOHSCROLL))
$Input3 = GUICtrlCreateInput("PickupDelay", 248, 328, 73, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label4 = GUICtrlCreateLabel("Starten/Beenden mit PAUSE", 384, 320, 141, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{NUMPAD1}", "ab")
[SIZE="7"][FONT="Arial Black"][COLOR="#006400"]HotKeySet("{NUMPAD2}", "Spam")[/COLOR][/FONT][/SIZE]
Func ab ();
	$msg = MsgBox(4,"Einloggen?","Wollen Sie sich einloggen?")
	if $msg = 6 Then
		Send(GUICtrlRead($ID))
		
		Send("{TAB}")
		Send(GUICtrlRead($PW))
		
		Send("{Enter}")
		
	
		EndIf
	EndFunc
	[SIZE="7"][FONT="Arial Black"][COLOR="DarkGreen"]Func Spam ();[/COLOR][/FONT][/SIZE]
		
		
$mng = 1

if $ruf = True Then

if  $Checkbox1 = True Then

While GUICtrlRead($menge) < $mng
Send("{ENTER}{!}"& $Spam & "{ENTER}{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
Else
	Send("{ENTER}"
While GUICtrlRead($menge) < $mng
Send("{!}"& $Spam & "{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
EndIf
EndIf

if $norm = True Then

if  $Checkbox1 = True Then

While GUICtrlRead($menge) < $mng
Send("{ENTER}"& $Spam & "{ENTER}{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
Else
	Send("{ENTER}"
While GUICtrlRead($menge) < $mng
Send($Spam & "{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
EndIf
EndIf
EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
07/02/2010 22:47 CroSSiie#4
Quote:
Originally Posted by blubablubafasel View Post
ist doch da:
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\users\marc\desktop\koda_1.7.0.1\forms\form1.kxf
$Form1_1 = GUICreate("Multibot by blubablubafasel - als Administrator ausführen", 625, 443, 192, 124, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
$ID = GUICtrlCreateInput("Benutzername", 40, 48, 105, 21)
$Benutzername = GUICtrlCreateLabel("Benutzername", 40, 24, 72, 17)
$PW = GUICtrlCreateInput("Passwort", 160, 48, 105, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Passwort = GUICtrlCreateLabel("Passwort", 160, 24, 47, 17)
$Label1 = GUICtrlCreateLabel("Daten einfügen mit NUMPAD1", 288, 48, 149, 17)
$Label2 = GUICtrlCreateLabel("Spammer:", 40, 96, 51, 17)
$Spam = GUICtrlCreateInput("Text zum Spammen", 48, 128, 353, 21)
$ruf = GUICtrlCreateRadio("Rufchat", 48, 176, 57, 17, BitOR($BS_AUTORADIOBUTTON,$WS_GROUP))
GUICtrlSetState(-1, $GUI_CHECKED)
$norm = GUICtrlCreateRadio("Normal", 48, 192, 57, 17)
$Input1 = GUICtrlCreateInput("SpamDelay", 120, 184, 65, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetTip(-1, "1sec = 1000")
$menge = GUICtrlCreateInput("Aufhören nach XXX Spams", 120, 216, 137, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Checkbox1 = GUICtrlCreateCheckbox("Nach Spam Eingabe schließen", 256, 184, 169, 17)
GUICtrlCreateLabel("Spammer Starten mit NUMPAD2", 304, 224, 157, 17)
$Label3 = GUICtrlCreateLabel("Pickup:", 40, 272, 40, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Pausieren, wenn ENTER gedrückt", 48, 304, 185, 17)
$Input2 = GUICtrlCreateInput("aufheben mit", 248, 304, 97, 21, BitOR($ES_CENTER,$ES_LOWERCASE,$ES_AUTOHSCROLL))
$Input3 = GUICtrlCreateInput("PickupDelay", 248, 328, 73, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label4 = GUICtrlCreateLabel("Starten/Beenden mit PAUSE", 384, 320, 141, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{NUMPAD1}", "ab")
[SIZE="7"][FONT="Arial Black"][COLOR="#006400"]HotKeySet("{NUMPAD2}", "Spam")[/COLOR][/FONT][/SIZE]
Func ab ();
	$msg = MsgBox(4,"Einloggen?","Wollen Sie sich einloggen?")
	if $msg = 6 Then
		Send(GUICtrlRead($ID))
		
		Send("{TAB}")
		Send(GUICtrlRead($PW))
		
		Send("{Enter}")
		
	
		EndIf
	EndFunc
	[SIZE="7"][FONT="Arial Black"][COLOR="DarkGreen"]Func Spam ();[/COLOR][/FONT][/SIZE]
		
		
$mng = 1

if $ruf = True Then

if  $Checkbox1 = True Then

While GUICtrlRead($menge) < $mng
Send("{ENTER}{!}"& $Spam & "{ENTER}{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
Else
	Send("{ENTER}"
While GUICtrlRead($menge) < $mng
Send("{!}"& $Spam & "{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
EndIf
EndIf

if $norm = True Then

if  $Checkbox1 = True Then

While GUICtrlRead($menge) < $mng
Send("{ENTER}"& $Spam & "{ENTER}{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
Else
	Send("{ENTER}"
While GUICtrlRead($menge) < $mng
Send($Spam & "{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
EndIf
EndIf
EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
oh sorry...script nur sooo überflogen... ähm vllt liegst am dem leerzeichen....oder das du dein hotkeyset nicht am anfang hast...ka xD
07/02/2010 22:50 blubablubafasel#5
Welches Leerzeichen? und Die einlogg func funtioniert und das Hotkeyset vom Spammer kommst ja gleich danach
07/02/2010 22:52 huberhans#6
Quote:
Originally Posted by CroSSiie View Post
oh sorry...script nur sooo überflogen... ähm vllt liegst am dem leerzeichen....oder das du dein hotkeyset nicht am anfang hast...ka xD
Ich schieb den Fehler jetzt einfach mal auf die Zeilen

PHP Code:
if $ruf = True Then

if  $Checkbox1 = True Then 
Denn so liest man weder ne Checkbox noch nen Radio-Button aus
07/02/2010 22:55 blubablubafasel#7
Quote:
Originally Posted by huberhans View Post
Ich schieb den Fehler jetzt einfach mal auf die Zeilen

PHP Code:
if $ruf = True Then

if  $Checkbox1 = True Then 
Denn so liest man weder ne Checkbox noch nen Radio-Button aus
OK... wie dann mit 1 und 0 ?
07/02/2010 23:00 huberhans#8
Quote:
Originally Posted by blubablubafasel View Post
OK... wie dann mit 1 und 0 ?
PHP Code:
If GuiCtrlRead($Checkbox1) = $GUI_CHECKED THEN
If GUICtrlRead($Ruf) = $GUI_CHECKED Then 
So
07/02/2010 23:08 blubablubafasel#9
Quote:
Originally Posted by huberhans View Post
PHP Code:
If GuiCtrlRead($Checkbox1) = $GUI_CHECKED THEN
If GUICtrlRead($Ruf) = $GUI_CHECKED Then 
So
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\users\marc\desktop\koda_1.7.0.1\forms\form1.kxf
$Form1_1 = GUICreate("Multibot by blubablubafasel - als Administrator ausführen", 625, 443, 192, 124, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
$ID = GUICtrlCreateInput("Benutzername", 40, 48, 105, 21)
$Benutzername = GUICtrlCreateLabel("Benutzername", 40, 24, 72, 17)
$PW = GUICtrlCreateInput("Passwort", 160, 48, 105, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Passwort = GUICtrlCreateLabel("Passwort", 160, 24, 47, 17)
$Label1 = GUICtrlCreateLabel("Daten einfügen mit NUMPAD1", 288, 48, 149, 17)
$Label2 = GUICtrlCreateLabel("Spammer:", 40, 96, 51, 17)
$Spam = GUICtrlCreateInput("Text zum Spammen", 48, 128, 353, 21)
$ruf = GUICtrlCreateRadio("Rufchat", 48, 176, 57, 17, BitOR($BS_AUTORADIOBUTTON,$WS_GROUP))
GUICtrlSetState(-1, $GUI_CHECKED)
$norm = GUICtrlCreateRadio("Normal", 48, 192, 57, 17)
$Input1 = GUICtrlCreateInput("SpamDelay", 120, 184, 65, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetTip(-1, "1sec = 1000")
$menge = GUICtrlCreateInput("Aufhören nach XXX Spams", 120, 216, 137, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Checkbox1 = GUICtrlCreateCheckbox("Nach Spam Eingabe schließen", 256, 184, 169, 17)
GUICtrlCreateLabel("Spammer Starten mit NUMPAD2", 304, 224, 157, 17)
$Label3 = GUICtrlCreateLabel("Pickup:", 40, 272, 40, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Pausieren, wenn ENTER gedrückt", 48, 304, 185, 17)
$Input2 = GUICtrlCreateInput("aufheben mit", 248, 304, 97, 21, BitOR($ES_CENTER,$ES_LOWERCASE,$ES_AUTOHSCROLL))
$Input3 = GUICtrlCreateInput("PickupDelay", 248, 328, 73, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label4 = GUICtrlCreateLabel("Starten/Beenden mit PAUSE", 384, 320, 141, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{NUMPAD1}", "ab")
HotKeySet("{NUMPAD2}", "Spam")
Func ab ();
	$msg = MsgBox(4,"Einloggen?","Wollen Sie sich einloggen?")
	if $msg = 6 Then
		Send(GUICtrlRead($ID))
		
		Send("{TAB}")
		Send(GUICtrlRead($PW))
		
		Send("{Enter}")
		
	
		EndIf
	EndFunc
	Func Spam ();
		
		
$mng = 1

If GuiCtrlRead($ruf) = $GUI_CHECKED THEN

if  If GuiCtrlRead($Checkbox1) = $GUI_CHECKED THEN

While GUICtrlRead($menge) < $mng
Send("{ENTER}{!}"& GUICtrlRead($Spam) & "{ENTER}{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
Else
	Send("{ENTER}"
While GUICtrlRead($menge) < $mng
Send("{!}"& GUICtrlRead($Spam) & "{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
EndIf
EndIf

if If GuiCtrlRead($norm) = $GUI_CHECKED THEN

if  If GuiCtrlRead($Checkbox1) = $GUI_UNCHECKED THEN

While GUICtrlRead($menge) < $mng
Send("{ENTER}"& GUICtrlRead($Spam) & "{ENTER}{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
Else
	Send("{ENTER}")
While GUICtrlRead($menge) < $mng
Send(GUICtrlRead($Spam) & "{ENTER}")
$mng + 1
Sleep(Guictrlread($Input1))
WEnd
EndIf
EndIf
EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
Jetzt kommt aber immer ein error in autoit "if If GuiCtrlRead($Checkbox1) = $GUI_CHECKED THEN" und das prog beendet sich
07/02/2010 23:09 bladerofdarknes#10
geht doch auch mit 4 fails und 1 true oder?
07/02/2010 23:10 huberhans#11
If If GUICtrlRead... geht ja auch nicht... da is ein If zu viel
07/02/2010 23:12 blubablubafasel#12
Quote:
Originally Posted by bladerofdarknes View Post
geht doch auch mit 4 fails und 1 true oder?
Error: *:\*****\*****\*******\testt.au3 (54) : ==> Error in expression.:
if If GuiCtrlRead($Checkbox1) = 1 THEN
if ^ ERROR
07/02/2010 23:13 huberhans#13
Quote:
Originally Posted by blubablubafasel View Post
Error: *:\*****\*****\*******\testt.au3 (54) : ==> Error in expression.:
if If GuiCtrlRead($Checkbox1) = 1 THEN
if ^ ERROR
Geht mit 4 und 1 auch, aber nicht, wenn 2x If davor steht
07/02/2010 23:15 blubablubafasel#14
ok hab die if die zu viel waren weg jetzt kommt kein error aber er schreibt nichts sondern drück 1 mal enter und das wars