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.
' du brauchst eine Form mit einem Timer
Private sub Form_Load
timer1.Interval = 5000 '5 sec
timer1.Enabled = true
end Sub
Private sub Timer1_Timer()
static pid as long
dim proc as object
dim wmi as object
' Verbindung mit WMI herstellen
Set wmi = GetObject( winmgmts:")
' neue leere Win32_Process-Klasse anlegen
Set proc = wmi.Get("Win32_Process")
' Programm starten
if pid = 0 then
proc.Create ( iexplore.exe",,,pid)
else
' Programm beenden
set proc= wmi.Get("Win32_Process.Handle=" & pid)
proc.Terminate 0
pid = 0
end if
end sub