Hallo AutoIT Community,
ich sitz im moment an nem Script und komm absolut nicht weiter. Im Prinzip relativ simpel. Ich hab ein Programm, was viel aus nem PC ausliest u.a. auch die Seriennummer des PC´s.. Genau die wird benötigt. Die lass ich makieren und dann kopieren, und will sie in eine erstellte Textdatei (%Computername%.txt) einfügen.
Es klappt alles, die Seriennummer wird auch kopiert, aber nicht eingefügt, woran kann das liegen..?
Hier mal der Code
Spoiler anzeigen
;Programm zum Seriennummer auslesen
[/autoit] [autoit][/autoit] [autoit]$Prog_log = "D:\Log\"
$Software = "Seriennummer_auslesen"
$file = FileOpen ($Prog_log & @ComputerName & ".txt", 2)
MsgBox(0, "Seriennummer_lesen", "Auf Ihrem Rechner wird nun " & $Software & " ausgeführt." & @CRLF & @CRLF & "Während des Ausführens werden Maus und Tastatur gesperrt.")
[/autoit] [autoit][/autoit] [autoit]If Not FileExists($Prog_log) Then
msgbox (0x10,"Fehler", "Das Ausführen des Programms " & $Software & " ist fehlgeschlagen, die Log-Directory ist nicht verfügbar." & @CRLF & @CRLF & "Bitte in der IT - Abteilung melden.")
exit
endif
BlockInput ( 1 )
[/autoit] [autoit][/autoit] [autoit]Run("D:\Apps\CTDMIW.EXE")
[/autoit] [autoit][/autoit] [autoit]WinWaitActive("ctdmiw v1.3, (c) Devid Espenschied, Mai 2003")
[/autoit] [autoit][/autoit] [autoit]Send("{PGDN 4}")
Send("{UP 11}")
Send("{RIGHT 26}")
Send("{SHIFTDOWN}")
Send("{RIGHT 10}")
Sleep(1000)
Send("{SHIFTUP}")
Send("^c")
FileWriteLine($file, Send("^v"))
FileClose($file)
Send("!{F4}")
BlockInput ( 0 )
MsgBox(64,"Erfolgreich", "Das Auslesen war erfolgreich! Ihre Tastatur & Maus sind nun wieder freigegeben.")
Das Einfügen soll im letzten Teil eigentlich mit "^v" passieren, habe aber auch schon andere Methoden ausprobiert wie z.B., CTRLDOWN + v + CTRLUP
Vielen Dank schonmal im vorraus!
mfg
Edit BugFix: Spoiler + AutoIt-Tags gesetzt