Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Private Declare Function GetAsyncKeyState Lib _
"user32.dll" (ByVal nVirtKey As Integer) As Short
Sub Main()
Do Until a = 1
If GetAsyncKeyState(Asc("B")) = -32767 Then
MsgBox("test")
End If
Loop
End Sub