Beiträge von wolkenloser

wolkenloser

Hallo Experten,
Leider kann ich mich mit AUTOIT nicht so intensiv beschäftigen wie ich es gerne wollte, daher hier meine Frage.

Ich möchte gerne einen Text aus einem Fenster auslesen
das versuche ich mit folgendem Code

Spoiler anzeigen

[autoit]

Opt("WinDetectHiddenText", 1) ;0=don't detect, 1=do detect
Dim $text
Do
$text = WinGetText("Unterstationsalarme", "")
MsgBox(4096,"gelesener text", $text)

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

if not $text = "Keine Alarme in den Unterstationen, die gescannt werden, vorhanden" Then
MsgBox(4096,"Warnung", "Unterstationsalarm vorhanden")
EndIf

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

sleep(5000)

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

Until 1

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

Das Problem dabei ist, das ich zwar den Fenstertitel finde, mir aber der Text in dem Fenster angezeit wird nicht angezeigt wird.
Die Statuszeile "Keine Alarme in den Unterstationen, die gescannt werden, vorhanden" wiederum kann ich auslesen, aber die wichtige Information steckt halt im Textfenster in der Mitte.

Hat einer eine Idee worann es liegen kann ?
Siehe Screenshot:

AUTOIT INFO WINDOW:

Spoiler anzeigen

>>>> Window <<<<
Title: Unterstationsalarme
Class: TFScanBeheer
Position: 223, 469
Size: 441, 193
Style: 0x16CC0000
ExStyle: 0x00000188

>>>> Control <<<<
Class:
Instance:
ClassnameNN:
ID:
Text:
Position:
Size:
ControlClick Coords:
Style:
ExStyle:

>>>> Mouse <<<<
Position: 482, 477
Cursor ID: 2
Color: 0x6888BB

>>>> StatusBar <<<<

>>>> Visible Text <<<<

>>>> Hidden Text <<<<

Gruß
Wolke

wolkenloser

Super Übersicht!

Gruß
Wolke

wolkenloser

Guck auch mal hier

wolkenloser

Zitat

Original von NonStop
Hi ich habe mich jetzt mit GUIs befasst und möchte nun ein eigenes erstellen jedoch wurde in keinem tutorial gesagt woher die koordinaten bekommen wenn ich zb einen button einfügen möchte

also frage: wie komm ich an die koordinaten meines guifensters

schau mal hier (suche lineal)
Lineal

wolkenloser

Hat keiner eine Idee ?

wolkenloser

Hi
das Fenster soll ja gar nicht erst aufgehen....

Also wenn auf die Uhrzeit doppelt geklickt wird soll dieser klick abgefangen werden und ich will etwas anderes mit Autoi machen, z.B. eine Funktion ausführen.....

Alsodas Fenster "Eigenschaften von Datum und Uhrzeit" soll gar nicht erst aufgehen

wolkenloser

Hallo,

ich habe irgendwie eine Denksperre.

ich will überprüfen ob auf Datum/Uhrzeit in der Trayleiste geklickt wird und das dann abfangen. Ich möchte das dann eine Fenster mit einem Autoit KalenderObject aufgeht und nicht die Datums und Zeiteinstellung von XP.

Hab überlegt ob das mit IfPressed geht, aber das war wohl der falsche Ansatz.

Also
Jedesmal wenn die linke Maustaste gecklickt wird müßte man überprüfen ob hier gedrückt wurde:

>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<
Control ID: 303
ClassNameNN: TrayClockWClass1
>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<

Das ganze soll permanent laufen und darf die CPU nicht belasten.

Wie würdet Ihr das machen ?

wolkenloser

Oh, eine PN hatte ich gar nicht bemerkt

>Ich habe gerade gesehn das es so nicht ganz funktioniert. wie kann ich den >gesamten user ordner zum neuen user kopieren?
>
>hast du da eine Idee??

Nun ja, Profilcopy ist dazu gedacht einem neu installiertem Rechner ein Standartaussehen für alle User zu geben da man ja sonst alle Einstellungen (besorders die Exploreransicht, Aussehen des Dektops, Theme usw..)immer wieder auf neue machen muß.

Fürs ganze Profil gibt es mit Boardmitteln die Möglichkeitsich über ein drittes Konto mit ADMIN Rechten anzumelden und dann unter Systemeigenschaften unter den Profilen dann eins zu kopieren zu einem neuen Userordner.

Es geht dir warscheinlich auch um den Ordner Anwendungsdaten usw...
Da muß ich passen, das gilt auszuprobieren und die gewünschten Pfade mit dazunehmen.
Ansonsten kannst Du in der GUI Oberfäche von dem Autoitscript ja z.B Favoriten, Desktop usw auswählen.

wolkenloser

Dann hoffe ich das dir das Script was nützt.
Ich brauche das fast jeden Woche.

Gruß
Wolke

wolkenloser

Es ist ein Fehler in der Ermittlung des Datums.
Hier der verbesserte Code

Das mit dem Backupverzeichnis funktioniert nicht immer.
Führe das Programm dann einfach noch einmal aus.
Beim zweiten mal klappts i.d.R

Da hängt wohl damit zudammen das das Backupprogramm manchmal "zu langsam ist"

Warscheinlich könnte ien Sleep an der richtigen Stelle helfen.
Ist aber schon so lange her

Spoiler anzeigen

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

#include <process.au3>
#include <_CopyDirWithProgress.au3>
#include <Array.au3>

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

Opt("TrayIconDebug", 1); zeigt am trayicon welchen Befehl das Script gerade Ausführt
dim $profileLabel, $Checkbox1, $20, $21=0, $22=0, $23=0, $24=0, $25=0, $Checkbox1, $Checkbox2, $Checkbox3, $Checkbox4, $Checkbox5, $Checkbox6, $Form1
dim $profileLabel,$profilauto, $profilquick, $profilfavoriten, $profildesktop, $profilHKCU, $var1, $mon2, $mday2
;~ dim $CMDLINE[6]
$profilname = @HomeDrive & "\Dokumente und Einstellungen\" & "Default User"; Voreinstellung
FileInstall("C:\Dokumente und Einstellungen\dmeyer\Desktop\AU3\DefaulUserReg\pcwRegBackup.exe",@TempDir & "\" , 1)
;~ Run("explorer " & @TempDir)
;~ DirCreate(@TempDir & "\" & @MON & "_" & @MDAY & "_" & @YEAR & "_" & @HOUR & "_" & @MIN & "_" & @SEC)

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

$mon = StringLeft(@MON,1);~ MsgBox(0,"erste Stelle des Monats",$mon)
If $mon = 0 then
$mon2 = StringRight(@MON,1);entfernt führende Nullen im Monat für die Abfrage des Verzeichnises
Else
$mon2 = @MON
EndIf
;~ MsgBox(0,"Monat = ",$mon2)

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

$mday = StringLeft(@MDAY,1);~ MsgBox(0,"erste Stelle des Tages",$mon)
If $mday = 0 then
$mday2 = StringRight(@MDAY,1);entfernt führende Nullen im Tag für die Abfrage des Verzeichnises
;~ MsgBox(0,"Tag = ",$mday2)
Else
$mday2 = @mday
EndIf

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

$searchstring = $mon2 & "_" & $mday2 & "_" & @YEAR & "_" & @HOUR & "_" & @MIN & "*.*"
$befehl ='Title NTUSER.DAT wird extrahiert - Achtung kurzzeitige hohe CPU Last && ' & @TempDir & "\pcwRegBackup.exe /b"
MsgBox(0,"suchstring" & @MDAY,$searchstring,2)

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

; Programmstart
If Not $CMDLINE[0] Then ; kkein Komandozeilenparameter übergeben -> GUI Starten
menue()
Else ; Komandozeilenparameter auswerten
;~ _ArrayDisplay($CMDLINE,"")
$array_anzahl=$CMDLINE[0]

If $array_anzahl = 1 Then
If $CMDLINE[1] = "/a" Then $21 = 1
If $CMDLINE[1] = "/s" Then $22 = 1
If $CMDLINE[1] = "/f" Then $23 = 1
If $CMDLINE[1] = "/d" Then $24 = 1
If $CMDLINE[1] = "/HKCU" Then $25 = 1
If $21=0 And $22=0 And $23=0 And $24=0 And $25=0 Then
MsgBox(4096,"Fehler"," keine passende Argumente übergeben" & @cr & "Mögliche Optionen:" & @CR & "/a ->Autostart Ordner kopieren" & @CR & "/s ->Schnellstartleiste kopieren" & @CR & "/f ->Favoriten kopieren" & @CR & "/d -> Desktop kopieren" & @CR & "/HKCU ->NTUSER.DAT des aktuellen Benutzers in das Default User Profil kopieren")
EndIf
EndIf

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

If $array_anzahl = 2 Then
If $CMDLINE[1] = "/a" Or $CMDLINE[2] = "/a" Then $21 = 1
If $CMDLINE[1] = "/s" Or $CMDLINE[2] = "/s" Then $22 = 1
If $CMDLINE[1] = "/f" Or $CMDLINE[2] = "/f" Then $23 = 1
If $CMDLINE[1] = "/d" Or $CMDLINE[2] = "/d" Then $24 = 1
If $CMDLINE[1] = "/HKCU" Or $CMDLINE[2] = "/HKCU" Then $25 = 1
If $21=0 And $22=0 And $23=0 And $24=0 And $25=0 Then
MsgBox(4096,"Fehler"," keine passende Argumente übergeben" & @cr & "Mögliche Optionen:" & @CR & "/a ->Autostart Ordner kopieren" & @CR & "/s ->Schnellstartleiste kopieren" & @CR & "/f ->Favoriten kopieren" & @CR & "/d -> Desktop kopieren" & @CR & "/HKCU ->NTUSER.DAT des aktuellen Benutzers in das Default User Profil kopieren")
EndIf
EndIf

If $array_anzahl = 3 Then
If $CMDLINE[1] = "/a" Or $CMDLINE[2] = "/a" or $CMDLINE[3] = "/a" Then $21 = 1
If $CMDLINE[1] = "/s" Or $CMDLINE[2] = "/s" or $CMDLINE[3] = "/s" Then $22 = 1
If $CMDLINE[1] = "/f" Or $CMDLINE[2] = "/f" or $CMDLINE[3] = "/f" Then $23 = 1
If $CMDLINE[1] = "/d" Or $CMDLINE[2] = "/d" or $CMDLINE[3] = "/d" Then $24 = 1
If $CMDLINE[1] = "/HKCU" Or $CMDLINE[2] = "/HKCU" or $CMDLINE[3] = "/HKCU" Then $25 = 1
If $21=0 And $22=0 And $23=0 And $24=0 And $25=0 Then
MsgBox(4096,"Fehler"," keine passende Argumente übergeben" & @cr & "Mögliche Optionen:" & @CR & "/a ->Autostart Ordner kopieren" & @CR & "/s ->Schnellstartleiste kopieren" & @CR & "/f ->Favoriten kopieren" & @CR & "/d -> Desktop kopieren" & @CR & "/HKCU ->NTUSER.DAT des aktuellen Benutzers in das Default User Profil kopieren")
EndIf
EndIf

If $array_anzahl = 4 Then
If $CMDLINE[1] = "/a" Or $CMDLINE[2] = "/a" or $CMDLINE[3] = "/a" Or $CMDLINE[4] = "/a" Then $21 = 1
If $CMDLINE[1] = "/s" Or $CMDLINE[2] = "/s" or $CMDLINE[3] = "/s" Or $CMDLINE[4] = "/s" Then $22 = 1
If $CMDLINE[1] = "/f" Or $CMDLINE[2] = "/f" or $CMDLINE[3] = "/f" Or $CMDLINE[4] = "/f" Then $23 = 1
If $CMDLINE[1] = "/d" Or $CMDLINE[2] = "/d" or $CMDLINE[3] = "/d" Or $CMDLINE[4] = "/d" Then $24 = 1
If $CMDLINE[1] = "/HKCU" Or $CMDLINE[2] = "/HKCU" or $CMDLINE[3] = "/HKCU" Or $CMDLINE[4] = "/HKCU" Then $25 = 1
If $21=0 And $22=0 And $23=0 And $24=0 And $25=0 Then
MsgBox(4096,"Fehler"," keine passende Argumente übergeben" & @cr & "Mögliche Optionen:" & @CR & "/a ->Autostart Ordner kopieren" & @CR & "/s ->Schnellstartleiste kopieren" & @CR & "/f ->Favoriten kopieren" & @CR & "/d -> Desktop kopieren" & @CR & "/HKCU ->NTUSER.DAT des aktuellen Benutzers in das Default User Profil kopieren")
EndIf
EndIf

If $array_anzahl = 5 Then
If $CMDLINE[1] = "/a" Or $CMDLINE[2] = "/a" or $CMDLINE[3] = "/a" Or $CMDLINE[4] = "/a" or $CMDLINE[5] = "/a" Then $21 = 1
If $CMDLINE[1] = "/s" Or $CMDLINE[2] = "/s" or $CMDLINE[3] = "/s" Or $CMDLINE[4] = "/s" or $CMDLINE[5] = "/s" Then $22 = 1
If $CMDLINE[1] = "/f" Or $CMDLINE[2] = "/f" or $CMDLINE[3] = "/f" Or $CMDLINE[4] = "/f" or $CMDLINE[5] = "/f" Then $23 = 1
If $CMDLINE[1] = "/d" Or $CMDLINE[2] = "/d" or $CMDLINE[3] = "/d" Or $CMDLINE[4] = "/d" or $CMDLINE[5] = "/d" Then $24 = 1
If $CMDLINE[1] = "/HKCU" Or $CMDLINE[2] = "/HKCU" or $CMDLINE[3] = "/HKCU" Or $CMDLINE[4] = "/HKCU" or $CMDLINE[5] = "/HKCU" Then $25 = 1
If $21=0 And $22=0 And $23=0 And $24=0 And $25=0 Then
MsgBox(4096,"Fehler"," keine passende Argumente übergeben" & @cr & "Mögliche Optionen:" & @CR & "/a ->Autostart Ordner kopieren" & @CR & "/s ->Schnellstartleiste kopieren" & @CR & "/f ->Favoriten kopieren" & @CR & "/d -> Desktop kopieren" & @CR & "/HKCU ->NTUSER.DAT des aktuellen Benutzers in das Default User Profil kopieren")
EndIf
EndIf

If $array_anzahl = 6 Then
If $CMDLINE[1] = "/a" Or $CMDLINE[2] = "/a" or $CMDLINE[3] = "/a" Or $CMDLINE[4] = "/a" or $CMDLINE[5] = "/a" or $CMDLINE[6] = "/a" Then $21 = 1
If $CMDLINE[1] = "/s" Or $CMDLINE[2] = "/s" or $CMDLINE[3] = "/s" Or $CMDLINE[4] = "/s" or $CMDLINE[5] = "/s" or $CMDLINE[6] = "/s" Then $22 = 1
If $CMDLINE[1] = "/f" Or $CMDLINE[2] = "/f" or $CMDLINE[3] = "/f" Or $CMDLINE[4] = "/f" or $CMDLINE[5] = "/f" or $CMDLINE[6] = "/f" Then $23 = 1
If $CMDLINE[1] = "/d" Or $CMDLINE[2] = "/d" or $CMDLINE[3] = "/d" Or $CMDLINE[4] = "/d" or $CMDLINE[5] = "/d" or $CMDLINE[6] = "/d" Then $24 = 1
If $CMDLINE[1] = "/HKCU" Or $CMDLINE[2] = "/HKCU" or $CMDLINE[3] = "/HKCU" Or $CMDLINE[4] = "/HKCU" or $CMDLINE[5] = "/HKCU" or $CMDLINE[6] = "/HKCU" Then $25 = 1
If $21=0 And $22=0 And $23=0 And $24=0 And $25=0 Then
MsgBox(4096,"Fehler"," keine passende Argumente übergeben" & @cr & "Mögliche Optionen:" & @CR & "/a ->Autostart Ordner kopieren" & @CR & "/s ->Schnellstartleiste kopieren" & @CR & "/f ->Favoriten kopieren" & @CR & "/d -> Desktop kopieren" & @CR & "/HKCU ->NTUSER.DAT des aktuellen Benutzers in das Default User Profil kopieren")
EndIf
EndIf
;~ MsgBox(0,"",$21 & "-" & $22 & "-" & $23 & "-" & $24 & "-" & $25)
kopiere_ProfilOrdner()
EndIf

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

Func MENUE()
#include <GUIConstants.au3>
; == GUI generated with Koda ==);
$Form1 = GUICreate("XP ProfilCopy", 800, 237, 192, 125)
$Button3 = GUICtrlCreateButton("wählen", 100, 24, 49, 17, 0)
$Checkbox1 = GUICtrlCreateLabel("Profilordner ", 24, 24, 70, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Autostart kopieren", 24, 48, 153, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Schnellstartleiste kopieren", 24, 72, 153, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Favoriten kopieren", 24, 96, 153, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Desktop kopieren", 24, 120, 153, 17)
$Checkbox6 = GUICtrlCreateCheckbox("NTUSER.DAT (HKCU) kopieren", 24, 148, 173, 17)
$Button1 = GUICtrlCreateButton("OK", 24, 200, 73, 25, 0)
$Button2 = GUICtrlCreateButton("Abbruch", 112, 200, 73, 25, 0)

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

$profileLabel = GUICtrlCreateLabel($profilname, 248, 24, 400, 17)
$profilauto = GUICtrlCreateLabel($profilname & "\Startmenü\Programme\Autostart", 248, 48, 400, 17)
$profilquick = GUICtrlCreateLabel($profilname & "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch", 248, 72, 600, 17)
$profilfavoriten = GUICtrlCreateLabel($profilname & "\Favoriten",248, 96, 400, 17)
$profildesktop = GUICtrlCreateLabel($profilname & "\Desktop",248, 120, 400, 17)
$profilHKCU = GUICtrlCreateLabel($profilname ,248, 148, 400, 17)

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

GUISetState(@SW_SHOW)
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop

Case $msg = $Button3
profilordnerwaehlen()

Case $msg = $Button1
OK()

Case $msg = $Button2;Abbruch
Exit

Case Else
;;;;;;;
EndSelect
WEnd

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

EndFunc

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

Func profilordnerwaehlen()
$var1 = $profilname
;~ FileSelectFolder ( "dialog text", "root dir" [, flag [, "initial dir"]] )
$profilname = FileSelectFolder("Bitte wählen sie den Profilordner",@HomeDrive & "\Dokumente und Einstellungen\",1)
GUICtrlSetData($profileLabel,$profilname)
GUICtrlSetData($profilauto,$profilname & "\Startmenü\Programme\Autostart")
GUICtrlSetData($profilquick,$profilname & "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch")
GUICtrlSetData($profilfavoriten, $profilname & "\Favoriten")
GUICtrlSetData($profildesktop, $profilname & "\Desktop")
GUICtrlSetData($profilHKCU,$profilname)
ControlCommand("","",$Checkbox1,"Check", "")
;~ MsgBox(0,"",$var1 & @cr & $profilname)
EndFunc

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

Func OK()
;~ $20 = GUICtrlRead($Checkbox1);Profil kopieren
$21 = GUICtrlRead($Checkbox2);Autostart kopieren
$22 = GUICtrlRead($Checkbox3);Schnellstartleiste kopieren
$23 = GUICtrlRead($Checkbox4);Favoriten kopieren
$24 = GUICtrlRead($Checkbox5);Desktop kopieren
$25 = GUICtrlRead($Checkbox6);NTUSER.DAT (HKCU) kopieren
GUIDelete($Form1)

kopiere_ProfilOrdner()
EndFunc

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

Func kopiere_ProfilOrdner2()
;~ MsgBox(0,"",$21 & "-" & $22 & "-" & $23 & "-" & $24 & "-" & $25 & @cr & $profilname)
If $21 = 1 Then _CopyDirWithProgress(@StartupDir, $profilname & "\Startmenü\Programme\Autostart")
If $22 = 1 Then _CopyDirWithProgress(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch", $profilname & "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch")
If $23 = 1 Then _CopyDirWithProgress(@FavoritesDir, $profilname & "\Favoriten")
If $24 = 1 Then _CopyDirWithProgress(@DesktopDir, $profilname & "\Desktop")
If $25 = 1 Then copy_NTUSER_DAT()
EndFunc

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

Func kopiere_ProfilOrdner()
;~ MsgBox(0,"",$21 & "-" & $22 & "-" & $23 & "-" & $24 & "-" & $25 & @cr & $profilname)
If $21 = 1 Then DirCopy(@StartupDir, $profilname & "\Startmenü\Programme\Autostart", 1)
If $22 = 1 Then DirCopy(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch", $profilname & "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch", 1)
If $23 = 1 Then DirCopy(@FavoritesDir, $profilname & "\Favoriten", 1)
If $24 = 1 Then DirCopy(@DesktopDir, $profilname & "\Desktop", 1)
If $25 = 1 Then copy_NTUSER_DAT()
EndFunc

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

Func copy_NTUSER_DAT()
SplashTextOn("NTUSER DAT von [" & @UserName & "] wird kopiert","Die NTUSER.DAT des aktuellen Benutzers wird nun kopiert" & @CR & "Dies entspricht dem Registry-Zweig ->HKCU" & @CR & "Die dort hinterlegten Einstellungen gelten dann für jedes neuangelegte Profil" & @CR & @CR & "Bitte etwas Geduld...",560, 150, @DesktopWidth/2-280, 20)
$isfile = FileExists(@TempDir & "\pcwRegBackup.exe")
if $isfile = 0 Then MsgBox(0, "Error", "[pcwRegBackup.exe] nicht in " & @TempDir & " gefunden:")
RunWait(@ComSpec & " /c " & $befehl, "", @SW_HIDE)
FileDelete(@TempDir & "\pcwRegBackup.exe")
SplashOff()

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

$search = FileFindFirstFile(@TempDir & "\" & $searchstring)
If $search = -1 Then
MsgBox(0, "Error", "Backupverzeichnis der Registry nicht gefunden:" & @TempDir & "\" & $searchstring )
Exit
EndIf

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

$dir = FileFindNextFile($search)

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

;~ MsgBox(0,"gefundenes Verzeichnis",$dir,2)
$msg = MsgBox(1,"kopieren der extrahierten NTUSER.DAT","NTUSER.DAT von [" & @UserName & "] wird jetzt in das Profil von [" & $profilname & "] kopiert", 2)
If $msg = 2 Then Exit
FileCopy($profilname & "\" & "NTUSER.DAT", $profilname & "\" & "NTUSER.DAT" & "." & @MON & "_" & @MDAY & "_" & @YEAR & "_" & @HOUR & "_" & @MIN & "_" & @SEC , 1)
MsgBox(0,"vergleich",@TempDir & "\" & $dir & "\" & "NTUSER.DAT" & @cr & $profilname, 5)
$copylevel = FileCopy(@TempDir & "\" & $dir & "\" & "NTUSER.DAT",$profilname, 1)
If $copylevel = 0 Then
MsgBox(4096,"FEHLER", "Es ist ein Fehler beim kopieren aufgetreten. - Bitte überprüfen sie das Zielverzeichnis")
Run("explorer " & $profilname)
EndIf
Exit
EndFunc

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

wolkenloser

Jain,
Gut mitgedacht, aber ich hatte ja im ersten Post geschrieben, daß es um die Ausführung eines WSH Script geht und nicht darum was das Script macht...

wolkenloser

Hi, ich bin es nochmal!

bekommst Du das auch hin, ohne das ich eine VBS Datei schreiben muß ?

wolkenloser

Hi Peethebee

Danke, ich denke das ist genau das was ich brauche
...

wolkenloser

Hallo Autoit Fans

Wie kann ich einen WSHSCRIPT.RUN Befehl über Autoit ausführen ?

Beispiel (es geht nicht um den Befehl, sondern um die Ausführung eines WSHSCRIPTS)

Gruß
Wolke

Beispiel.vbs

Code

set WSHShell = WScript.CreateObject("WScript.Shell")
  numReturnCode = wshShell.Run("net time \\VMPDC /set /yes", 0, TRUE)

wolkenloser

wenn ich das richtig verstehe machen wenige Leute viel ?

Wie wäre es denn wenn mal eine große Aktion gestartet wird wo jeder soviel Übersetzen kann wie er gerade mag ?

Wenn jeder hier z.B nur eiene Funktion Übersetzt....

Aber ich glaube mit einfachem Übersetzen ist es nicht getan ?
...

wolkenloser

Hallo,
vor ein paar Monaten haben einige Leute angefangen die Deutsche Hilfe neu zu übersetzen.
Wie ist denn da eigendlich der aktuelle Stand.... ?

Gruß
Wolke

wolkenloser

Ich habe die Lösung für genau dieses Problem (siehe Quellcode)

Ich wüßte aber trotzdem gerne wie man ein Bild aus der Zwischenablage weiterverarbeiten kann.
Das kann doch eigendlich nicht schwer sein, denn es ist ja schon da.
Ich will es ja nur als Grafik abspeichen.

Hat sonnst keiner eine Idee

[autoit]

;~ Dieses Tool dient dazu ein Bild aus dem internt herunterzuladen und in einem bestimmten Ordner als "folder.jpg" abzulegen.
;~ Die Grafikadresse muß sich jeweils vor drücken des Hotkeys in der Zwischenablage befinden

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

HttpSetProxy(1)
Dim $bildname
dim $lastfolder

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

While 1
HotKeySet("+{F1}", "get_pic")
sleep(1000) ;CPU Last begrenzen
WEnd

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

Func get_pic()
$bildname = ClipGet()
ToolTip($bildname)
if $lastfolder ="" Then $lastfolder = "Z:\DVDs"
$var = FileSelectFolder("Bitte Ordner zum Speichen des Bildes angeben", "", 2, $lastfolder); beim zweiten durchlauf soll zunächst in den vorherigen Ordner gesprungen werden
$lastfolder = $var
InetGet($bildname, $var & "\folder.jpg")
ToolTip("")

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

EndFunc

[/autoit]

Gruß
Wolke

wolkenloser

Hi Mega,
ich kenne Hardcopy..
aber das macht nicht das was ich brauche.

Ich wollte mir eine Funktion bauen die ein selektiertes Bild in einen Ordner kopiert, jedes Bild soll aber in einen anderen Ordner und soll immer den gleichen Namen haben (Cover Bilder für meine Filemsammlung)

Die Cover bekomme ich aus einer Filmedatenbank (rechtsklick im Firefox ->Grafik kopieren)
Dann will ich diese direkt in den Filemordner umleiten.

Bisher mache ich es so:
rechtsklick im Firefox ->Grafik kopieren
in irfarnview STRG+V (Bild einfügen) und dann STRG+S (Speichern unter)
Dann wähle ich den Ordner aus und vergebe den Namen.

Das wolte ich mit Autoit vereinfachen....

Gruß
Wolke

wolkenloser

Hallo,
wer kann mir weiterhelfen ?
Mit Clipput und Clipget kann man mit Text in der Zwischenablage jonglieren.

Wie kann ich das mit Grafiken machen ?

Ich schneide z.B in Paint einen Bildbereich aus (STRG + C)
Das kopierte Bild möchte ich jetzt am besten direkt als Grafik abspeichen.

Kann mir einer sagen was ich anstellen muß ?

Gruß
Wolke

wolkenloser

Ein bekannter hat mich gefragt ob ich da etwas kenne um den aktuellen Key von seinem System auszulesen...
Wir probieren es mal aus...

Gruß
wolke

Beiträge von wolkenloser

Text auslesen geht nicht oder nur teilweise

Objekt: WScript.Shell

Kontextmenüeintrag in mehrfacher Form

GUI Hilfe

Kalender im Tray abfangen

Kalender im Tray abfangen

Kalender im Tray abfangen

ProfilCopy

ProfilCopy

ProfilCopy

WSH Script ausführen

WSH Script ausführen

WSH Script ausführen

WSH Script ausführen

was macht eigendlich die neue Hilfe Version ?

was macht eigendlich die neue Hilfe Version ?

Bilder in der Zwischenablage

Bilder in der Zwischenablage

Bilder in der Zwischenablage

Product Key Office 2007