# SPRINT
Navigational supremacy.
11/10/24: Visual redesign
Navigational supremacy.
In response to the Win + R block
Created by dj
Download this file and run it by double clicking
If it does not work, follow the steps below:
1) Copy this code below
Option Explicit
Dim apptorun, objShell
Set objShell = CreateObject("WScript.Shell")
apptorun= InputBox ("Type the name of a program, folder, document, or internet resource, and SPRINT will open it for you.","SPRINT (Spinoff of Run)")
' Set the compatibility layer for the script
objShell.Environment("PROCESS")("__COMPAT_LAYER") = "RunAsInvoker"
' Start msconfig
objShell.Run apptorun
2) In the windows search box, search for "notepad" and open the application, paste in the code above
3) Press "Ctrl" + "S" on your keyboard and save the file
4) Navigate to the file in your file system and double click on it to run