Beiträge von Dino

Hi Schnuffel,

das geht auch nicht

Viele Grüße,
Dino

Das habe ich auch getestet, bevor ich hier die Frage gestellt habe. Es geht auch nicht...

Hallo Leute,

ich arbeite mit Windows 7 (64-bit) und habe das Problem die Rechte für den Benutzer zu ändern.
Mit dem Code unten wird nichts geändert. Was habe ich bitte falsch gemacht?

[autoit]

#RequireAdmin
$InstallDir_XP="C:\Programme\CadStation\"
$InstallDir_W7="C:\Program Files (x86)\CadStation\"
;~ Benutzer soll die Rechte zum Ändern bekommen
If @OSVersion = "WIN_XP" Then
Run(@ComSpec & ' /c cacls "' & $InstallDir_XP & '" /T /E /G "Benutzer:F" ', '', @SW_HIDE)
Else
Run(@ComSpec & ' /c cacls "' & $InstallDir_W7 & '" /T /E /G "Benutzer:F" ', '', @SW_HIDE)
EndIf

[/autoit]

Besten Dank!

Viele Grüße,
Dino

Ich benutze bei beiden #RequireAdmin. Leider ohne Erfolg.

Hallo Leute,

ich habe seit langem folgendes Problem unter Windows 7.
In einer au3-Datei, die sehr lang ist habe ich unter anderem dies stehen:

[autoit]

$RegDirRun = "D:\Lokal"
FileCopy(@ScriptDir & "\ODBC_Q.reg",$RegDirRun)
RunWait("reg import " & $RegDirRun & "\ODBC_Q.reg")

[/autoit]

Die au3-Datei läuft super, nur die reg-Datei wird nicht importiert / ausgeführt.

Wenn ich nur die obige drei Zeilen in eine separate au3-Datei speichere, und diese ausführe, dann wird die reg-Datei ausgeführt (cmd-Fenster ist für eine Sekunde zu sehen).

Woran liegt das?

Besten Dank im Voraus!

Viele Grüße,
Dino

Vielen Dank misterspeed !

Hallo Leute,

ich habe ein Problem bei der Installation eines Programms.
Beim Starten von Update.exe kommt als nächstes entweder das Fenster aus dem Fall 1 oder aus dem Fall 2.
Um das abzufangen habe ich einiges ohne Erfolg ausprobiert.

[autoit]

Run('C:\Programme\CAD-Station\Update.exe')

[/autoit][autoit][/autoit][autoit]

;~ Fall 1
WinWait("Microsoft Visual C++ 2008 Redistributable Setup","Maintenance mode") Then
ControlClick("Microsoft Visual C++ 2008 Redistributable Setup","Maintenance mode","Button9")
ControlClick("Microsoft Visual C++ 2008 Redistributable Setup","Maintenance mode","Button7")

[/autoit][autoit][/autoit][autoit]

WinWait("Microsoft Visual C++ 2008 Redistributable Setup","Setup Complete") Then
ControlClick("Microsoft Visual C++ 2008 Redistributable Setup","Setup Complete","Button2")

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

;~ Fall 2
WinWait("Microsoft Visual C++ 2008 Redistributable Setup","Welcome to Microsoft Visual C++ 2008 Redistributable Setup")
ControlClick("Microsoft Visual C++ 2008 Redistributable Setup","Welcome to Microsoft Visual C++ 2008 Redistributable Setup","Button12")

[/autoit][autoit][/autoit][autoit]

WinWait("Microsoft Visual C++ 2008 Redistributable Setup","Setup Complete")
ControlClick("Microsoft Visual C++ 2008 Redistributable Setup","Setup Complete","Button2")

[/autoit][autoit][/autoit][autoit]

;~ .... ab hier geht es gleich weiter

[/autoit]

Was muss bitte noch eingebaut werden, damit es bei beiden Fällen (Varianten) funktioniert?

Besten Dank vorab!

Viele Grüße,
Dino

Danke... werde es mir anschauen....

@stayawayknight : Die Tastenkombinationen funktionieren. Danke!
@misterspeed : Das "?" ist aus dem Menü. Wenn Du mir bitte ein Beispiel geben könntest, würde ich es gerne testen. Danke.

Viele Grüße,
Dino

Hallo zusammen,

beide Lösungen funktionieren. DANKE!

Vielleicht könnt ihr mir hierbei noch helfen:
Es soll ALT + Umschalttaste + ? und dann o gedrückt werden.

So habe ich es momentan probiert, aber es klappt nicht immer
Send("{ALT}{SHIFTDOWN}ß{SHIFTUP}{ALTUP}{ALT}{SHIFTDOWN}ßo{SHIFTUP}{ALTUP}")

Viele Grüße,
Dino

Ich meine schon Computername.

[autoit]

Run('C:\Programme\CAD-Station\Update.exe')

[/autoit][autoit][/autoit][autoit]

WinWait("CAD-Station Benutzer-Anmeldung","Diese Anmeldung bei ")
ControlClick("CAD-Station Benutzer-Anmeldung", "","Button1")
Sleep(1000)
WinActivate("CAD-Station ","Normauswahl:")
WinWaitActive("CAD-Station ","Normauswahl:")

[/autoit][autoit][/autoit][autoit]

;~ Alttaste + Umschalttaste + ?
Send("{ALT}{SHIFTDOWN}ß{SHIFTUP}{ALTUP}{ALT}{SHIFTDOWN}ßo{SHIFTUP}{ALTUP}")

[/autoit][autoit][/autoit][autoit]

WinWait("Info über CAD-Station","")
ControlClick("Info über CAD-Station", "","Button2")

[/autoit][autoit][/autoit][autoit]

WinWait("CAD-Station Upgrade","")
ControlSetText("CAD-Station Upgrade","","Edit1", "V580ComNet-OK")
ControlSetText("CAD-Station Upgrade","","Edit2", "FCKGW-RHQQ2-YXRKT")
ControlClick("CAD-Station Upgrade", "","OK")

[/autoit][autoit][/autoit][autoit]

WinWait("CAD-Station","Upgrade erfolgreich ")
If Not WinActive("CAD-Station","Upgrade erfolgreich ") Then WinActivate("CAD-Station","Upgrade erfolgreich ")
WinWaitActive("CAD-Station","Upgrade erfolgreich ")
ControlClick("CAD-Station", "","Button1")

[/autoit][autoit][/autoit][autoit]

WinWait("Info über CAD-Station","Registrierung")
ControlClick("Info über CAD-Station", "","Button1")

[/autoit][autoit][/autoit][autoit]

Send("{ALT}pb")
Sleep(5000)

[/autoit]

Hallo Leute,

wenn der Computername mit 05 beginnt, dann soll dies ausgeführt werden:
...
ControlSetText("CAD-Station Upgrade","","Edit1", "B300ComNet-OK")
ControlSetText("CAD-Station Upgrade","","Edit2", "B00A0G-PBAFA2-7E7RQ9-81D4MT")
...

wenn der Computername mit 52 beginnt, dann soll dies ausgeführt werden:
...
ControlSetText("CAD-Station Upgrade","","Edit1", "A380ComNet-OK")
ControlSetText("CAD-Station Upgrade","","Edit2", "MQPWW-PGVKX-YPMKG")
...

wenn der Computername mit i565 beginnt, dann soll dies ausgeführt werden:
...
ControlSetText("CAD-Station Upgrade","","Edit1", "V580ComNet-OK")
ControlSetText("CAD-Station Upgrade","","Edit2", "FCKGW-RHQQ2-YXRKT")
...

Wie mache ich das?

Besten Dank!

Viele Grüße,
Dino

Hallo zusammen,

beides funktioniert....

VIELEN DANK!

Gruß,
Dino

Hallo Leute,

was muss ich ändern, damit die Inhalte der Datei nur dann ersetzt werden, wenn die Datei exitiert.
Zur Zeit ist es so, wenn die Datei nicht gefunden wird, dann wird eine leere Datei angelegt.

[autoit]

$File1 = "D:\Dino\settings.cfg"
$sFile1 = FileRead($File1)
If not @error Then
$sFile1 = StringReplace($sFile1,"[DIM_INCH_ROUND] 1", "[DIM_INCH_ROUND] 2")
EndIf
$hFile1 = FileOpen($File1,2)
If $hFile1 <> -1 Then
filewrite($hFile1, $sFile1)
FileClose($hFile1)
EndIf

[/autoit]

Vielen Dank vorab!

Gruß,
Dino

Hallo Leute,

ich habe mehrere Dateien bei den die Inhalte ersetzt werden sollen.
Wie mache ich es am einfachsten, um das ganze übersichtlich beizubehalten?
So ungefähr habe ich mir das Aufbau vorgestellt:

;erste Datei
$CFG_DateiPfad = 'C:\Program Files\CADtronic\db\luef\settings.cfg'
$suchen= "[CHECK_ID] 0"
$ersetzen= "[CHECK_ID] 2"
$suchen= "[SHOW_TAB5] 1"
$ersetzen= "[SHOW_TAB5] 0"
$suchen= "[CLOSE_WINDOWS] 2"
$ersetzen= "[CLOSE_WINDOWS] 0"
$suchen= "[AUTOSAVE] 0"
$ersetzen= "[AUTOSAVE] 2"

;zweite Datei
$CFG_DateiPfad = 'D:\Projects\2011\CADtronic\prcfg\allg\settings_e.cfg'
$suchen= "[DIM_INCH_ROUND] 1"
$ersetzen= "[DIM_INCH_ROUND] 2"
$suchen= "[REPORT_EXIT] 1"
$ersetzen= "[REPORT_EXIT] 2"
$suchen= "[CHECK_ID] 0"
$ersetzen= "[CHECK_ID] 2"

;dritte Datei
...
...

Besten Dank im Voraus!

Viele Grüße,
Dino

Hallo zusammen,

ich möchte auf "Installieren" (ist leider kein Button) klicken.
Wäre es möglich dies über ControlClick 260,305 zu machen?

[Blockierte Grafik: http://www.imgbox.de/users/public/images/RkKwfa2ioz.jpg]

Was muss ich bitte hinzufügen?

Besten Dank!

Viele Grüße,
Dino

Danke, es lag an Anführungszeichen !

Keine Veränderungen

Hallo Leute,

unter Windows XP könnte ich mit diese Zeile z.B.:

[autoit]

Run(@ComSpec & ' /c cacls C:\Programme\CADstation /T /E /G "Hauptbenutzer:f" ', '', @SW_HIDE)

[/autoit]

alle Rechte den Hauptbenutzer auf bestimmten Programm-Ordner vergeben. Unter Windows 7 wird nichts eingetragen.

Ich habe es so probiert, leider ohne Erfolg:

[autoit]

Run(@ComSpec & ' /c cacls C:\Program Files\CADstation /T /E /G "Hauptbenutzer:f" ', '', @SW_HIDE)

[/autoit]

Was muss ich bitte ändern?

Besten Dank im Voraus !

Viele Grüße,
Dino

Genau das Mahagon !

Vielen Dank!