loading

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

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.

<p>Cool project.</p>

About This Instructable

375views

2favorites

License:

More by AllzweckNamen:.vbs Timed Pop-up [Code intended for Notepad.exe] 
Add instructable to: