|
You last visited: Today at 12:11
Advertisement
Noch ein Bot Problem
Discussion on Noch ein Bot Problem within the AutoIt forum part of the Coders Den category.
03/19/2010, 09:27
|
#1
|
elite*gold: 22 
Join Date: Nov 2009
Posts: 394
Received Thanks: 47
|
Noch ein Bot Problem
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)
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
|
#2
|
elite*gold: 0
Join Date: Jun 2009
Posts: 70
Received Thanks: 2
|
versuch maöl als adim zu starten
|
|
|
|
|
03/19/2010, 11:47
|
#3
|
elite*gold: 22
Join Date: Nov 2009
Posts: 394
Received Thanks: 47
|
ne daran liegts nich hab schon ausprobiert
|
|
|
|
|
03/19/2010, 12:51
|
#4
|
elite*gold: 41
Join Date: Oct 2007
Posts: 1,950
Received Thanks: 3,120
|
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
|
#5
|
elite*gold: 22
Join Date: Nov 2009
Posts: 394
Received Thanks: 47
|
meinst du so ? so gehts auch nich
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
|
#6
|
elite*gold: 10
Join Date: Jan 2010
Posts: 115
Received Thanks: 67
|
Vielleicht liegts daran, dass du statt WEnd Wend geschrieben hast^^
Keine Ahnung aber kann ja sein..^^
|
|
|
|
|
03/19/2010, 17:19
|
#7
|
elite*gold: 185
Join Date: May 2008
Posts: 3,646
Received Thanks: 603
|
Die Pausen sind eigentlich zu lange, das sind 50 ms. 1000ms = 1Sekunde von daher denke ich zu schnell!
|
|
|
|
|
03/19/2010, 18:21
|
#8
|
elite*gold: 22
Join Date: Nov 2009
Posts: 394
Received Thanks: 47
|
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
|
#9
|
elite*gold: 185
Join Date: May 2008
Posts: 3,646
Received Thanks: 603
|
Wie ist es denn jetzt?
|
|
|
|
|
03/19/2010, 18:33
|
#10
|
elite*gold: 22
Join Date: Nov 2009
Posts: 394
Received Thanks: 47
|
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
|
#11
|
elite*gold: 22
Join Date: Nov 2009
Posts: 394
Received Thanks: 47
|
kann den niemand helfen
|
|
|
|
|
03/22/2010, 14:44
|
#12
|
elite*gold: 0
Join Date: Apr 2009
Posts: 793
Received Thanks: 366
|
Quote:
Case $Button5
Case $Button5
Send ("1")
|
fällt dir was auf?
|
|
|
|
 |
Similar Threads
|
Noch ein problem
08/04/2010 - Combat Arms - 2 Replies
achdem ich alles hinbekommen ahbe und das spiel endlich mal gefunzt hat
wolte ich mir einen charakter erstellen...und bekomm das nciht geschissen ...
is das normal das das alles schwarz ist??
Please help D:
MfG
xcsx
das problem ist auf den bild!
|
Hab noch ein problem mit MultiStarter.exe
04/18/2010 - Metin2 Private Server - 1 Replies
Also wenn ich MultiStarter.exe starte kommt dann so ein feld da steht dann das es sich nicht öffnen lääste aber bei anderen geht es auf vista warum nicht bei mir?
(Fehler Bild im Anhang)
<Bitte um Hilfe wer es auflösen kann bekommt ein dickes thx von mir x3
|
Noch ein Problem x3
04/17/2010 - Metin2 Private Server - 9 Replies
Wenn ich mich in meinem Server einlogge und alles
halbwegs klappt, gibts erstmal einen grund zum freuen^^
aber wenn ich mich dann teleportieren will, werde ich
in gewisser weise "unsichtbar", kann nichts mehr machen und
warte auf nen kick-.-
denn ich kann mich nicht ausloggen, keine nachricht schreiben.
man kann das so vergleichen: ich spiele und plötzlich bricht
meine internetverbindung ab. keiner bewegt sich mehr.
ich mache kein dmg mehr. aber leider ist es so dass ich
sogar noch...
|
Noch ein Problem
02/25/2010 - Metin2 Private Server - 5 Replies
Hallo zusammen ich stör nochmal
mein Privat Server läuft und alle können sich einloggen nur mein einer freund nicht bei ihm kommt immer "Server offline"
seine mc.txt datei stimmt
habt ihr ne idee woran das noch liegen könnte?
MfG Nixodas
|
Noch ein problem -.- ....
11/13/2009 - Metin2 Private Server - 14 Replies
So ich kann nicht in mein server reinw enn ich sura kopf klicke und starten möchte kommt das
Problem Pictures, Problem Images, Problem Photos, Problem Videos - Image - TinyPic - Kostenlose Bild- und Videospeicherung und gemeinsame Nutzung von Fotos
|
All times are GMT +1. The time now is 12:11.
|
|
