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.
CreateObject("WScript.Shell").SendKeys "%{1068}", True
#If Win64 Then
Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If
Sub SetNumLockOn()
Dim NumLockState As Boolean
Let NumLockState = CBool(GetKeyState(vbKeyNumlock) And 1)
If Not NumLockState Then
SendKeys "{NUMLOCK}", True
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.