hi leute also ich hab ein programm und da hab ich jetzt einmal diesen code :
$file = GUICtrlCreateInput ( "", 35, 5, 150, 20)
da kann ich ja nun was eingeben und nun will ich wiisen wie ich es machen kann das das programm wenn mann es nochmal startet da immer noch die sachen stehen hat ie ich zufohr da schin reingeschrieben habe also er soll ne ini erstellen autoit hilfe spuckt dazu diese codes aus
IniWrite("C:\Temp\myfile.ini","section2","key","this is a new value")
und
$var=IniRead("C:\Temp\myfile.ini","section2","key","NotFound")
MsgBox(4096,"Result",$var)
helpd pls
ini befehle
-
- [ offen ]
-
*Bart* -
5. Dezember 2009 um 13:34 -
Geschlossen -
Erledigt
-
-
hier n ganz simples beispiel:
[autoit]#include <GUIConstants.au3>
[/autoit][autoit][/autoit][autoit]#Region ### START Koda GUI section ### Form=
[/autoit][autoit][/autoit][autoit]
$Form1 = GUICreate("Form1", 125, 81, 193, 125)
$Input1 = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input", "Wert", "Ini konnte nicht gelesen werden" ), 8, 10, 105, 21)
$Button1 = GUICtrlCreateButton("Speichern", 10, 47, 103, 22, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
IniWrite(@Scriptdir & "\Speicher.ini", "Input", "Wert", Guictrlread($Input1))
EndSwitch
WEnd -
-
dir fehlt die schließende klammer nach dem iniread
direkt nach "Ini konnte nicht gelesen werden"
[autoit]$file = GUICtrlCreateInput (Iniread(@Scriptdir & "\Speicher.ini", "Input", "Wert", "Ini konnte nicht gelesen werden") , 35, 5, 150, 20)
[/autoit] -
ok thx
-
ich komm nich mehr weiter also das programm soll ein starter für das spiel metin2 sein
ich habe jetzt in dem programm 2 buttons ein für speichern (das klappt jetzt perfekt)
und in fürs starten nur wenn ich auch start drücke macht er gar nichtsSpoiler anzeigen
PHP
Alles anzeigen#include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 180, 200, 193, 125) $id = GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input", "Wert", "id" ), 8, 10, 105, 21) $password =GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input2", "Wert", "pw" ), 8, 35, 105, 21) $server =GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input3", "Wert", "server nummer" ), 8, 65, 105, 21) $chanel =GUICtrlCreateInput(Iniread(@Scriptdir & "\Speicher.ini", "Input4", "Wert", "chanel nummer" ), 8, 90, 105, 21) $Button1 = GUICtrlCreateButton("Speichern", 10, 120, 103, 22, 0) $Button2 = GUICtrlCreateButton("start", 10, 150, 103, 22, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### 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($password)) IniWrite(@Scriptdir & "\Speicher.ini", "Input3", "Wert", Guictrlread($server)) IniWrite(@Scriptdir & "\Speicher.ini", "Input4", "Wert", Guictrlread($chanel)) EndSwitch WEnd While 2 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button2 EndSwitch WEnd MouseClick ("right",402,852) MouseClick ("left",487,569) sleep (3000) MouseClick ("left",839,367) WinWaitActive ("METIN2") If GUICtrlRead($server) = 5 Then MouseClick("left",262,300) EndIf If GUICtrlRead($server) = 1 Then MouseClick("left",260,226) Endif If GUICtrlRead($server) = 2 Then MouseClick("left",262,250) Endif If GUICtrlRead($server) = 4 Then MouseClick("left",269,283) Endif If GUICtrlRead($server) = 6 Then MouseClick("left",278,314) Endif If GUICtrlRead($server) = 7 Then MouseClick("left",255,331) Endif If GUICtrlRead($server) = 8 Then MouseClick("left",271,349) Endif If GUICtrlRead($server) = 9 Then MouseClick("left",263,366) Endif If GUICtrlRead($server) = 10 Then MouseClick("left",278,314) Endif If GUICtrlRead($server) = 11 Then MouseClick("left",270,401) Endif If GUICtrlRead($server) = 12 Then MouseClick("left",268,412) Endif If GUICtrlRead($server) = 13 Then MouseClick("left",263,434) Endif If GUICtrlRead($server) = 14 Then MouseClick("left",271,447) Endif If GUICtrlRead($server) = 15 Then MouseClick("left",277,464) Endif If GUICtrlRead($server) = 16 Then MouseClick("left",270,483) Endif If GUICtrlRead($server) = 17 Then MouseClick("left",264,498) Endif If GUICtrlRead($server) = 18 Then MouseClick("left",260,517) Endif If GUICtrlRead($server) = 19 Then MouseClick("left",256,531) Endif If GUICtrlRead($server) = 20 Then MouseClick("left",251,548) Endif If GUICtrlRead($server) = 21 Then MouseClick("left",256,566) Endif If GUICtrlRead($server) = 22 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit Endif If GUICtrlRead($server) = 23 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 24 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 25 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($server) = 26 Then MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen") Exit EndIf If GUICtrlRead($chanel) = 1 Then MouseClick("left",523,230) Endif If GUICtrlRead($chanel) = 2 Then MouseClick("left",519,248) Endif If GUICtrlRead($chanel) = 3 Then MouseClick("left",521,265) Endif If GUICtrlRead($chanel) = 4 Then MouseClick("left",517,278) Endif If GUICtrlRead($chanel) = 5 Then MouseClick("left",526,296) Endif If GUICtrlRead($chanel) = 6 Then MouseClick("left",506,315) Endif MouseClick ("left",519,538) Send (GUICtrlRead($file)) Send ("{Enter}") Send (GUICtrlRead($file2)) Send ("{Enter}") sleep (5000) MouseClick ("left",141,513) EndSwitch WEnd
bitte helpt -
du kannst nicht 2 while schleifen machen. d.h. du kannst schon aber es wird nur die erste ausgeführt.
while bedeutet: mache solange bis sich das argument auf 0 ändert
das argument is das was hinter dem while steht, bei deiner ersten schleife also die 1 (while 1)solange sich das nich auf 0 ändert wird die 2te schleife nich ausgeführt
kannst aber beides in eine schleife tun, also so:
Spoiler anzeigen
[autoit]While 1
[/autoit]
$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($password))
IniWrite(@ScriptDir & "\Speicher.ini", "Input3", "Wert", GUICtrlRead($server))
IniWrite(@ScriptDir & "\Speicher.ini", "Input4", "Wert", GUICtrlRead($chanel))
Case $Button2
EndSwitch
WEnddes weiteren würde ich gerne wissen was dein programm später mal so machen soll.
Da hier im forum keine bots unterstützt werden. -
Mich würd es eher interessieren wie dieser Thread auf 4.042 views kommt?!
Zitat[autoit]MsgBox (0,"ERROR WORONG SERVER","der bot kennt diesen server noch nicht bitte schick eine pn bei epvp an *Bart* und ich werde den neuen server hinzufügen")
[/autoit]EDIT: wow, 2 minuten vergangen und wir sind bei 4200+ Views
-
achja des weitern würde ich dich bitten nich dauernd F5 zu drücken.
Du merkst schon wenn dir jemand antwortet. -
- Offizieller Beitrag
@"Bart" hör auf andauernd die Seite zu aktualisieren. Mit deinem Thread verursachst du mehr Trafic als alle andere.
-
@ schnitzel : ok riesiges thx an dich klappt super
@ raupi : hä sry ich bin koplett neu in diesem forum habe mich nur wegen dieser frage hier angemeldet ich habe keine ahnung was ich falsch mache sry