Kleine Tools

[greenryder]

Ich schließe mich mal pachen123321 und hau mal alles raus was ich auf der Platte habe und eventuell jemandem helfen könnte der nicht Scripten kann oder nicht Googlen was auch immer xD

Als erstes einen kleinen Spambot der nach der Eingabe der Nachricht und der Anzahl der Spams die nachricht sendet und Enter drückt. War ursprünglich mal für Skype gedacht geht bei allem anderen aber problemlos.

 Spoiler

#RequireAdmin

HotKeySet("{F5}","_Exit")




Func _Exit ()
	Exit
EndFunc


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Spambot = GUICreate("Spambot", 327, 274, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 120, 208, 75, 25)
$Input1 = GUICtrlCreateInput("Noob", 97, 96, 121, 21)
$Label1 = GUICtrlCreateLabel("Was soll gespammt werden ?", 86, 80, 142, 17)
$Input2 = GUICtrlCreateInput("1", 97, 160, 121, 21, $ES_Number)
$Label2 = GUICtrlCreateLabel("Wie oft soll gespammt werden ?", 80, 144, 154, 17)
$Label3 = GUICtrlCreateLabel("Spam Bot", 103, 8, 117, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$i = 0

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

		Case $Button1
			ToolTip("5",0,0)
			Sleep(1000)
			ToolTip("4",0,0)
			Sleep(1000)
			ToolTip("3",0,0)
			Sleep(1000)
			ToolTip("2",0,0)
			Sleep(1000)
			ToolTip("1",0,0)
			Sleep(1000)
			ToolTip("0",0,0)
			$SpammText = GUICtrlRead($Input1)
			$SpammAnzahl = GUICtrlRead($Input2)
				While $SpammAnzahl <> $i
					Send($SpammText)
					Send("{Enter}")
					$i = $i + 1
				WEnd
			$i = 0

	EndSwitch
WEnd

Als nächstes ein kleiner Maustasten Spamer man kann auswählen Links oder Rechts die Taste wird Permanent gespamt.

 Spoiler

#RequireAdmin

Global $paused
HotKeySet("{F6}", "_pause")
HotKeySet("{F5}", "_exit")

Func _exit()
	Exit
EndFunc

Func _pause()
	$paused = NOT $paused
		While $paused
			Sleep(100)
			ToolTip("SCRIPT PAUSIERT F6 = WEITER", 0, 0)
		WEnd
			ToolTip("")
EndFunc




#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Maus Spam", 214, 164, 192, 124)
$Radio1 = GUICtrlCreateRadio("Links", 16, 24, 113, 17)
$Radio2 = GUICtrlCreateRadio("Rechts", 16, 64, 113, 17)
$Button1 = GUICtrlCreateButton("Start", 16, 104, 75, 25)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

$rc = ""


While 1


	If GUICtrlRead($Radio1) = 1 Then
		$rc = "left"
	EndIf
	If GUICtrlRead($Radio2) = 1 Then
		$rc = "right"
	EndIf

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

		Case $Button1
			Send("{F6}")
			While 1
				ToolTip( "F6 Pausieren // F5 Beenden")
				MouseClick( $rc )
			WEnd



	EndSwitch
WEnd

Dann hab ich hier noch einen Tasten Spamer wo man zwischen den Zahlen 1-8 und den Buchstaben Q und E auswählen kann. Die tasten werden kontinuierlich gespamt.

 Spoiler

#RequireAdmin

Global $paused
HotKeySet("{F6}", "_pause")
HotKeySet("{F5}", "_exit")

Func _exit()
	Exit
EndFunc

Func _pause()
	$paused = NOT $paused
		While $paused
			Sleep(100)
			ToolTip("SCRIPT PAUSIERT F6 = WEITER", 0, 0)
		WEnd
			ToolTip("")
EndFunc


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Deto Bot", 312, 336, 192, 123)
$Checkbox7 = GUICtrlCreateCheckbox("Taste 7", 48, 152, 81, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Taste 3", 48, 89, 81, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Taste 1", 48, 57, 81, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Taste 5", 47, 121, 81, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Taste E", 48, 185, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Taste 2", 184, 58, 81, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Taste 4", 185, 89, 81, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Taste 6", 185, 122, 81, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Taste 8", 186, 153, 81, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Taste Q", 184, 184, 81, 17)
$Label1 = GUICtrlCreateLabel("Nach dem Drücken auf 'Start' F6 zum Starten / Pausieren", 16, 224, 282, 17)
$Label2 = GUICtrlCreateLabel("und F5 zum beenden !", 96, 248, 110, 17)
$Button1 = GUICtrlCreateButton("Start", 80, 280, 137, 33)
$Label3 = GUICtrlCreateLabel("Deto Bot von I3ackMage", 88, 8, 124, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


$b1 = ""
$b2 = ""
$b3 = ""
$b4 = ""
$b5 = ""
$b6 = ""
$b7 = ""
$b8 = ""
$b9 = ""
$b10 = ""

While 1


	If GUICtrlRead($Checkbox1) = 1 Then
		$b1 = "1"
	EndIf

	If GUICtrlRead($Checkbox2) = 1 Then
		$b2 = "2"
	EndIf

	If GUICtrlRead($Checkbox3) = 1 Then
		$b3 = "3"
	EndIf

	If GUICtrlRead($Checkbox4) = 1 Then
		$b4 = "4"
	EndIf

	If GUICtrlRead($Checkbox5) = 1 Then
		$b5 = "5"
	EndIf

	If GUICtrlRead($Checkbox6) = 1 Then
		$b6 = "6"
	EndIf

	If GUICtrlRead($Checkbox7) = 1 Then
		$b7 = "7"
	EndIf

	If GUICtrlRead($Checkbox8) = 1 Then
		$b8 = "8"
	EndIf

	If GUICtrlRead($Checkbox9) = 1 Then
		$b9 = "e"
	EndIf

	If GUICtrlRead($Checkbox10) = 1 Then
		$b10 = "q"
	EndIf



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

		Case $Button1
			Send("{F6}")
				While 1
					ToolTip( "F6 = Pause/Weiter // F5 = Beenden", 0, 0 )
					Send( $b1 )
					Send( $b2 )
					Send( $b3 )
					Send( $b4 )
					Send( $b5 )
					Send( $b6 )
					Send( $b7 )
					Send( $b8 )
					Send( $b9 )
					Send( $b10 )
				WEnd
	EndSwitch

WEnd

Ich wünsche keine beleidigende, aggressive oder einfach nur flame Kommentare. Diese "Programme" sind für alle, die sich nicht anders zu helfen wissen. Mir ist auch bewusst, dass es andere und bessere Wege gibt.

Die "Programme" haben alle die selben HotKeys F5 beendet das Programm. Mit F6 kann man zwischen Pause und Weiter wechseln(außer bei dem Skype Spambot)