.vbs Timed Pop-up [Code bestemd voor Notepad.exe] (1 / 2 stap)

Stap 1: Pop-code

 Dim w Dim x Dim y Dim z 

 set oShell = createobject("wscript.shell") Set sapi = Wscript.CreateObject("SAPI.SpVoice") 

 x = inputbox("Which file would you like to use as a Pop-up? Example: File.txt") 

 if x = "help" then sapi.speak "Type Cancel to exit." sapi.speak "Type Help for help." sapi.speak "For question two answer with a number." sapi.speak "Each number represents one minute." sapi.speak "Please re-open this application to try again." Wscript.Quit 1 

 else if x = "cancel" then Wscript.Quit 1 

 end if end if 

 y = inputbox("How long until Pop-up becomes enabled") 

 if y => 0 then z = 60 * y 

 else if y = "cancel" then Wscript.Quit 1 

 else if y = "help" then sapi.speak "Select a number for this question." sapi.speak "Each number represents one minute." sapi.speak "Type Cancel to exit." sapi.speak "Type Help for help." sapi.speak "Type yes or no for question 3" sapi.speak "Please re-open this application to try again." Wscript.Quit 1 

 else msgbox ("Character not valid") Wscript.Quit 1 

 end if end if end if 

 w = inputbox("Are you sure?") 

 if w = "yes" then msgbox("Thank you for using a Code by Allzweck Namen.") Wscript.sleep (1000*z) oShell.Run (x) 

 else if w = "cancel" then Wscript.Quit 1 

 else if w = "help" then sapi.speak "Please type yes or no for this question." sapi.speak "Type Cancel to exit." sapi.speak "Type Help for help." sapi.speak "Please re-open this application to try again." Wscript.Quit 1 

 else Wscript.Quit 1 

 end if end if end if