Kleine Tools

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

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

Spoiler

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

Code:

#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

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

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)