Hi ich möchte einen kleinen Bot Helper für mich machen hier mal die Gui davon.<br><br>[Only registered and activated users can see links. Click Here To Register...]<br>
allso das Problem liegt darin den path oben speicher es einwandfrei, blos wenn ich die ID PW Server Char speichern möchte, schreibt es mir immer in die ini wie man oben sieht eine 9 ein 10 eine 11 eine 12, aber normal sollte das funktionieren, ich weiss das ist bestimmt nur ein kleiner Denk Fehler aber ich bekomms ihrgen wie nicht hin das er das eingegebene von den Inputboxen speicher, den path ganz oben speicher er ja,
könnte mir da mal jemand kurtz helfen das wäre Super.
lg
hier mal das Script:
Danke schon einmal im vorraus
allso das Problem liegt darin den path oben speicher es einwandfrei, blos wenn ich die ID PW Server Char speichern möchte, schreibt es mir immer in die ini wie man oben sieht eine 9 ein 10 eine 11 eine 12, aber normal sollte das funktionieren, ich weiss das ist bestimmt nur ein kleiner Denk Fehler aber ich bekomms ihrgen wie nicht hin das er das eingegebene von den Inputboxen speicher, den path ganz oben speicher er ja,
könnte mir da mal jemand kurtz helfen das wäre Super.
lg
hier mal das Script:
Code:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
$iniReadBot1path = IniRead(@scriptdir & "\saves\clientpath.ini", "Bot01", "path",1)
$iniReadBot1Id1 = IniRead(@scriptdir & "\saves\clientpath.ini", "Bot01", "ID",1)
$iniReadBot1PW1 = IniRead(@scriptdir & "\saves\clientpath.ini", "Bot01", "PW",1)
$iniReadBot1Server1 = IniRead(@scriptdir & "\saves\clientpath.ini", "Bot01", "Server",1)
$iniReadBot1AccNr1 = IniRead(@scriptdir & "\saves\clientpath.ini", "Bot01", "AccNr",1)
#RequireAdmin
$form1 = GUICreate("Bot_Helper 0.1", 420, 196, 191, 124, -1);, BitOR($ws_ex_toolwindow, $ws_ex_windowedge))
GUISetBkColor(0x3399FF)
$group1 = GUICtrlCreateGroup("Bot 01", 8, 8, 405, 110)
$Bot1input1 = GUICtrlCreateInput($iniReadBot1path, 16, 24, 337, 21)
$IdLabel1 = GUICtrlCreateLabel("ID", 16, 47, 30, 21)
$PwLabel1 = GUICtrlCreateLabel("PW", 120, 47, 30, 21)
$ServerLabel1 = GUICtrlCreateLabel("Server", 224, 47, 30, 21)
$ServerServer1 = GUICtrlCreateLabel("Char", 264, 47, 30, 21)
$input1Bot1Id1 = GUICtrlCreateInput($iniReadBot1Id1, 16, 60, 100, 21)
$input1Bot1Pw1 = GUICtrlCreateInput($iniReadBot1PW1, 120, 60, 100, 21)
$input1Bot1Server1 = GUICtrlCreateInput($iniReadBot1Server1, 224, 60, 35, 21)
$input1Bot1Char1 = GUICtrlCreateInput($iniReadBot1AccNr1, 264, 60, 35, 21)
$Bot1button1 = GUICtrlCreateButton("Save", 360, 24, 45, 21, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Bot1run = GUICtrlCreateButton("Bypass", 15, 85, 75, 25, 0)
$Bot1button2 = GUICtrlCreateButton("Kill Torrentpatch", 165, 85, 91, 17, 0)
$Bot1button3 = GUICtrlCreateButton("Patcher", 90, 85, 75, 25, 0)
;$Bot1button4 = GUICtrlCreateButton("Set.", 165, 85, 75, 25, 0)
$Bot1SaveBot01 = GUICtrlCreateButton("Save", 305, 59, 75, 21, 0)
GUISetState(@SW_SHOW)
;GUICtrlCreatePic(@ScriptDir & "\M2hintergrund.jpg", 0, 0, 500, 300, BitOR($ss_notify, $ws_group, $ws_clipsiblings))
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
Exit
Case $Bot1button1
$pfadBot1 = FileOpenDialog("Metin2client.bin finden", "C:\", "Metin2 Client Datei (*.bin)")
GUICtrlSetData($Bot1input1, $pfadBot1)
Pathsave()
Case $Bot1button2
ProcessClose("metin2.bin")
Case $Bot1button3
$stringBot1 = GUICtrlRead($Bot1input1)
$pathBot1 = StringTrimRight($stringBot1, 16)
Run($pathBot1 & "PatchUpdater.exe")
Case $Bot1SaveBot01
Bot1Accountsafe()
Case $Bot1run
$ortBot1 = GUICtrlRead($Bot1input1)
Run($ortBot1)
EndSwitch
WEnd
Func Pathsave()
IniWrite(@scriptdir & "\saves\clientpath.ini", "Bot01", "path", $pfadBot1)
EndFunc
Func Bot1Accountsafe()
IniWrite(@scriptdir & "\saves\clientpath.ini","Bot01", "ID", $input1Bot1Id1)
IniWrite(@scriptdir & "\saves\clientpath.ini","Bot01", "PW", $input1Bot1Pw1)
IniWrite(@scriptdir & "\saves\clientpath.ini","Bot01", "Server", $input1Bot1Server1)
IniWrite(@scriptdir & "\saves\clientpath.ini","Bot01", "AccNr", $input1Bot1Char1)
EndFunc