VBScript Sendkeys Frage

hallo

muss mal wieder mit vbscript und sendkeys arbeiten

da ich das schon mal gemacht habe dachte ich kein problem und hab erstmal einen test gemacht

hier das test-skript:

Code:

On Error Resume Next

' Notepad starten und Dialog "Seite einrichten" aufrufen
Dim AppID As Long
 
AppID = Shell("c:\WINDOWS\notepad.exe", vbNormalFocus)
DoEvents
 
' NotePad aktivieren
AppActivate AppID
 
' Alt+d (Menü DATEI)
SendKeys "%d", True
 
' r (Seiten einrichten)
SendKeys "r", True
 
' Alt+k (Kopfzeile)
SendKeys "%k", True
 
' Text schreiben
SendKeys "Test-Kopfzeile", True
 
' Dialog beenden (OK-Schaltfläche per Alt+O auslösen)
SendKeys "%o"

doch plötzlich kam eine Fehlermeldung mit der ich garnicht gerechnet habe, und zwar:

Zeile: 4
Zeichen: 11
Fehler: Anweisungsende erwartet
Code: 800A04041
Quelle: Kompilierungsfehler in Microsoft VBScript

also er meckert über

Code:

Dim AppID As Long

nur warum?

was ist da schief gelaufen

 

1. Variablen werden in VBS automatisch durch zuweißen eines Wertes erstellt. Also durch VariablenName = "Wertzuweißung"

2. VBS kennt nur den Datentyp Variant, daher kommt der Fehler. Denn alles hinter Dim AppID gehört für VBS dort nicht mehr hin. Was bewirkt, das ein Anweißungsende erwartet wird.

3. Wenn ich schon ausgeschlafen bin und mein Hirn rattert, dann sollte der restliche Code so auch nicht funktionieren. Oder anders gefragt: Ist das nur nen Auszug aus dem Code ?

 

ja hast recht das was ich fabriziert habe ist wohl vba

hab ich wohl nicht richtig hingeschaut

so funktionierts richtig:

Code:

on error resume next
set ws = CreateObject("Wscript.Shell")
ws.run("c:\WINDOWS\notepad.exe")
AppID = Shell("c:\WINDOWS\notepad.exe", vbNormalFocus)
wscript.sleep 1000
AppActivate AppID
wscript.sleep 1000
' Alt+d (Menü DATEI)
ws.SendKeys "%d", True
wscript.sleep 1000 
' r (Seiten einrichten)
ws.SendKeys "r", True
wscript.sleep 1000 
' Alt+k (Kopfzeile)
ws.SendKeys "%k", True
wscript.sleep 1000 
' Text schreiben
ws.SendKeys "Test-Kopfzeile", True
wscript.sleep 1000 
' Dialog beenden (OK-Schaltfläche per Alt+O auslösen)
ws.SendKeys "%o"

manchmal sieht man den wald vor lauter bäumen nicht...

danke für deine hilfe!