|
You last visited: Today at 14:30
Advertisement
Bot problem
Discussion on Bot problem within the AutoIt forum part of the Coders Den category.
03/16/2010, 18:14
|
#1
|
elite*gold: 22
Join Date: Nov 2009
Posts: 394
Received Thanks: 47
|
Bot problem
hab n problem mit meinem Bot wenn ich auf der 2. seite (Tabelsheet2) daten ins input eingebe und auf speichern klicke kommt fehlermeldung Error parenig functional call oder so hier die souce
PHP Code:
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Multibot", 245, 433, 224, 140) GUISetIcon("D:\005.ico") $Tab1 = GUICtrlCreateTab(8, 8, 233, 233) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("Infos") $Label1 = GUICtrlCreateLabel("Multibot", 64, 40, 69, 28) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Hotkeys:", 16, 72, 46, 17) $Label3 = GUICtrlCreateLabel("Num 1 = Einloggen", 16, 96, 94, 17) $Label4 = GUICtrlCreateLabel("Num 2 = Ausloggen", 16, 120, 97, 17) $Label5 = GUICtrlCreateLabel("Num 3 = Char wechseln", 16, 144, 117, 17) $Label6 = GUICtrlCreateLabel("Num 4 = Hide Bot", 16, 168, 88, 17) $Label7 = GUICtrlCreateLabel("Num 5 = Show Bot", 16, 192, 93, 17) $Label8 = GUICtrlCreateLabel("Num 6 = Exit Bot", 16, 216, 83, 17) $Button2 = GUICtrlCreateButton("Metin starten", 152, 80, 81, 33, 0) $Button3 = GUICtrlCreateButton("Hide Bot", 152, 128, 81, 33, 0) $Button4 = GUICtrlCreateButton("Exit Bot", 152, 176, 81, 33, 0)
$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, 0)
$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) GUICtrlCreateTabItem("") $Pic1 = GUICtrlCreatePic("C:\Users\321\Desktop\2205.ico.jpg", 16, 248, 217, 145, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Label12 = GUICtrlCreateLabel("mady by *Bart* on Elitepvpers.com", 64, 400, 166, 17) GUICtrlSetFont(-1, 1, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x646464) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ###
HotKeySet ("{NUMPAD5}", "start") HotKeySet ("{NUMPAD6}", "start1") HotKeySet ("{NUMPAD4}", "start2") HotKeySet ("{NUMPAD3}", "start3") HotKeySet ("{NUMPAD1}", "start4") HotKeySet ("{NUMPAD7}", "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 IniWrite(@ScriptDir & "\Speicher.ini", "Input", "Wert", GUICtrlRead($id) IniWrite(@ScriptDir & "\Speicher.ini", "Input2", "Wert", GUICtrlRead($pw) IniWrite(@ScriptDir & "\Speicher.ini", "Input3", "Wert", GUICtrlRead($id2) IniWrite(@ScriptDir & "\Speicher.ini", "Input4", "Wert", GUICtrlRead($pw3) Case $Button3 WinSetState ("Multibot", "", @SW_hide) Case $Button4 Exit Case $Button2 Run ("C:\Program Files\Metin2\Metin2") EndSwitch
Wend
Help pls
|
|
|
03/16/2010, 18:36
|
#2
|
elite*gold: 0
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
PHP Code:
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Multibot", 245, 433, 224, 140) GUISetIcon("D:\005.ico") $Tab1 = GUICtrlCreateTab(8, 8, 233, 233) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("Infos") $Label1 = GUICtrlCreateLabel("Multibot", 64, 40, 69, 28) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Hotkeys:", 16, 72, 46, 17) $Label3 = GUICtrlCreateLabel("Num 1 = Einloggen", 16, 96, 94, 17) $Label4 = GUICtrlCreateLabel("Num 2 = Ausloggen", 16, 120, 97, 17) $Label5 = GUICtrlCreateLabel("Num 3 = Char wechseln", 16, 144, 117, 17) $Label6 = GUICtrlCreateLabel("Num 4 = Hide Bot", 16, 168, 88, 17) $Label7 = GUICtrlCreateLabel("Num 5 = Show Bot", 16, 192, 93, 17) $Label8 = GUICtrlCreateLabel("Num 6 = Exit Bot", 16, 216, 83, 17) $Button2 = GUICtrlCreateButton("Metin starten", 152, 80, 81, 33, 0) $Button3 = GUICtrlCreateButton("Hide Bot", 152, 128, 81, 33, 0) $Button4 = GUICtrlCreateButton("Exit Bot", 152, 176, 81, 33, 0)
$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, 0)
$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) GUICtrlCreateTabItem("") $Pic1 = GUICtrlCreatePic("C:\Users\321\Desktop\2205.ico.jpg", 16, 248, 217, 145, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Label12 = GUICtrlCreateLabel("mady by *Bart* on Elitepvpers.com", 64, 400, 166, 17) GUICtrlSetFont(-1, 1, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x646464) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ###
HotKeySet ("{NUMPAD5}", "start") HotKeySet ("{NUMPAD6}", "start1") HotKeySet ("{NUMPAD4}", "start2") HotKeySet ("{NUMPAD3}", "start3") HotKeySet ("{NUMPAD1}", "start4") HotKeySet ("{NUMPAD7}", "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") EndSwitch
Wend
So gehts 100 % jedenfalls bei mir
|
|
|
All times are GMT +1. The time now is 14:30.
|
|