5
Tasteneingabe mittels VBS
Hallo,
ich bin dabei mit ein kurzes simples Script zu basteln und stelle fest, dass es doch nicht so simpel (für mich?) ist.
- Auf einem WinXP Rechner -
Hier ein Beispiel: Ich will einfach eine Notepad Datei erstellen lassen und automatisch den Text "Test" eingeben und ein return.
Dim Beispiel
Set Beispiel = CreateObject("WScript.Shell")
Beispiel.Run "Notepad"
Beispiel.SendKeys "Test"
Beispiel.SendKeys "{ENTER}"
Leider die ersten 4 Zeilen nimmt er ohne Fehlermeldung, leider auch ohne "Test". Mit Zeile 5 gibt es eine Fehlermeldung.
Weiß jemand woran das liegt?
Wie würde ich einen "Strg-A" + "Strg-B" (alles markieren und fettgedruckt setzten) um setzten können?
Vielen Dank wenn jemand zu helfen weiß.
ich bin dabei mit ein kurzes simples Script zu basteln und stelle fest, dass es doch nicht so simpel (für mich?) ist.
- Auf einem WinXP Rechner -
Hier ein Beispiel: Ich will einfach eine Notepad Datei erstellen lassen und automatisch den Text "Test" eingeben und ein return.
Dim Beispiel
Set Beispiel = CreateObject("WScript.Shell")
Beispiel.Run "Notepad"
Beispiel.SendKeys "Test"
Beispiel.SendKeys "{ENTER}"
Leider die ersten 4 Zeilen nimmt er ohne Fehlermeldung, leider auch ohne "Test". Mit Zeile 5 gibt es eine Fehlermeldung.
Weiß jemand woran das liegt?
Wie würde ich einen "Strg-A" + "Strg-B" (alles markieren und fettgedruckt setzten) um setzten können?
Vielen Dank wenn jemand zu helfen weiß.
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 116915
Url: https://administrator.de/contentid/116915
Ausgedruckt am: 25.11.2024 um 09:11 Uhr
5 Kommentare
Neuester Kommentar
Hallo.
Wie wäre es damit, den Ascii-Code (13) für die Entertaste zu übergeben. Ich bin mir sicher, dass macht am wenigsten Komplikationen.
Mit Sendkeys "%ocFett" sollte es funktionieren fett zu schreiben. Entspricht Alt+o, Alt+c, Eingabe Fett
Wie wäre es damit, den Ascii-Code (13) für die Entertaste zu übergeben. Ich bin mir sicher, dass macht am wenigsten Komplikationen.
Mit Sendkeys "%ocFett" sollte es funktionieren fett zu schreiben. Entspricht Alt+o, Alt+c, Eingabe Fett
Hallo H3LLV1574,
So funktionierts:
Gruß Dieter
PS.
So funktionierts:
Dim Notepad
Set Notepad = CreateObject("WScript.Shell")
Notepad.Run "NOTEPAD.EXE"
WScript.Sleep 500
With Notepad
.SendKeys "Zeile 1" & vbCr
.SendKeys "Zeile 2" & vbCr
.SendKeys "Zeile 3" & vbCr
End WithGruß Dieter
PS.
.SendKeys "%os{Tab}Fett{Enter}" 
je nach Verwendungszweck würde es doch auch das fso.opentextfile() tun.
Wie würde ich einen "Strg-A" + "Strg-B" (alles markieren und fettgedruckt setzten) um setzten können?
schon mal was davon gehört, dass txt dateien Reintext sind und somit keine Formatierung zulassen?
du kannst ja mal manuell versuchen im Notepad etwas Fett zu schreiben...
strg, alt & umschalt:
dazu gibts viele Beiträge (weiss nur gerade keinen)
das geht irgendwie mit
.sendkeys "^(a)" 'stellt glaub ich ein ctrl+a dar...
du kannst ja mal manuell versuchen im Notepad etwas Fett zu schreiben...
Ich würde das an deiner Stelle erst mal selbst versuchen, bevor du hier so groß tönst.Grundsätzlich geht das nämlich sehr wohl. Ob die Formatierung beim Speichern ignoriert wird, oder ob das mit STRG-B möglich ist. steht auf einem anderen Blatt.
