HOTKEYSET("{F8}","Ende") ; wenn F8 gedrückt wird, wird Func Ende() aufgerufen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("", 344, 246, 192, 124, $WS_POPUP) ; form wird erstellt > $WS_POPUP sorgt dafür, dass der Rand, wo auch minimieren ist, entfernt wird.
$Slider = GUICtrlCreateSlider(88, 144, 182, 29) ; Slider wird erstellt
GUICtrlSetLimit($Slider, 11, 1) ; Slider limit wird festgelegt ( 11 Linien = start bei 1 )
$Input1 = GUICtrlCreateInput("", 129, 56, 111, 21) ; Input wird erstellt > zum Fenstername angeben
$Start = GUICtrlCreateButton("Start", 24, 208, 75, 25, $WS_GROUP) ; Button für Start wird erstellt
$Beenden = GUICtrlCreateButton("Beenden", 248, 208, 75, 25, $WS_GROUP) ; Button für das Beenden wird erstellt
$Pic1 = GUICtrlCreatePic("background.jpg", 0, 0, 356, 360, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ; fügt das Bild in die GUI ein
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Beenden ; Zuweisen > wenn Button Beenden gedrückt wird, dann wird Func Ende() aufgerufen
Ende()
Case $Start ; Zuweisen > wenn Button Start gedrückt wird, dann wird der folgende Befehl ausgeführt.
If (GUICtrlRead($Slider)) = 1 Then ; Wenn Slider auf Wert 1 ist, dann ...
While 1 ; Anfang Endlosschleife
WinWaitActive(GUICtrlRead($Input1)) ; Warte, bis Fenstername, der in Input 1 angegeben wurde, aktiv ist.
sleep ( 300 ) ; warten / schlafen für 300 Millisekunden
send ( "y" ) ; sendet Taste "y"
WEnd ; Ende der Endlosschleife
EndIf ; Ende der If Funktion
If (GUICtrlRead($Slider)) = 2 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 250 ) ; selbe wie oben
send ( "y" )
WEnd
EndIf
If (GUICtrlRead($Slider)) = 3 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 200 ) ; selbe wie oben
send ( "y" )
WEnd
EndIf
If (GUICtrlRead($Slider)) = 4 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 175 ) ; selbe wie oben
send ( "y" )
WEnd
EndIf
If (GUICtrlRead($Slider)) = 5 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 150 ) ; selbe wie oben
send ( "y" )
WEnd
EndIF
If (GUICtrlRead($Slider)) = 6 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 125 ) ; selbe wie oben
send ( "y" )
WEnd
EndIF
If (GUICtrlRead($Slider)) = 7 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 100 ) ; selbe wie oben
send ( "y" )
WEnd
EndIF
If (GUICtrlRead($Slider)) = 8 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 75 ) ; selbe wie oben
send ( "y" )
WEnd
EndIF
If (GUICtrlRead($Slider)) = 9 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 50 ) ; selbe wie oben
send ( "y" )
WEnd
EndIF
If (GUICtrlRead($Slider)) = 10 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
sleep ( 25 ) ; selbe wie oben
send ( "y" )
WEnd
EndIF
If (GUICtrlRead($Slider)) = 11 Then
While 1
WinWaitActive(GUICtrlRead($Input1))
send ( "y" )
WEnd
EndIF
EndSwitch
WEnd
Func Ende() ; Wenn Button Beenden geklickt wird, dann wird die Funktion aufgerufen und der Befehl ausgeführt
Exit ; Beenden des Programmes/Bots
EndFunc
; Das WinWaitActive hätte man auch so einbauen können, dass er es alle paar Sekunden kontrolliert. Aber so geht es in diesem Fall halt auch.
Sammelt er so schnell genug auf oder noch etwas zu langsam, wenn du es auf schnell einstellst? Ansonsten könnte ich ihn nochmal überarbeiten, sodass es noch schneller geht.
80% der Pickup Bots funktionieren nicht mehr. Soweit ich weiß funktioniert " controlsend " bei Metin2 nicht mehr und dadurch funktionieren die Hidden Pickup Bots nicht mehr.
Naja meiner ist noch nicht hidden. Meiner sendet ja eigtl nur die Taste und überprüft ständig, ob das Fenster noch aktiv ist. Wenn das Fenster nicht aktiv ist, dann stoppt er halt.
Ich werde mal eine Alternative für Controlsend suchen, welche auch funktioniert und dann wird er hidden.
Hmm ich werd mich nacher mal an einen Hidden Bot ransetzen
achja mit AutoIt kommste da nicht weit
Du sagst ES!
Gib mir 10minuten und ich hab einen hidden gemacht un released + er sendet kein Y oder ^ in das fenster d.h. man kann noch Chatten... das ist wirklich scheiße bei dem hier...
Du sagst ES!
Gib mir 10minuten und ich hab einen hidden gemacht un released + er sendet kein Y oder ^ in das fenster d.h. man kann noch Chatten... das ist wirklich scheiße bei dem hier...
Nicht jeder ist so toll wie du
Quote:
Originally Posted by amnesi
achja mit AutoIt kommste da nicht weit
Cool Story Bro, tell it again. :b
Wenn man den "CreateThread"-DLL-Aufruf ans Laufen kriegt, dann gehts mit allen Sprachen, die halt auf diese API zugreifen können
[RELEASE]Kleiner Pickup-Bot 05/26/2010 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 7 Replies Ich hab mal zum Spaß einen Pickup-Bot gescriptet,
ich weiß, dass das nicht schwer ist!
Aber ich hab mir gedacht ich veröffentliche den trotzdem mal!
(Der Pickup-Bot ist nicht in der Tastkleiste, verschwindet aber mit F7)
Hier noch die Hotkeys:
F6 = Start
F7 = Stop
F8 = Pause
[RELEASE] AutoPotter + PickUp 07/29/2009 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 7 Replies So hab mich mal an einen weiteren Bot ran gesetzt hoffe er gefällt euch
es ist ein Autopotter mit PickUp Bot
Benutzung ist ganz einfach..
1. man kann auswählen ob
a) nur Autopotter an sein soll
b) nur PickUpBot
c) beides an sein soll
2. bei den PickUpBot noch einstellen in welchen Abschnitten er sachen aufheben soll (in ms)
3. einfach starten.
[RELEASE] Abbauer mit PickUp by Labbeduddel 11/26/2008 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 21 Replies So, mein letztes Script für heute, gleich kommt noch eins von Mario2323, was wir in den letzten Monaten zusammengebastelt haben..
Ihr haltet schlicht und einfach die Maus auf die Ader, und der Bot fängt an, für euch abzubauen. Die "Dropps" hebt er dazu auch noch automatisch auf. :)
Viel Spaß damit,
euer Labbeduddel
[RELEASE]Pickup bot 07/02/2008 - Dekaron Exploits, Hacks, Bots, Tools & Macros - 2 Replies So ich hab hier mal meinen kleinen pickup bot reingestellt
so wie jeder mal klein anfängt stell ich hier mal meinen pick up bot rein
(ich weiß so was gibts schon und es sind auch noch keine hotkeys da bei aber wie gesagt jeder fängt halt mal klein an:);)
![[Release] Pickup Bot](https://www.elitepvpers.com/forum/iconimages/metin2-hacks-bots-cheats-exploits-macros/release-pickup-bot_ltr.gif){kind=small}
