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.
On Error Resume Next
Select Case MsgBox("Moet je je agenda niet bijwerken?", vbYesNoCancel+vbQuestion)
Case vbYes
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("NAAM VAN PROGJE.exe")
Case vbNo
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
Case vbCancel
Case Else
Msgbox("Waar heb je nu eigenlijk op geklikt?")
End Select
WScript.Quit
En het moet nog 1 dingetje veranderen. Er staat NAAM VAN PROGJE.exe daar moet je dan natuurlijk de .exe van je dagboek.Als ik het zelf open en op ja klik opent ie overigens ook m'n dagboek niet.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.