Skip to main content

Featured

WIN ALL ACTEVETED LIFETIME

  Search for: Recent Posts Simple trick to install Windows 11 on an old PC Easy ways to activate Windows 11 for FREE without a product key Remove “You may be a victim of software counterfeiting” notification Windows Defender detects my scripts as “HackTool:BAT/AutoKMS” Quickly convert Windows Server Evaluation edition to the retail one Easiest way to remove the Windows watermark from your screen Categories Computer Tips Microsoft Software Products 2 ways to activate Windows 10 for FREE without additional software Posted by  Always Smile   in  Microsoft Software Products  /  Last updated on  August 26, 2021 As you know, Microsoft notified Windows 10 is “the last version of Windows” and explained that they will be focused on the development of powerful and new features under the guise of software updates instead of building a new version. This means there will be no Windows 11 or 12 in the future(*). So if you are thinking about an upgrade, this is the b...
Post a Comment
Read more

 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.

Be the First to Share

    Comments

    Post a Comment

    Popular Posts