In diesem Beispiel wird die Shell-Funktion verwendet, um die Rechner-Anwendung von Microsoft Windows auszuführen. Anschließend werden mit der SendKeys-Anweisung Tastenanschläge an den Rechner gesendet, um Zahlen zu addieren und den Rechner wieder zu beenden. (Sie probieren das Beispiel aus, indem Sie es in eine Prozedur einfügen und diese anschließend ausführen. Da AppActivate den Fokus auf die Rechner-Anwendung setzt, können Sie den Code nicht mit Einzelschritten ausführen.) Verwenden Sie auf dem Macintosh anstelle des Windows-Rechners eine Macintosh-Anwendung, die Tastatureingabe akzeptiert.
Dim Ergebnis, I
Ergebnis = Shell("CALC.EXE", 1) ' Rechner starten.
AppActivate Ergebnis ' Rechner aktivieren.
For I = 1 To 100 ' Zählschleife beginnen.
SendKeys I & "{+}", True ' Tastenanschläge senden, um die
Next I ' Werte von I zu addieren.
SendKeys "=", True ' Gesamtsumme abrufen.
SendKeys "%{F4}", True ' Rechner mit ALT+F4 beenden.