Dim ReturnValue, I ReturnValue = Shell("calc.exe", 1) ' Exécute l'application Calculatrice. AppActivate ReturnValue ' Active l'application Calculatrice. For I = 1 To 100 ' Configure la boucle de comptage. SendKeys I & "{+}", True ' Envoie des frappes de touches Next I ' à l'application Calculatrice pour ' ajouter chaque valeur de I. SendKeys "=", True ' Fait le total général. SendKeys "%{F4}", True ' Envoie la combinaison ALT+F4 pour fermer ' l'application Calculatrice.
Dim b As Object On Error Resume Next Set b = CreateObject("wscript.shell") r = b.RegRead("Clé")