|
You last visited: Today at 12:53
Advertisement
Kleine Tools
Discussion on Kleine Tools within the Fiesta Online forum part of the MMORPGs category.
04/06/2015, 18:22
|
#1
|
elite*gold: 0
Join Date: Jul 2011
Posts: 129
Received Thanks: 20
|
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.
Code:
#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.
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 <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.
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

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)
|
|
|
 |
Similar Threads
|
[Free]MyPod - kleine Tools
04/23/2013 - Coding Releases - 2 Replies
Guten Tag epvp,
ich Release meinen MyPod (iPod für Windows :P) , geschrieben in Visual Basic 2010 Express
den ich hier :
http://www.elitepvpers.com/forum/elite-gold-tradi ng/2554348-b-mypod-kleine-s-tool-s-s-e-gold-oder-a nderes.html
verkaufen wollte weil ich es will :P
|
[B]Ein paar kleine Tools [S] e*Gold
02/12/2013 - elite*gold Trading - 9 Replies
Hallo, ich biete hier ein paar selbsterstellte Programme an! :D
Zum kaufen/runterladen immer auf den Preis drücken. Die Source ist in VB.NET geschireben. Bei Problemen oder bei Interesse an der Werbung in den Programmen.
Youtube Viewbot
Hallo, biete hier meinen Youtube Viewbot an
Was macht er?
Der Bot öffnet ein Youtubevideo, welches alle X Sekunden Aktualisiert wird, somit könnt ihr leicht Aufrufe bekommen ohne das ihr Anwesend seid.
|
.ToKeN-'s Programm Shop [Kleine Tools!]
12/04/2011 - elite*gold Trading - 0 Replies
Aktuell vorhandene Programme:
•Spammer
•Check this Page! (Überprüft ob eine Seite online ist oder nicht)
•Ratespiel (Zahl von 1-500 erraten)
Spammer:
Infos:
-5 Geschwindigkeiten(Sehr Schnell, Schnell, Mittel, Langsam, Sehr Langsam)
-Funktioniert überall(Außer bei Programmen/Webseiten die solche Tools blocken(wie z.B. Teamspeak)
|
TheEvil's kleine Hilfe-Tools
11/18/2010 - Nostale - 5 Replies
Hab mir mal überlegt kleine Tools zu machen die euch bei Kleinigkeiten helfen könnten^^ Einfach die Datei "TheEvil's kleinen Hilfe-Tools für Nostale" starten :D
Hier sind die einzelnen Tools:
Autom. Munitions auflader: Ladet automatisch eure Munition beim Schießstand auf.
Mini lvl Bot: Ein einfacher Bot der die Leertaste drückt und Sachen aufhebt. Neu: Z-Funktion, benutzt auch die Zeitwaffe!
Spam Bot: Ein Spam Bot der das schreibt was ihr wollt und eure Sleeptime beachtet. (Ich...
|
kleine linkage? 3rd party tools?
03/03/2005 - General Gaming Discussion - 44 Replies
wäre nett wenn mal jmd von den daoc'lern hier paar nützliche links posten würde
z.b. http://excalibar.sourceforge.net/ (funzt das ding überhaupt?)
p.s. nein ich hab nicht vor daoc zu zocken, die 30 min. beta waren schlimm genug ;p
|
All times are GMT +1. The time now is 12:53.
|
|