.vbs Timed Pop-up [Code Intended for Notepad.exe]

Introduction: .vbs Timed Pop-up [Code Intended for Notepad.exe]

This Application enables you to open any document and program at a set time. You will be able to set how many minutes until your file is run.

This application will ask you:

1 - What file you would like to use as a Pop-up

2 - How long until Pop-up becomes enabled

3 - And if you are sure if you want to continue.


Answers expected for program:

1 - (Example) File.txt , Log.vbs , Chrome.exe , etc.

2 - Any positive number Example: 1 , 30 , 3 , 16 , 54 , 96 , etc. (A number represents one minute.)

3 - Yes , No


Key words to assist you:

- help

"help" Enables an automated response that states the options listed here and more.

- cancel

"cancel" Exits the application.


*( After code writen save file type as .vbs) [Example: Log.vbs]

*Code intended for Notepad.exe

Teacher Notes

Teachers! Did you use this instructable in your classroom?
Add a Teacher Note to share how you incorporated it into your lesson.

Step 1: Pop-up 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

Step 2:

*Help for debugging may be available.

Be the First to Share

    Recommendations

    • Raspberry Pi Contest 2020

      Raspberry Pi Contest 2020
    • Wearables Contest

      Wearables Contest
    • Fix It Contest

      Fix It Contest

    Discussions