Beiträge von dieselwiesel

autoBert
Thx 4 Help! In Zeile 61 (94) hat er etwas gemeckert, hab es dann umgeschrieben - hoffe das es richtig ist.

Gestartet wurde dann, auch die ProgressBar hat sich in Bewegung gesetzt, nur kopiert wurde irgendwie nichts

RR04
Danke für den Link.

Hallo...
versuche verzweifelt eine Prgressbar fürs FileCopy zu integrieren. Habe schon über die Suche div. Beiträge gesucht, einiges gefunden und probiert - aber ich krieg es absolut nicht auf die Reihe

So schaut es bisher aus (ja, ich weis - es geht mit sicherheit vieeeeel eleganter :D)

Als zweites würde mich noch interessieren, ob man den FileCopy Dialog anders gestallten kann. Wie Ihr seht, ändert sich ja immer nur der LW Buchstabe. Dank euch schonmal.

OK, das wars

So schauts jetzt aus und funktioniert soweit auch ganz gut.

Global $iniPath = @ScriptDir & "\meine.ini"

$ini1 = IniRead ($iniPath, "SektionsName1", "Schlüssel1", "not found")

$ini2 = IniRead ($iniPath, "Sektionsname2", "Schlüssel2", "not found")

Func _Message()
MsgBox(64,"Info","Erfolgreich geändert.")
EndFunc

If $ini1 = "abc" And $ini2 = "abc" Then
IniWrite ($iniPath, "SektionsName1", "schlüssel1", "xyz")
IniWrite ($iniPath, "SektionsName2", "schlüssel2", "xyz")
_Message()
Exit
ElseIf $ini1 = "abc" And $ini2 = "xyz" Then
IniWrite ($iniPath, "SektionsName1", "schlüssel1", "xyz")
_Message()
ElseIf $ini1 = "xyz" And $ini2 = "abc" Then
IniWrite ($iniPath, "SektionsName2", "schlüssel2", "xyz")
_Message()
Exit
ElseIf $ini1 = "xyz" And $ini2 = "xyz" Then
MsgBox(0,"Info","Wert ist bereits gesetzt")
Exit
Else
MsgBox(0,"Info","Schlüssel existiert nicht oder unerwarteter Wert")
Exit
EndIf

Könnte vllt. eleganter aussehen...

Wünsch euch ein gesundes neues Jahr 2013!

Raupi
Dank dir erstmal. So oft benötige ich das nicht, darum hab ich mich auch noch nicht so intensiv damit beschäftigt. Für das was ich mache/ machen will finde ich hier eigentlich immer schöne Ansätze
Irgendwo bei deinem Bsp. ist was faul, denn es springt direkt zur MsgBox "Schlüssel existiert nicht oder unerwarteter Wert" obwohl beide Werte abc sind.

Zeitriss
Auch dir ein Dankeschön für deine Beispiele. Ja, es sollte schon geprüft werden ob der Wert überhaupt abc ist (am besten sogar an beiden Stellen) ansonsten soll da nichts dran geändert werden oder der Wert dazu geaddet werden.

Hallo Leutz,

habe eine INI in der ich 2 Werte ändern möchte. Die INI schaut ungefähr so aus...

[SektionsName1]
Schlüssel1=abc


[SektionsName2]
Schlüssel2=abc

Geändert werden soll der Wert abc in xyz, wie zu sehen sind aber die Sektionsnamen und Schlüssel unterschiedlich. So habe ich angefangen und konnte den Wert bei Schlüssel1 ändern.

Global $iniPath = '@ScriptDir & "\meine.ini"'

If IniRead ($iniPath, "SektionsName1", "schlüssel1", "abc") <> "abc" Then
IniWrite ($iniPath, "SektionsName1", "schlüssel1", "xyz")
Else
;ab hier komme ich nicht so recht weiter

Was kann ich als Else machen wenn der Wert schon xyz (MsgBox + Exit?) ist oder ein unerwarteter Wert wie z.B. LMN an dieser Stelle steht und der dann auf gar keinen Fall geändert werden soll? Hab auch noch nicht rausbekommen, wie ich den Wert bei SektionsName2/Schlüssel2 auf xyz bekomme auch hier könnte ein unerwarteter Wert stehen. Danke schonmal fürs lesen

Also das läuft so ab...

Bei Fenster 1 wird etwas entpackt. Die Dauer hängt von der Grösse der Datei ab.

Bei Fenster 2 wird das entpackte installiert, auch hier hängt die Dauer von der Grösse ab.

Bei Fenster 3 muss nur etwas bestätigt werden.

Wenn dann noch eine Datei vorhanden ist, gehts wieder mit Fenster 1 los, Fenster 2 und Fenster 3.

Ist keine Datei mehr vorhanden soll es "ganz normal" weiter im Programm gehen.

Hi, danke für die Antwort - aber das klappt leider nicht. Auch hier wird nicht gewartet bis der Vorgang aus Fenster 1 fertig ist und dann erst zu Fenster 2 übergeht.

Hallo,

wie kann ich einen Vorgang wiederholen bis ein Fenster nicht mehr erscheint?

Hatte es mal mit einer While Schleif probiert, aber die wartet irgendwie nicht bis die jewaligen Fenster geschlossen werden wie lässt sich das am besten lösen?

So konnte ich den Button in der DialogBox nu doch noch auslösen...

If WinWaitActive("[CLASS:#32770]", "") Then
ControlClick("","","[CLASS:Button; INSTANCE:1]", "left", 1)

Nach dem Button^ ^ kommen erneut 2 DialogBoxen auf denen man nichts machen kann. In der ersten werden Dateien entpackt und in der Zweiten wird ein Update durchgeführt. Das Update geht über den ganzen Bildschirm und kann auch nicht gestoppt werden. Muss ich die dann im Script erwähnen und wenn ja wie?

If WinWaitActive("[CLASS:#32770]", "") Then
...???

BugFix
Das mit der Fensterklasse hattest du ja hier schonmal verlinkt (hatte ich beim Suchen gefunden ;)).
Mit dem Fenstertitel ist so ne Sache, wollte es ja eher "Multilingual" halten, weil sich beim Sprache ändern ja auch der Titel ändert. Wie krieg ich das mit dem Prozess raus? Gehn evtl. auch andere Werte wie z.B. die Fenstergröße? Weis aber immer noch nicht wohin mit dem Exitloop? Ohne ist der Rechner auf "LSD" und ausserhalb gehts nicht.

PS: woher denn aus S-A? Grüsse aus dem SLK

Stimmt nach dem Programmstart geht erst das Eine auf (und bleibt es auch bis bestätigt/geschlossen wird) und dann das andere bis es bestätigt oder verweigert wird. Ich habe jetzt schon diverse Sachen probiert mit Teilen aus Scripten die ich im Netz gefunden habe, aber ich komme keinen Schritt voran.

Hab mal ein bischen gelesen und probiert, aber es will einfach nicht lüppen, dass 2te. Fenster (wenn es existiert) zu bestätigen...

Habe jetzt noch etwas gefunden was ich gern mit einbauen würde. Es ist auch ein Fenster was wenn es erscheint mit einem Buttonclick bestätigt werden müsste. Die Werte von dem Button sind folgende.

Dachte dann an...

If WinExists("[CLASS:#32770]", "") Then
ControlClick("[CLASS:#32770]", "[CLASS:Button; INSTANCE:1]", "")

... irgendwo zw. While1 und WEnd, aber irgendwie funkts nicht so recht

Zitat von chesstiger

Dann gibt es noch das Problem, dass für die Lauffähigkeit des Scriptes die Datei und MyProg.exe im selben Verzeichnis liegen müssen.

Ich sag mal, dass ist erstmal so ^ ^ beabsichtigt, da es ja X beliebig viele Möglichkeiten gibt wo das Programm stecken kann (auf C: D: ... viele Unterordner usw.). Wie man da jetzt effektiv nach Sucht weis ich (noch) nicht. Hab es noch etwas erweitert (und geändert-danke für den Hinweis)...

If FileExists(@ScriptDir & "\myprog.exe") Then
ShellExecute(@ScriptDir & "\myprog.exe", @ScriptDir & "\myprog.ini")
Opt("WinTitleMatchMode",4)
While 1
If WinActive("[CLASS:#32770]", "") Then
WinClose("[CLASS:#32770]", "")
ExitLoop
EndIf
WEnd
Else
If not FileExists(@ScriptDir & "\myprog.exe") Then
MsgBox(48,"Fehler","Datei nicht gefunden.")
EndIf
EndIf
Exit

Hab es mal so probiert, scheint zu klappen...

Opt("WinTitleMatchMode",4)
While 1
If WinActive("[CLASS:#32770]", "") Then
WinClose("[CLASS:#32770]", "")
ExitLoop
EndIf
WEnd
Exit

Jetzt möchte ich noch das Programm starten. Lt. MyProg.lnk auf dem Desktop wird es mit einem Parameter gestartet -> MyProg.exe "myprog.ini" Hatte jetzt mal geschaut und würde es so machen...

ShellExecute( "MyProg.exe", "myprog.ini", "@ScriptDir")
; die MyProg.exe und myprog.ini liegen hier zusammen mit dem Script in einem Verzeichnis

Bitte berichtigt mich wenn Ihr irgendwelche Fehler seht, Danke!

Hallo Leute,

ich suche seit gestern eine Möglichkeit ein Fenster/PopUp zu schliessen was nach einem Programmstart angezeigt wird und ziemlich nervend ist. Schnell bin ich dabei auf AutoIt gestossen dazu noch diesen >>>BEITRAG<<< und los gings . Das funktionierte erstmal recht gut, nun hab ich aber Blut geleckt und würde das noch ein bißchen erweitern.

Problem ist, dass das PopUp wieder erscheint sobald die Sprache des Programms geändert wird. In Englisch heisst dieses Fenster dann Internet connection usw. Wollte gern wissen, ob es möglich ist sich auf eine andere Stelle zu konzentrieren, die bei dem PopUp immer vorhanden ist? Auch ein Hidden Text ist in dem Fenster vorhanden (siehe Bild). Vielleicht kann man das ja irgendwie aktivieren um die Meldung Programmmäßig zu deaktivieren? Das ist Ausgabe von AutoIt Window Info.

Zitat von AutoIt Window Info

>>>> Window <<<<
Title: Internet-Verbindung
Class: #32770
Position: 403, 182
Size: 475, 391
Style: 0x94C800C6
ExStyle: 0x00010109
Handle: 0x0002041E

>>>> Control <<<<
Class:
Instance:
ClassnameNN:
Name:
Advanced (Class):
ID:
Text:
Position:
Size:
ControlClick Coords:
Style:
ExStyle:
Handle:

>>>> Mouse <<<<
Position: 480, 194
Cursor ID: 0
Color: 0x8A96A9

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
&FORTFAHREN
Bla bla bla...

>>>> Hidden Text <<<<
Meldungen immer anzeigen

Alles anzeigen

Wenn das mit dem Hidden Text nicht geht, ist es auch nicht schlimm, gibt doch dann bestimmt einen anderen Weg, oder?
Dank euch schonmal im Voraus