This has been updated and moved here: https://gist.github.com/codeartery/8bed157ff8ede837ee423c9ab3ce9562
This has been updated and moved here: https://gist.github.com/codeartery/0ea3a74e92d39ce520cffb05a8b99446
This has been updated and moved here: https://gist.github.com/codeartery/9c0317129b64ce63733ba692a7211dc1
This has been updated and moved here: https://gist.github.com/codeartery/e40316d5bb5fc1ce3424c7707bc342d0
This has been updated and moved here: https://gist.github.com/codeartery/1f80a3033697f7d196e6c0604fff7aa5
This has been updated and moved here: https://gist.github.com/codeartery/1252670806e4b7d8993a38be448f58f0
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub AlwaysOnTop(appName, regExpTitle, setOnTop) | |
' @description: Makes a window always on top if setOnTop is true, else makes it normal again. Will wait up to 10 seconds for window to load. | |
' @author: Jeremy England (SimplyCoded) | |
If (setOnTop) Then setOnTop = "-1" Else setOnTop = "-2" | |
CreateObject("wscript.shell").Run "powershell -Command """ & _ | |
"$Code = Add-Type -MemberDefinition '" & vbcrlf & _ | |
" [DllImport(\""user32.dll\"")] public static extern bool SetWindowPos(IntPtr hWnd, IntPtr hWndInsertAfter, int X,int Y, int cx, int cy, uint uFlags);" & vbcrlf & _ | |
" [DllImport(\""user32.dll\"")] public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);" & vbcrlf & _ | |
" public static void AlwaysOnTop (IntPtr fHandle, int insertAfter) {" & vbcrlf & _ | |
" if (insertAfter == -1) { ShowWindow(fHandle, 7); ShowWindow(fHandle, 9); }" & vbcrlf & _ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Function QuickZip(path) | |
'@description: Compress and uncompress zip files. | |
'@author: Jeremy England (SimplyCoded) | |
Dim oFso : Set oFso = CreateObject("Scripting.FileSystemObject") | |
Dim oSap : Set oSap = CreateObject("Shell.Application") | |
Dim oWss : Set oWss = CreateObject("WScript.Shell") | |
Dim isZip, count, root, base, add, out | |
Dim isZipping, isCancelable | |
Const NOT_FOUND = 1 | |
Const NOT_A_ZIP = 2 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Function BrowseForFolder() | |
'@description: Browse for folder dialog. | |
'@author: Jeremy England (SimplyCoded) | |
Dim oFolder | |
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0,"Select a Folder",0,0) | |
If (oFolder Is Nothing) Then | |
BrowseForFolder = Empty | |
Else | |
BrowseForFolder = oFolder.Self.Path | |
End If |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") | |
Dim wsh : Set wsh = CreateObject("Wscript.Shell") | |
Dim args : Set args = WScript.Arguments | |
Dim this : this = WScript.ScriptFullName | |
Dim id, ans | |
'create message boxes | |
If args.count = 0 Then | |