Hallo
Es handelt sich um ein VBS, das ich im Pro/E-Forum gefunden habe. Hier der Programmcode:
'Option Explizit
WScript.Sleep 100
Dim Fi, Fso
Set Shell = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Sub sk(Befehl)
'wscript.echo befehl
WshShell.SendKeys(Befehl)
WScript.Sleep 50 'Zeitangabe in Millisekunden
End Sub
sk "^s"
sk "{TAB 4}"
sk "{BS 3}"
sk "drw"
sk "+^{left}"
sk "^c"
sk "^a"
sk "^o"
sk "^v"
sk "~"
WScript.Quit()
Meine Programmierkenntnisse stehen ungefähr auf dem Niveau "stümperhaft".
Warum die o.g. Fehlermeldung auftaucht ist mir mittlerweile klar.
Hier wird ein Unterprogramm (sk) zur einfacheren Programmierung genutzt.
Aber mir ist das Verhalten der Sendkeys absolut unklar.
Der Text will einfach nicht markiert werden.
Wobei, es hat mal funktioniert. Dann aber nicht mehr. Am Script hat sich allerdings nicht geändert.
Schönen Gruß
Thunder
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP