Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Dim i
Dim a
Dim b
Dim mastermindzh
Set objShell = CreateObject("WScript.Shell")
a=inputbox("Hoevaak wil je de toets in drukken?")
b=inputbox("Hoe lang moet er tussen zitten (in miliseconden, 1 seconde = 1000 ms)?")
mastermindzh=inputbox("Welke toets moet gedrukt worden?")
WScript.Echo "Dit programma zorgt er voor dat je ",a," keer de toets wordt ingedrukt op het moment dat je op ok drukt"
For i = 1 To a
Wscript.Sleep b
objShell.SendKeys mastermindzh
Next
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.