lostecho/Windows_Proxy_Toggler
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update toggle_proxy_on_off.vbs

Browse Source
This commit is contained in:
Lostecho
2023-06-30 11:12:40 +08:00
parent c49d82409b
commit 5b5212d014
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
toggle_proxy_on_off.vbs
View File

@@ -8,7 +8,7 @@
Option Explicit Option Explicit
'Variables & Constants: 'Variables & Constants:
Dim ProxySettings_path, VbsScript_filename Dim ProxySettings_path, VbsScript_filename, Desktop_path
VbsScript_filename = "toggle_proxy_on_off.vbs" VbsScript_filename = "toggle_proxy_on_off.vbs"
'sec; change this value to set how long the message box displays when you toggle the proxy setting 'sec; change this value to set how long the message box displays when you toggle the proxy setting
Const MESSAGE_BOX_TIMEOUT = 1 Const MESSAGE_BOX_TIMEOUT = 1
@@ -19,7 +19,8 @@ Set WSHShell = WScript.CreateObject("WScript.Shell")
'get the username string for use in path names, since trying to use the "%USERNAME%" variable 'get the username string for use in path names, since trying to use the "%USERNAME%" variable
'directly in path names throws an error 'directly in path names throws an error
username = WSHShell.ExpandEnvironmentStrings("%USERNAME%") username = WSHShell.ExpandEnvironmentStrings("%USERNAME%")
ProxySettings_path = "C:\Users\" + username + "\Windows_Proxy_Toggler" ProxySettings_path = createobject("Scripting.FileSystemObject").GetFolder(".").Path
Desktop_path = WSHShell.SpecialFolders("Desktop")
'Determine current proxy setting and toggle to opposite setting 'Determine current proxy setting and toggle to opposite setting
proxyEnableVal = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable") proxyEnableVal = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable")
@@ -53,7 +54,7 @@ End Sub
Sub CreateOrUpdateDesktopShortcut(onOrOff) Sub CreateOrUpdateDesktopShortcut(onOrOff)
'create a shortcut 'create a shortcut
Dim shortcut, iconStr Dim shortcut, iconStr
Set shortcut = WSHShell.CreateShortcut("C:\Users\" + username + "\Desktop\Proxy On-Off.lnk") Set shortcut = WSHShell.CreateShortcut(Desktop_path + "\Proxy On-Off.lnk")
'Set the target path (target file) to run when the shortcut is clicked 'Set the target path (target file) to run when the shortcut is clicked
shortcut.TargetPath = ProxySettings_path + "\" + VbsScript_filename shortcut.TargetPath = ProxySettings_path + "\" + VbsScript_filename
'Set the working directory. This is necessary in case you ever make this shortcut call a batch 'Set the working directory. This is necessary in case you ever make this shortcut call a batch
@@ -73,4 +74,4 @@ Sub CreateOrUpdateDesktopShortcut(onOrOff)
shortcut.IconLocation = ProxySettings_path + "\icons\" + iconStr shortcut.IconLocation = ProxySettings_path + "\icons\" + iconStr
'Save the shortcut 'Save the shortcut
shortcut.Save shortcut.Save
End Sub End Sub