Noch ein Bot Problem

03/19/2010 09:27 *Bart*#1

n�chstes Problem hab in meinem Bot ein lvl Bot f�r Metin eingebaut.
bei Notepad schreibt er alles ohne begrenzung hin doch bei metin h�hrt nach ner zeit auf so nach 20 sekunden oder so help pls
(siehe unten die Schleife)

Spoiler

PHP Code:


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

#Region ### START Koda GUI section ### Form=c:\users\mittwoch\desktop\testtest.kxf
$Form1_1 = GUICreate("Multibot", 246, 367, 211, 134)
GUISetIcon("D:\005.ico")
$Tab1 = GUICtrlCreateTab(8, 8, 233, 289)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Infos")
$Label1 = GUICtrlCreateLabel("Multibot", 96, 40, 69, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Hotkeys:", 16, 64, 46, 17)
$Label3 = GUICtrlCreateLabel("Num 1 = Einloggen", 16, 88, 94, 17)
$Label4 = GUICtrlCreateLabel("Num 2 = Einloggen (2)", 16, 112, 109, 17)
$Label5 = GUICtrlCreateLabel("Num 3 = Ausloggen", 16, 136, 97, 17)
$Label6 = GUICtrlCreateLabel("Num 4 = Char wechseln", 16, 160, 117, 17)
$Label7 = GUICtrlCreateLabel("Num 5 = Hide Bot", 16, 184, 88, 17)
$Label8 = GUICtrlCreateLabel("Num 6 = Show Bot", 16, 208, 93, 17)
$Label16 = GUICtrlCreateLabel("Num 7 = start lvl bot", 16, 232, 98, 17)
$Label17 = GUICtrlCreateLabel("Exit Bot", 16, 256, 40, 17)
$TabSheet2 = GUICtrlCreateTabItem("Einlogger")
$id = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input", "Wert", "" ), 40, 40, 113, 21)
$pw = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input2", "Wert", "" ), 40, 72, 113, 21)
$id2 = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input3", "Wert", "" ), 40, 104, 113, 21)
$pw3 = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input4", "Wert", "" ), 40, 136, 113, 21)
$Button1 = GUICtrlCreateButton("Speichern", 160, 136, 73, 25)
$Label9 = GUICtrlCreateLabel("1.", 16, 40, 13, 17)
$Label10 = GUICtrlCreateLabel("2.", 16, 104, 13, 17)
$Label11 = GUICtrlCreateLabel("Id, pw eingeben dann auf Speichern klicken", 16, 168, 213, 17)
$Label13 = GUICtrlCreateLabel("In metin ins Id Fenster klicken", 16, 184, 144, 17)
$Label14 = GUICtrlCreateLabel("und Num. 1 dr�cken f�r ersten einlogger", 16, 200, 194, 17)
$Label15 = GUICtrlCreateLabel("Num 2 f�r 2. einlogger", 16, 216, 108, 17)
$TabSheet3 = GUICtrlCreateTabItem("Lvl Bot")
GUICtrlSetState(-1,$GUI_SHOW)
$Label18 = GUICtrlCreateLabel("1. Bot als Admin ausf�hren", 24, 48, 130, 17)
$Label19 = GUICtrlCreateLabel("2. metin2 starten einloggen", 24, 72, 131, 17)
$Label20 = GUICtrlCreateLabel("und zum lvl Platz gehen", 32, 96, 116, 17)
$Label21 = GUICtrlCreateLabel("3.1 Rote 2 Blaue Potts", 24, 120, 111, 17)
$Label22 = GUICtrlCreateLabel("3-F3 Normale Fertigkeiten", 32, 144, 125, 17)
$Label23 = GUICtrlCreateLabel("F4 Aura o.�.", 32, 168, 62, 17)
$Label24 = GUICtrlCreateLabel("4. Moblock starten", 24, 192, 92, 17)
$Label25 = GUICtrlCreateLabel("5. Start dr�cken", 24, 216, 80, 17)
$Radio1 = GUICtrlCreateRadio("Schnell Potten", 24, 240, 89, 17)
$Radio2 = GUICtrlCreateRadio("Langsam Potten", 24, 264, 97, 17)
$Button5 = GUICtrlCreateButton("Start", 144, 248, 81, 33)
GUICtrlCreateTabItem("")
$Label12 = GUICtrlCreateLabel("mady by *Bart* on Elitepvpers.com", 72, 344, 166, 17)
GUICtrlSetFont(-1, 1, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x646464)
$Button2 = GUICtrlCreateButton("Metin starten", 8, 304, 73, 33)
$Button3 = GUICtrlCreateButton("Hide Bot ", 88, 304, 73, 33)
$Button4 = GUICtrlCreateButton("Exit Bot", 168, 304, 65, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


HotKeySet ("{NUMPAD5}", "start")
HotKeySet ("{NUMPAD6}", "start1")
HotKeySet ("{NUMPAD4}", "start2")
HotKeySet ("{NUMPAD3}", "start3")
HotKeySet ("{NUMPAD1}", "start4")
HotKeySet ("{NUMPAD8}", "start5")
HotKeySet ("{NUMPAD2}", "start6")

Func start()
WinSetState ("Multibot", "", @SW_hide)
EndFunc

Func start1()
WinSetState ("Multibot", "", @SW_show)
EndFunc

Func start2()
Send ("{Enter}")
Send("/Phase_select")
Send ("{Enter}")
Send ("{Enter}")
EndFunc

Func start3()
Send ("{Enter}")
Send("/logout")
Send ("{Enter}")
Send ("{Enter}")
EndFunc

Func start4()
Send (GUICtrlRead ($id))
Send ("{Enter}")
Send (GUICtrlRead ($pw))
Send ("{Enter}")
EndFunc

Func start6()
Send (GUICtrlRead ($id2))
Send ("{Enter}")
Send (GUICtrlRead ($pw3))
Send ("{Enter}")
EndFunc

Func start5()
Exit
EndFunc





While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $read1 = GUICtrlRead($id)
            $read2 = GUICtrlRead($pw)
            $read3 = GUICtrlRead($id2)
            $read4 = GUICtrlRead($pw3)
        
            IniWrite(@ScriptDir & "\Speicher.ini", "Input", "Wert",$read1)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input2", "Wert",$read2)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input3", "Wert",$read3)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input4", "Wert",$read4)
        Case $Button3
            WinSetState ("Multibot", "", @SW_hide)
        Case $Button4
            Exit
        Case $Button2
            Run ("C:\Program Files\Metin2\Metin2")
        Case $Button5
            Send ("1{SPACE}2{SPACE}3{SPACE}4{SPACE}{F2}{SPACE}{F3}{SPACE}1{SPACE}2{SPACE}34{SPACE}{SPACE}{F2}{F3}{SPACE}{F4}")
    EndSwitch

Wend

achja gleich noch ne frage wie macht man das das wenn der eine radio butten angeklickt ist er das machen soll und wenn der andere angeklickt ist das andere?

03/19/2010 11:45 sasse#2

versuch ma�l als adim zu starten

03/19/2010 11:47 *Bart*#3

ne daran liegts nich hab schon ausprobiert

03/19/2010 12:51 LordKill#4

schon mit sleeps versucht?
das senden k�nnte zu schnell gehen dann kriegt das metin2 fenster es gar nicht mit ^^

03/19/2010 14:37 *Bart*#5

meinst du so ? so gehts auch nich

Spoiler

PHP Code:


			
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $read1 = GUICtrlRead($id)
            $read2 = GUICtrlRead($pw)
            $read3 = GUICtrlRead($id2)
            $read4 = GUICtrlRead($pw3)
        
            IniWrite(@ScriptDir & "\Speicher.ini", "Input", "Wert",$read1)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input2", "Wert",$read2)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input3", "Wert",$read3)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input4", "Wert",$read4)
        Case $Button3
            WinSetState ("Multibot", "", @SW_hide)
        Case $Button4
            Exit
        Case $Button2
            Run ("C:\Program Files\Metin2\Metin2")
        Case $Button5
            Send ("1")
            Sleep(50)
            Send ("2")
            Sleep(50)
            Send ("3")
            Sleep(50)
            Send ("4")
            Sleep(50)
            Send ("{F1}")
            Sleep(50)
            Send ("{F2}")
            Sleep(50)
            Send ("{F3}")
            Sleep(50)
            Send ("1")
            Sleep(50)
            Send ("2")
            Sleep(50)
            Send ("3")
            Sleep(50)
            Send ("4")
            Sleep(50)
            Send ("{F1}")
            Sleep(50)
            Send ("{F2}")
            Sleep(50)
            Send ("{F3}")
            Sleep(50)
            Send ("{F4}")
    EndSwitch
Wend

03/19/2010 16:01 xXEnjoyXx#6

Vielleicht liegts daran, dass du statt WEnd Wend geschrieben hast^^
Keine Ahnung aber kann ja sein..^^

03/19/2010 17:19 epiTR#7

Die Pausen sind eigentlich zu lange, das sind 50 ms. 1000ms = 1Sekunde von daher denke ich zu schnell!

03/19/2010 18:21 *Bart*#8

am wend kanns nicht liegen und das problem liegt grade nicht an den Pausen sondern wie ich es aufschreiben soll so wie es jetzt ist geht gar nichts mehr

03/19/2010 18:30 epiTR#9

Wie ist es denn jetzt?

03/19/2010 18:33 *Bart*#10

Spoiler

PHP Code:


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

#Region ### START Koda GUI section ### Form=c:\users\mittwoch\desktop\testtest.kxf
$Form1_1 = GUICreate("Multibot", 246, 367, 211, 134)
GUISetIcon("D:\005.ico")
$Tab1 = GUICtrlCreateTab(8, 8, 233, 289)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Infos")
$Label1 = GUICtrlCreateLabel("Multibot", 96, 40, 69, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Hotkeys:", 16, 64, 46, 17)
$Label3 = GUICtrlCreateLabel("Num 1 = Einloggen", 16, 88, 94, 17)
$Label4 = GUICtrlCreateLabel("Num 2 = Einloggen (2)", 16, 112, 109, 17)
$Label5 = GUICtrlCreateLabel("Num 3 = Ausloggen", 16, 136, 97, 17)
$Label6 = GUICtrlCreateLabel("Num 4 = Char wechseln", 16, 160, 117, 17)
$Label7 = GUICtrlCreateLabel("Num 5 = Hide Bot", 16, 184, 88, 17)
$Label8 = GUICtrlCreateLabel("Num 6 = Show Bot", 16, 208, 93, 17)
$Label16 = GUICtrlCreateLabel("Num 7 = start lvl bot", 16, 232, 98, 17)
$Label17 = GUICtrlCreateLabel("Exit Bot", 16, 256, 40, 17)
$TabSheet2 = GUICtrlCreateTabItem("Einlogger")
$id = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input", "Wert", "" ), 40, 40, 113, 21)
$pw = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input2", "Wert", "" ), 40, 72, 113, 21)
$id2 = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input3", "Wert", "" ), 40, 104, 113, 21)
$pw3 = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input4", "Wert", "" ), 40, 136, 113, 21)
$Button1 = GUICtrlCreateButton("Speichern", 160, 136, 73, 25)
$Label9 = GUICtrlCreateLabel("1.", 16, 40, 13, 17)
$Label10 = GUICtrlCreateLabel("2.", 16, 104, 13, 17)
$Label11 = GUICtrlCreateLabel("Id, pw eingeben dann auf Speichern klicken", 16, 168, 213, 17)
$Label13 = GUICtrlCreateLabel("In metin ins Id Fenster klicken", 16, 184, 144, 17)
$Label14 = GUICtrlCreateLabel("und Num. 1 dr�cken f�r ersten einlogger", 16, 200, 194, 17)
$Label15 = GUICtrlCreateLabel("Num 2 f�r 2. einlogger", 16, 216, 108, 17)
$TabSheet3 = GUICtrlCreateTabItem("Lvl Bot")
GUICtrlSetState(-1,$GUI_SHOW)
$Label18 = GUICtrlCreateLabel("1. Bot als Admin ausf�hren", 24, 48, 130, 17)
$Label19 = GUICtrlCreateLabel("2. metin2 starten einloggen", 24, 72, 131, 17)
$Label20 = GUICtrlCreateLabel("und zum lvl Platz gehen", 32, 96, 116, 17)
$Label21 = GUICtrlCreateLabel("3.1 Rote 2 Blaue Potts", 24, 120, 111, 17)
$Label22 = GUICtrlCreateLabel("3-F3 Normale Fertigkeiten", 32, 144, 125, 17)
$Label23 = GUICtrlCreateLabel("F4 Aura o.�.", 32, 168, 62, 17)
$Label24 = GUICtrlCreateLabel("4. Moblock starten", 24, 192, 92, 17)
$Label25 = GUICtrlCreateLabel("5. Start dr�cken", 24, 216, 80, 17)
$Radio1 = GUICtrlCreateRadio("Schnell Potten", 24, 240, 89, 17)
$Radio2 = GUICtrlCreateRadio("Langsam Potten", 24, 264, 97, 17)
$Button5 = GUICtrlCreateButton("Start", 144, 248, 81, 33)
GUICtrlCreateTabItem("")
$Label12 = GUICtrlCreateLabel("mady by *Bart* on Elitepvpers.com", 72, 344, 166, 17)
GUICtrlSetFont(-1, 1, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x646464)
$Button2 = GUICtrlCreateButton("Metin starten", 8, 304, 73, 33)
$Button3 = GUICtrlCreateButton("Hide Bot ", 88, 304, 73, 33)
$Button4 = GUICtrlCreateButton("Exit Bot", 168, 304, 65, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


HotKeySet ("{NUMPAD5}", "start")
HotKeySet ("{NUMPAD6}", "start1")
HotKeySet ("{NUMPAD4}", "start2")
HotKeySet ("{NUMPAD3}", "start3")
HotKeySet ("{NUMPAD1}", "start4")
HotKeySet ("{NUMPAD8}", "start5")
HotKeySet ("{NUMPAD2}", "start6")

Func start()
WinSetState ("Multibot", "", @SW_hide)
EndFunc

Func start1()
WinSetState ("Multibot", "", @SW_show)
EndFunc

Func start2()
Send ("{Enter}")
Send("/Phase_select")
Send ("{Enter}")
Send ("{Enter}")
EndFunc

Func start3()
Send ("{Enter}")
Send("/logout")
Send ("{Enter}")
Send ("{Enter}")
EndFunc

Func start4()
Send (GUICtrlRead ($id))
Send ("{Enter}")
Send (GUICtrlRead ($pw))
Send ("{Enter}")
EndFunc

Func start6()
Send (GUICtrlRead ($id2))
Send ("{Enter}")
Send (GUICtrlRead ($pw3))
Send ("{Enter}")
EndFunc

Func start5()
Exit
EndFunc





While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $read1 = GUICtrlRead($id)
            $read2 = GUICtrlRead($pw)
            $read3 = GUICtrlRead($id2)
            $read4 = GUICtrlRead($pw3)
        
            IniWrite(@ScriptDir & "\Speicher.ini", "Input", "Wert",$read1)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input2", "Wert",$read2)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input3", "Wert",$read3)
            IniWrite(@ScriptDir & "\Speicher.ini", "Input4", "Wert",$read4)
        Case $Button3
            WinSetState ("Multibot", "", @SW_hide)
        Case $Button4
            Exit
        Case $Button2
            Run ("C:\Program Files\Metin2\Metin2")
        Case $Button5
            Case $Button5
            Send ("1")
            Sleep(50)
            Send ("2")
            Sleep(50)
            Send ("3")
            Sleep(50)
            Send ("4")
            Sleep(50)
            Send ("{F1}")
            Sleep(50)
            Send ("{F2}")
            Sleep(50)
            Send ("{F3}")
            Sleep(50)
            Send ("1")
            Sleep(50)
            Send ("2")
            Sleep(50)
            Send ("3")
            Sleep(50)
            Send ("4")
            Sleep(50)
            Send ("{F1}")
            Sleep(50)
            Send ("{F2}")
            Sleep(50)
            Send ("{F3}")
            Sleep(50)
            Send ("{F4}")
    EndSwitch

Wend

so gehts nicht so geht gar nichts wie denn

03/22/2010 10:43 *Bart*#11

kann den niemand helfen

03/22/2010 14:44 Xereon#12

Quote:

Case $Button5
Case $Button5
Send ("1")

f�llt dir was auf?