ein einfacher bot ?

02/28/2010 12:19 LordKill#16
dann musste auch ne func daraus machen

func Start()
code....
Endfunc

Func Pause()
code....
Endfunc
02/28/2010 14:16 KDeluxe#17
Du könntest es einfach mit Do... Until machen
Genauso einfach ist es beim drücken von F2 eine While Schleife mit Sleep einzubilden die man durch
erneutes F2 drücken wieder verlassen kann
02/28/2010 18:04 RPGator#18
oke ich wollte den bot gerade testen, ^^ es ist ein anti afk bot damit man mal durchfarmen kann.
bei jedem aktivem fenster schreibt er die buchstaben da hin icq,msn,editor, usw.
nur IG wird nicht gezeigt das sie knöpfe gedrückt werden da die figur immer noch still steht.
ich glaube ich muss den fensternahmen dazufügen damit das programm weiß wo schreiben oder eher drücken soll oder ?
oder bin ich jetzt auf nem gant falschem weg ?
03/01/2010 15:13 RPGator#19
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.4.0
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here


HotKeySet ( "{F9}", "Start")
HotKeySet ( "{F10}", "Pause")
HotKeySet ( "{F11}" , "End")

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\users\user\desktop\s4hack´s\s4 a-afk bot aussehen.kxf
$Form1_1 = GUICreate("Form1", 500, 500, 600, 300)
$Station = GUICtrlCreateTab(168, 48, 265, 329)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Menü")
$Pic1 = GUICtrlCreatePic("C:\Users\user\Desktop\S4Hack´s\S 4logo.jpg", 248, 80, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$TabSheet2 = GUICtrlCreateTabItem("Station 1")
$Button1 = GUICtrlCreateButton("Button1", 256, 88, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Button2", 256, 120, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 256, 152, 75, 25, 0)
$Pic2 = GUICtrlCreatePic("C:\Users\User\Desktop\S4Hack´s\S 4logo.jpg", 248, 216, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$TabSheet3 = GUICtrlCreateTabItem("Station2")
$Button4 = GUICtrlCreateButton("Button4", 256, 88, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 256, 120, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 256, 152, 75, 25, 0)
$Pic3 = GUICtrlCreatePic("C:\Users\user\Desktop\S4Hack´s\S 4logo.jpg", 248, 216, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$TabSheet4 = GUICtrlCreateTabItem("Kolo")
$Button7 = GUICtrlCreateButton("Button7", 256, 88, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Button8", 256, 120, 75, 25, 0)
$Button9 = GUICtrlCreateButton("Button9", 256, 152, 75, 25, 0)
$Pic4 = GUICtrlCreatePic("C:\Users\user\Desktop\S4Hack´s\S 4logo.jpg", 248, 216, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$TabSheet5 = GUICtrlCreateTabItem("Tunnel")
GUICtrlSetState(-1,$GUI_SHOW)
$Button10 = GUICtrlCreateButton("Button10", 256, 88, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Button11", 256, 120, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Button12", 256, 152, 75, 25, 0)
$Pic5 = GUICtrlCreatePic("C:\Users\user\Desktop\S4Hack´s\S 4logo.jpg", 248, 216, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

EndSwitch
WEnd



while 1=1
send("w")
sleep(5000)
send("s")
sleep(5000)
send("s")
sleep(5000)
send("w")
sleep(5000)
send("s")
sleep(5000)
send("s")
sleep(5000)
send("d")
sleep(5000)
send("a")
sleep(5000)
send("{space}")
sleep(5000)
send("s")
sleep(5000)
send("{space}")
sleep(5000)
send("a")
sleep(5000)
send("d")
Wend

func End()
exit



so nun meine fragen:
- wie kann ich zum einem die bilder so einfügen das sie dort bleiben z.b. wenn ich das jetzt in nen ordner tue und verschicke ?
- und wie kann ich das fenster noch etwas verkleinern ohne das gleich alles so extrem verschoben wird ?
03/01/2010 15:20 KDeluxe#20
Mach dir einen Ordner für dein Programm, indem du wieder du wieder ein Unterordner erstellst (z. B. Pictures)

Jetzt musst du deine Bilder nur noch in diesen Ordner packen.
Der Code sieht dann in etwa so aus:
Code:
GUICtrlCreatePic([COLOR="Red"]@ScriptDir & "\S 4logo.jpg"[/COLOR], 248, 80, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
03/01/2010 21:02 RPGator#21
Quote:
Originally Posted by KillerDeluxe View Post
Mach dir einen Ordner für dein Programm, indem du wieder du wieder ein Unterordner erstellst (z. B. Pictures)

Jetzt musst du deine Bilder nur noch in diesen Ordner packen.
Der Code sieht dann in etwa so aus:
Code:
GUICtrlCreatePic([COLOR="Red"]@ScriptDir & "\S 4logo.jpg"[/COLOR], 248, 80, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
also ich habe ebend mal den code in mein script getan, wenn ich es dann öffne kommt ein fehler:

Linie 18 (File"C:Users/User/Desktop/S4Hack´s/S4 A-AFK BOT.au3")

GUICtrlCreatePic(@ScriptDir & "\S 4logo.jpg", 248, 80, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreatePic(@ScriptDir & "\S 4logo.jpg", 248, 80, 100, 100, BitOR(^
ERROR

Error: Variable used without being declared
03/01/2010 21:07 KDeluxe#22
Dann hast du eine Include Datei vergessen, du kannst aber auch einfach das $SS_NOTOFY entfernen
03/02/2010 15:30 RPGator#23
nach dem erneuten ändern der daten kam das dabei heraus,
nachdem ich das $SS_NOTOFY entfernt hatte
>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Tobias\Desktop\S4Hack´s\S4 A-AFK BOT.au3"
C:\Users\Tobias\Desktop\S4Hack´s\S4 A-AFK BOT.au3 (18) : ==> Variable used without being declared.:
GUICtrlCreatePic(@ScriptDir & "\S4logo.jpg", 248, 80, 100, 100, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreatePic(@ScriptDir & "\S4logo.jpg", 248, 80, 100, 100, BitOR(^ ERROR
>Exit code: 1 Time: 0.209

da er sagt es läge an zeile 18, kann es nur der code sein der ihn stört

GUICtrlCreatePic(@ScriptDir & "\S4logo.jpg", 248, 80, 100, 100, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
03/02/2010 16:14 Shadow992#24
Quote:
Originally Posted by RPGator View Post
nach dem erneuten ändern der daten kam das dabei heraus,
nachdem ich das $SS_NOTOFY entfernt hatte
>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Tobias\Desktop\S4Hack´s\S4 A-AFK BOT.au3"
C:\Users\Tobias\Desktop\S4Hack´s\S4 A-AFK BOT.au3 (18) : ==> Variable used without being declared.:
GUICtrlCreatePic(@ScriptDir & "\S4logo.jpg", 248, 80, 100, 100, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreatePic(@ScriptDir & "\S4logo.jpg", 248, 80, 100, 100, BitOR(^ ERROR
>Exit code: 1 Time: 0.209

da er sagt es läge an zeile 18, kann es nur der code sein der ihn stört

GUICtrlCreatePic(@ScriptDir & "\S4logo.jpg", 248, 80, 100, 100, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
Da steht doch alles da ...
Du solltest mal lernen die Fehlermeldungen zu interpretieren/deuten .

Da du zumindest theoretisch alle benötigten Includes hinzugefügt hast , sollest du überprüfen ob diese auch existieren und sie eventuel neu herunterladen (vielleicht sind sie ja veraltet oder heißen anders oder AutoIt kann sie nicht finden usw. )
Ich würde empfehlen AutoIt+Scite-Editor erneut runterzuladen und zu installieren .
03/02/2010 16:39 RPGator#25
Quote:
Originally Posted by Shadow992 View Post
Da steht doch alles da ...
Du solltest mal lernen die Fehlermeldungen zu interpretieren/deuten .

Da du zumindest theoretisch alle benötigten Includes hinzugefügt hast , sollest du überprüfen ob diese auch existieren und sie eventuel neu herunterladen (vielleicht sind sie ja veraltet oder heißen anders oder AutoIt kann sie nicht finden usw. )
Ich würde empfehlen AutoIt+Scite-Editor erneut runterzuladen und zu installieren .
am wie ich ganz am anfang schreibe, ich fange erst an mit dem scripten und tue dieses auch erst seit ein paar tagen.
sonst hätte ich mie ja selber helfen können
03/02/2010 17:26 Shadow992#26
Quote:
Originally Posted by RPGator View Post
am wie ich ganz am anfang schreibe, ich fange erst an mit dem scripten und tue dieses auch erst seit ein paar tagen.
sonst hätte ich mie ja selber helfen können
Das wichtigste besteht in dem Deuten der Fehler ...
Sonst kommst du alle paar min ins Forum "gerannt" und frägst , wie man den
Fehler beseitigen kann ...