Bot problem

03/16/2010 18:14 *Bart*#1
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


Help pls
03/16/2010 18:36 -MARKS-#2
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 :D