IniWrite erzeugt keine Ini

darthrader · 11. November 2012

Hallo Liebe Community,

ich habe seit 3 Tagen angefangen eine Programmiersprache zu lernen ( für den Anfang Autoit). Nach diversen Tutorials, videos und selbst ausprobieren, habe ich mich an meinem ersten "Programm" versucht.
würde mich auch über Tipps für die Übersichtlichkeit bedanken, damit ich mir das dann gleich richtig angewöhne.

Nur jetzt habe ich ein Problem mit dem IniWrite. Ich möchte das nach drücken des Button "Start" eine Ini erzeugt, welche die Pfadangabe des Firefox speichert um beim erneuten start der Anwendung der pfad direkt im Inputfeld steht.

Und zwar wird durch drücken und auswählen des Durchsuchen-Buttons ein Inputfeld durch GUIctrlSetData mit dem Pfad der Datei versorgt. Soweit klappt nun alles wunderbar. Nun habe ich jedoch das Problem wenn ich den Befehl Iniwrite nutze, dann erzeugt er keine Ini wenn das Feld versorgt wurde. Wenn ich in das Feld manuell eine Eingabe mache, dann erstellt er die Ini ohne Probleme. Ich hab im Internet schonmal danach gesucht, und das Problem liegt höchstwahrscheinlich an dem FileOpenDialog.

Habe euch mal den code beigefügt, und kann sein, dass das script noch sehr "unaufgeräumt" aussieht.
Deshalb wäre ich auch evtl froh, wenn mir jemand verbesserungsvorschläge für die Übersicht geben könnte. Aus Platzgründen hab ich den Code mal im Expander reingetan.

Spoiler anzeigen

C

Global $Paused
Local $sec, $min, $hr, $day
HotKeySet("{F2}", "Anhalten")
HotKeySet("{ESC}", "Terminate")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Daniel\Documents\Autoit\Koda\Votomat Form.kxf
$Form1_1 = GUICreate("Votumat", 604, 346, 201, 135)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0xC0C0C0)
$ID = GUICtrlCreateLabel("ID:", 24, 112, 23, 20)
$PW = GUICtrlCreateLabel("PW:", 24, 136, 32, 20)
$Firefox = GUICtrlCreateLabel("Firefox:", 24, 160, 55, 20)
$InputID = GUICtrlCreateInput("", 88, 104, 153, 24)
$InputPW = GUICtrlCreateInput("", 88, 128, 153, 24,$ES_PASSWORD)
$Inputfirefox = GUICtrlCreateInput("", 88, 152, 321, 24)
$durchsuchen = GUICtrlCreateButton("...", 408, 152, 33, 25, $BS_DEFPUSHBUTTON)
$Start = GUICtrlCreateButton('Start', 0, 208, 600, 65, $BS_DEFPUSHBUTTON)
$Label1 = GUICtrlCreateLabel("Hotkeys", 8, 8, 61, 20)
$Label2 = GUICtrlCreateLabel("F2=Anhalten", 8, 32, 89, 20)
$Label3 = GUICtrlCreateLabel("ESC=Exit", 120, 32, 67, 20)
$Label4 = GUICtrlCreateLabel("Du kannst wieder voten in :", 8, 288, 416, 41)
GUICtrlSetFont(-1, 19, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Uhrzeit = GUICtrlCreateInput("12:00:00 h", 424, 288, 177, 45); Anfangszeit
GUICtrlSetFont(-1, 19, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label5 = GUICtrlCreateLabel("Script startet...", 368, 0, 103, 20)
GUICtrlSetState(-1, $GUI_HIDE)
$Label6 = GUICtrlCreateLabel("Script läuft...", 368, 0, 103, 20)
GUICtrlSetState(-1, $GUI_HIDE)
$invisible = GUICtrlCreateInput('12', 80, 45, 20, 20, $ES_NUMBER) ;anzahl der zu Wartenden Zeit in Stunden
GUICtrlSetState($invisible, $GUI_HIDE)
GUISetState()
#EndRegion ### END Koda GUI section ###
While 1
$msg = GUIGetMsg()
Switch $msg
Case $Start
If GUICtrlRead($invisible) = '' Then
$hr = 0
Else
$hr = GUICtrlRead($invisible)
EndIf
$id=GUICtrlRead($InputID)
$pw=GUICtrlRead($InputPw)
$firefoxpfad=GuictrlRead($Inputfirefox)
IniWrite("settings.ini","Eingaben","Firefox",$firefoxpfad)
If $id = "" Then Msgbox (0,"Fehler", "Bitte ID eingeben")
If $pw = "" Then MsgBox (0,"Fehler", "Bitte PW eingeben")
If $firefoxpfad ="" Then MsgBox (0,"Fehler", "Bitte Firefox auswählen.")
If $id and $pw and $firefoxpfad = Not "" Then
$Label5 = GUICtrlCreateLabel("Script startet...", 368, 0, 103, 20)
_Start()
EndIf
Case $GUI_EVENT_CLOSE
Exit
Case $durchsuchen
$Datei = FileOpenDialog("Wähle dein Firefox aus", "C:\", "Alles (*.*)")
Guictrlsetdata($Inputfirefox,$Datei)
$firefoxpfad=GuictrlRead($Inputfirefox)
IniWrite("settings.ini","Eingaben","Firefox",$firefoxpfad)
EndSwitch
Sleep (20)
WEnd
Func Anhalten()
$Paused = Not $Paused
While $Paused
GUICtrlSetState($Label6, $GUI_HIDE)
$Label7 = GUICtrlCreateLabel("Pause", 368, 0, 103, 20)
Sleep(20)
WEnd
$Label6 = GUICtrlCreateLabel("Script läuft...", 368, 0, 103, 20)
EndFunc ;==>Pause für Hotkey
Func Terminate()
For $i = 1 To 1 Step -1
MsgBox(0, "Schließt in...", $i & " Sekunden", 1)
Next
MsgBox(0, "", "Script beendet!", 1)
Exit 0
EndFunc ;==>Terminate
Func _Start()
While 1
Sleep(20)
For $i = 5 To 1 Step -1
MsgBox(0, "Start in...", $i & " Sekunden" & @CRLF & @CRLF & "BEACHTEN: MAUS & Tastatur für 1 Minute in Ruhe lassen", 1)
Next
MsgBox(0, "", "Fertig!", 1)
GUICtrlSetState($Label5, $GUI_HIDE)
$Label6 = GUICtrlCreateLabel("Script läuft", 368, 0, 103, 20)
IniWrite("settings.ini","Eingaben","Firefox",GuiCtrlRead($Inputfirefox))
Run($Datei);Startet Firefox
WinWaitActive ("Google - Mozilla Firefox")
Send("{F6}");Auswahl Titelleiste
Sleep(2000)
Send("http://seidenkraft.com/vote.htm");eingabe der hompage
Sleep(1000)
Send("{enter}");startet Hompage
WinWaitActive ("Seidenkraft Online - Mozilla Firefox")
Sleep (5000)
Send("{TAB}")
Sleep(1000)
Send("{TAB}")
Sleep(1000)
Send("{TAB}")
Sleep(1000)
Send("{TAB}")
Sleep(1000)
Send("{TAB}")
Sleep(1000)
Send($id) ;benutzt ID von Abfrage
Send("{TAB}")
Send($pw) ;benutzt PW von Abfrage
Sleep(1000)
$Login = PixelSearch(0, 0, 1919, 1079, 0x628D26)
If Not @error Then
MouseClick("left", $Login[0], $Login[1])
EndIf ;drückt Login
sleep(5000)
WinwaitActive("Seidenkraft Online - Mozilla Firefox")
$vote1 = PixelSearch(0, 0, 1919, 1079, 0x7E5E2B)
If Not @error Then
MouseClick("left", $vote1[0], $vote1[1])
If @error then Send ("{F5}")
EndIf ;drückt 1. Voteseite
Sleep(1000)
Send("{ctrldown}+{TAB}") ;sorgt dafür das man wieder in die 1. Tab kommt.
Send("{ctrlup}")
WinWaitActive ("Seidenkraft Online - Mozilla Firefox")
Sleep(1000)
$vote2 = PixelSearch(0, 0, 1919, 1079, 0x0666B3)
If Not @error Then
MouseClick("left", $vote2[0], $vote2[1])
If @error then Send ("{F5}")
EndIf ;drückt 2. Voteseite
Sleep(1000)
Send("{ctrldown}+{TAB}") ;sorgt dafür das man wieder in die 1. Tab kommt.
Send("{ctrlup}")
WinWaitActive ("Seidenkraft Online - Mozilla Firefox")
Sleep(1000)
$vote3 = PixelSearch(0, 0, 1919, 1079, 0x8A6135)
If Not @error Then
MouseClick("left", $vote3[0], $vote3[1])
If @error then Send ("{F5}")
EndIf ;drückt 3. Voteseite
Sleep(1000)
Send("{ctrldown}+{TAB}") ;sorgt dafür das man wieder in die 1. Tab kommt.
Send("{ctrlup}")
WinWaitActive ("Seidenkraft Online - Mozilla Firefox")
Sleep(1000)
$vote4 = PixelSearch(0, 0, 1919, 1079, 0xA10F22)
If Not @error Then
MouseClick("left", $vote4[0], $vote4[1])
If @error then Send ("{F5}")
EndIf ;drückt 4. Voteseite
Sleep(1000)
Send("{ctrldown}+{TAB}") ;sorgt dafür das man wieder in die 1. Tab kommt.
Send("{ctrlup}")
WinWaitActive ("Seidenkraft Online - Mozilla Firefox")
Sleep(1000)
$vote5 = PixelSearch(0, 0, 1919, 1079, 0x3C23D7)
If Not @error Then
MouseClick("left", $vote5[0], $vote5[1])
If @error then Send ("{F5}")
EndIf ;drückt 5. Voteseite
Sleep(1000)
Send("{ctrldown}+{TAB}") ;sorgt dafür das man wieder in die 1. Tab kommt.
Send("{ctrlup}")
WinWaitActive ("Seidenkraft Online - Mozilla Firefox")
Sleep(1000)
$Aktualisieren = PixelSearch(0, 0, 1919, 1079, 0xC1902D)
If Not @error Then
MouseClick("left", $Aktualisieren[0], $Aktualisieren[1])
EndIf
WinWaitActive ("Seidenkraft Online - Mozilla Firefox")
Sleep(1000)
$Ausloggen = PixelSearch(0, 0, 1919, 1079, 0x4C3A24)
If Not @error Then
MouseClick("left", $Ausloggen[0], $Ausloggen[1])
EndIf ;drückt Ausloggen
Sleep(3000)
WinClose("Seidenkraft Online - Mozilla Firefox")
Sleep(2000)
Send("{Enter}")
_CountDown($sec, $min, $hr, $day, True, $Uhrzeit)
Sleep (1000)
WEnd
EndFunc
Func _CountDown($SEC, $MIN=0, $HOUR=0, $DAY=0, $VISIBLEDOWN=True, $ALTERNATECTRL='TT')
$Sekunden = $SEC + $MIN*60 + $HOUR*3600 + $DAY*86400
$end = _DateAdd('s', $Sekunden, _NowCalc())
Local $message
Do
$sec = _DateDiff('s', _NowCalc(), $end)
If Not $VISIBLEDOWN Then
$secShow = $Sekunden - $sec
Else
$secShow = $sec
EndIf
Select
Case $secShow < 60
If $ALTERNATECTRL = 'TT' Then
ToolTip(StringFormat('%02u', $secShow) & ' s')
Else
GUICtrlSetData($ALTERNATECTRL, StringFormat('%02u', $secShow) & ' s')
EndIf
Case $secShow < 60*60
$message = StringFormat('%02u', Floor($secShow/60)) & ':' & _
StringFormat('%02u', Mod($secShow,60)) & ' min'
If $ALTERNATECTRL = 'TT' Then
ToolTip($message)
Else
GUICtrlSetData($ALTERNATECTRL, $message)
EndIf
Case $secShow < 60*60*24
$message = StringFormat('%02u', Floor($secShow/3600)) & ':' & _
StringFormat('%02u', Floor(Mod($secShow,3600)/60)) & ':' & _
StringFormat('%02u', Mod(Mod($secShow,3600),60)) & ' h'
If $ALTERNATECTRL = 'TT' Then
ToolTip($message)
Else
GUICtrlSetData($ALTERNATECTRL, $message)
EndIf
Case Else
$message = Floor($secShow/86400) & ' d / ' & _
StringFormat('%02u', Floor(Mod($secShow,86400)/3600)) & ':' & _
StringFormat('%02u', Floor(Mod(Mod($secShow,86400),3600)/60)) & ':' & _
StringFormat('%02u', Mod(Mod(Mod($secShow,86400),3600),60)) & ' h'
If $ALTERNATECTRL = 'TT' Then
ToolTip($message)
Else
GUICtrlSetData($ALTERNATECTRL, $message)
EndIf
Sleep (6000)
EndSelect
Until $sec = 0
EndFunc ;==>_CountDown

Alles anzeigen

Zur Information, habe getestet wenn ich Manuell die Eingabe des inputfeldes "Firefox" betätige speichert er mir die Ini in dem Verzeichnis wo das Script liegt, wenn ich über den Button mache, wird keine Ini -Datei erstellt im Verzeichnis wo das script liegt, als auch nicht wo die ausgewählte Datei liegt, auch nicht unter C:\. Da ich nun nicht mehr weiter weis frag ich die Experten von hier

(Das Script wird bisher noch über Mousecklicks etc. gestartet, das mit den Controls bekomme ich noch nicht hin, da ich die Steuerelemente der Seite nicht ausgelesen bekomme,wenn mir jemand dabei noch helfen könnte wäre supi, ansonsten arbeite ich später daran)

Würde mich über Kritik freuen.

Gruß
darthrader

€dit: habs glaub im Falschen Bereich gepostet, wenn ja bitte verschieben =)

S3cret · 11. November 2012

Hallo werter Lernender,
erstmal vorweg zu deinem Problem. Der Code ist soweit richtig bzw. er funktioniert bei mir auch wie er soll. Die Ini wird erstellt nachdem ich mit dem Durchsuchen fertig bin (FileDialog) oder wenn sie dann noch nicht existiert auch beim Drücken des Start Buttons. Das das bei dir nicht gehen soll wundert mich, am FileDialog kann es nicht liegen.

Zur Sauberkeit und Sauberkeit des Codes:
Ich habe mir nicht wirklich viel durchgeguckt, aber mir ist sofort eines aufgefallen.

Zitat

$Datei = FileOpenDialog("Wähle dein Firefox aus", "C:\", "Alles (*.*)")
Guictrlsetdata($Inputfirefox,$Datei)
$firefoxpfad=GuictrlRead($Inputfirefox)
IniWrite("settings.ini","Eingaben","Firefox",$firefoxpfad)

Die rot markierte Zeile ist überflüssig. Du weißt doch, was in dem Input steht, und das ist in $Datei gespeichert. Zudem solltest du darauf achten Abstände zu lassen. Sowohl Leerzeichen als auch Absätze machen einen Quellcode ungemein attraktiver, weil man sich nicht durch einen unübersichtlichen Klumpen welzen muss. Lass vor und hinter dem = ein Leerzeichen. Mach Absätze, wenn der folgende Codeabschnitt nichts mehr direkt mit dem vorherigen zu tun hat, lass Absätze vor und hinter Schleifen und If-Abfragen, z.B:

Zitat

Func Terminate()
For $i = 1 To 1 Step -1
MsgBox(0, "Schließt in...", $i & " Sekunden", 1)
Next
MsgBox(0, "", "Script beendet!", 1)
Exit 0
EndFunc ;==>Terminate

Alles anzeigen

zu

Zitat

Func Terminate()
For $i = 1 To 1 Step -1
MsgBox(0, "Schließt in...", $i & " Sekunden", 1)
Next

MsgBox(0, "", "Script beendet!", 1)

Exit 0
EndFunc ;==>Terminate

Alles anzeigen

(Nur ein Beispiel)
Mach Kommentare, gerade bei Code, bei dem du eventuell später Verstänsnisprobleme haben könntest.
Lass Absätze zwischen einzelnen Funktionen.
Nutze eventuelle Regionen:

Zitat

#region Loop
GUI Code blabla
#endregion Loop

Versuche Variablen mit einem eindeutigen Namen zu hinterlegen.

Ansonsten ist es gut, dass das Tidy-Tool nutzt um die Einrückung zu gewährleisten.
Sieht für jemanden, der gerade erst angefangen hat, insgesamt ganz gut aus.

Die Einrückung ist jetzt aufgrund der Quote's verloren gegangen, hätt ma die Code-Felder nehmen sollen...

darthrader · 11. November 2012

Ok danke schonmal für das Feedback, das mit den Abätzen und leerzeilen werde ich noch korrigieren.

Zitat

Ich habe mir nicht wirklich viel durchgeguckt, aber mir ist sofort eines aufgefallen.

Müsste ich dann die IniWrite umschreiben in IniWrite( "settings.ini" , "Eingaben" , "Firefox", $Datei) ?

Könntest du mir evtl sagen wo er die Ini-Datei bei dir erstellt und was in dieser drinnensteht, weil nachdem ich den Programmpfad ausgewählt habe erzeugt er komischerweise keine Ini, auch dann nicht wenn ich den Start Button betätige. Oder schreibt er mir die Ini-Datei woanderst hin als mein Script ausgeführt wird?. Weil wenn ich eine Manuelle Eingabe betätige in dem Inputfeld firefox dann erzeugt er mir die Ini-Datei wie er soll.

Zur Information habe Windoof 7

S3cret · 11. November 2012

Der erste Parameter in IniWrite gibt an, wo die Datei ist bzw. wenn sie nicht existiert, erstellt wird. Wenn du dort keinen Pfad angibst (wie bei dir, du gibst ja nur den Dateinamen an), wird sie immer im Scriptverzeichnis erstellt.
Und ja, dein IniWrite Ansatz ist richtig.
Ich weiß nicht, ob du von dem Begriff IniWrite was falsches erwartest. Wenn die Ini Datei schon existiert wird lediglich, der unter "Firefox" gespeichert wird, neu eingetragen, die Datei an sich bleibt bestehen, außer du löschst die Datei jedes mal manuell.
Was auch sein kann, ist dass der Explorer die Ansicht nicht erneuert, das hatte ich auch öfters. Einfach im Scriptordner mal Rechtsklick -> Aktualisieren

darthrader · 11. November 2012

Ok also ich hab das soweit verstanden, evtl hab ich mich auch falsch ausgedrückt.

der einfachkeitshalber hab ich jetzt ein paar bilder gemacht von meinem Problem.

Test1.jpg
So Sieht mein Ordner aus wo das scipt drinliegt und ohne Ini datei. Soweit ist ja alles richtig.

Test2.jpg
ich gebe alles manuell ein auch im inputfeld Firefox und drücke auf start

Test3.jpg
Er erzeugt eine Ini Datei mit den werten => auch soweit ok

Neuer Versuch diesmal ensteht mein Problem !
Test4.jpg
Wir starten erneut das Scipt füllen in das 1. Feld manuell was ein und in das 2. Feld. Drücke anschließend auf den durchsuchenbutton navigiere zu meinem firefox Und wähle Öffnen aus.

Test5.jpg
Dieses Bild wird erzeugt ist auch soweit alles Richtig.

nur wenn ich nun auf den Button starten drücke und in meinem Scriptordner schaue sehe ich nur
Test3.jpg

Und ich würde gerne das in der Ini steht "settings.ini" unter "Eingaben" Firefox=C:\Program Files (x86)\Mozilla Firefox\firefox.exe

S3cret · 12. November 2012

Ja hatte es schon richtig verstanden. Aber bei mir funktioniert das bestens. Du schreibst ja sogar 2-3 mal in die Ini obwohl 1 mal reichen würde. Aber für mich erschließt sich grad nicht, warum das bei dir nicht will.

Mr. Unbekannt · 12. November 2012

Nicht genügend Rechte für den Ordner?

S3cret · 12. November 2012

Mr. Unbekannt schrieb:

Nicht genügend Rechte für den Ordner?

Dann würde die Ini wohl erst gar nicht erstellt werden.

darthrader · 12. November 2012

hmm ich hab volle Rechte auf dem Ordner, bin admin-> außerdem wird ja die .ini erzeugt wenn ich eine manuelle eingabe tätige..
Ja ich habs 2-3 x gemacht, weil ich wissen wollte obs irgendwann mal klappt, jedoch klappt das bei mir leider ned .

Hat jemand dann evtl ne andere idee warum es bei mir die .Ini nicht erzeugt aber bei euch schon ?.

Ansonsten muss ich halt immer manuell eingeben.

Awesome · 12. November 2012

Starte scite mal als Admin.

Gesendet via Gameboy Color

darthrader · 12. November 2012

Awesome schrieb:

Starte scite mal als Admin.

Gesendet via Gameboy Color

Hab ich gerade probiert, keine chance die .ini datei wird dann nicht erzeugt, scheint so als ob wenn ich durch file open dialg öffne oder den start button betätige, das er die Iniwirte ignoirert wenn ich nichts manuell eintrage?. Hab gerade als Admin getestet. Das komische ist ja auch, das wenn ich manuell in das inputfeld was eingebe, dann erzeugt er mir die .ini mit und ohne Admin Rechte?. Darum isses komisch das es bei euch allen funktioniert nur bei mir nicht. Aber freut mich zumindest das "normalerweise" klappen müsste.

S3cret · 13. November 2012

Probier mal folgendes:
IniWrite("datei.ini", "Area", "Item", "a")
IniWrite("datei.ini", "Area", "Item", "b")

Was steht in der Ini wenn du das ausführst?

darthrader · 13. November 2012

Ok hab den Fehler jetzt soweit gefunden.

durch meinen FileOpenDialog wurde meine @Workingdir verändert, sprich es wurde in dem Ordner erstellt welche ich zuvor ausgewählt hatte. Sprich es konnte nicht im dem Ordner erstellt werden wo mein Script drin liegt, sondern wurde in dem Ordner C:\Program Files (x86)\Mozilla Firefox\ gespeichert. Dies ist aber nicht passiert, da hierfür ein Admin recht von nöten war. Habe nochmal mit Admin und compiliert gestartet und die Datei wurde auch erzeugt.

Also danke für die Hilfe meines ursprünglichen Problems.

Ich habe auch herausgefunden das ich zum Beispiel die Ini in dem Ordner erstellen kann wo das Programm ausgeführt wird mit @AutoitExe. Nun ist aber meine frage, wie bekomme ich hin das er nur schreibt "settings.ini" und nicht "Votomat mit Countdown.exesetting"

Muss ich dann machen IniWrite( @AutoitExe & "\settings.ini" ,....)
€dit: habs rausgefunden muss IniWrite(@ScriptDir & "\settings.ini",...) machen

Vielen Dank an alle die mir geholfen haben =)
Ich schließ dann mal das thema

S3cret · 13. November 2012

Komischer Fehler

@AutoitExe gibt dir den kompletten Pfad zur ausgeführten Scriptdatei wieder, inklusive des Dateinamens. Was du suchst ist:

Code

@ScriptDir & "\settings.ini"

florian0 · 13. November 2012

- Auf Wunsch des Autors geschlossen. Grund: Problem gelöst -

Teilen