Skip to content

Instantly share code, notes, and snippets.

Sub GenerateFullHotkeyList
on error resume next
Set objShell = CreateObject("Shell.Application")
' GenerateFullHotkeyInFolder(objShell.NameSpace(11)) '
GenerateFullHotkeyInFolder(objShell.NameSpace(17)) 'My Comp
headrow = "<THEAD class=instruct>" & vbcrlf & "<TR><TD WIDTH=" & chr(34) & "20%" & chr(34) & "><b>Key</b></TD><TD WIDTH=" & chr(34) & "35%" & chr(34) & "><b>Shortcut Location</b><br>Click to find in Explorer</TD><TD WIDTH=" & chr(34) & "35%" & chr(34) & "><b>Target</b><br>Click to find in Explorer</TD></TR></THEAD>"
If DiagVar<>"" then
FullHotKeyList.InnerHTML = "<table id=tfullhotkeylist>" & headrow & DiagVar & "</table>"
Else
FullHotKeyList.InnerHTML = "<p style='color:red'><b>No hotkeys found</b></p>"
@corbob
corbob / prompt.ps1
Last active May 18, 2019 05:40
prompt...
#region prompt
$forePromptColor = 0
[System.Collections.Generic.List[ScriptBlock]]$PromptRight = @(
# right aligned
{ "$FG;${er}m{0}" -f $LeftArrow }
{ "$FG;${forePromptColor}m$BG;${er}m{0}" -f $(if (@(get-history).Count -gt 0) {(get-history)[-1] | % { "{0:c}" -f (new-timespan $_.StartExecutionTime $_.EndExecutionTime)}}else {'00:00:00.0000000'}) }
{ "$FG;7m$BG;${er}m{0}" -f $LeftArrow }
{ "$FG;0m$BG;7m{0}" -f $(get-date -format "hh:mm:ss tt") }
# Works
Param(
[Parameter(mandatory)]
$a,
[ValidateSet(1,2,3,4,5,6,7,8,9)]
$b
)
# doesn't work...
param (
[string]$Str,
MIT License
Copyright (c) 2019
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
h2 {
content: "<div>corbob</div>"
}
// Put the contents of this gist into any js file within "C:\Users\<user>\AppData\Roaming\discord\0.0.306\modules\"
// I put it in "C:\Users\<username>\AppData\Roaming\discord\0.0.306\modules\discord_dispatch\index.js"
const sb = document.querySelector('[class^="sidebar-"]');
const sbWidth = sb.style.width;
function toggleHide() {
if (sb.style.width === sbWidth) {
sb.style.width = "0"
} else {
function Update-Nvim {
Invoke-WebRequest https://github.com/neovim/neovim/releases/download/nightly/nvim-win64.zip -OutFile $env:TEMP\nvim.zip
Expand-Archive $env:TEMP\nvim.zip C:\tools\neovim -Force
}
{
"meta": {
"theme": "stackoverflow"
},
"basics": {
"name": "Cory Knox",
"email": "me@coryknox.dev",
"website": "https://www.coryknox.dev",
"summary": "Experienced PowerShell developer with a penchant for automation. Continually looking for efficiency improvements through code.",
"location": {

Keybase proof

I hereby claim:

  • I am corbob on github.
  • I am corbob (https://keybase.io/corbob) on keybase.
  • I have a public key ASCQVZrOBgetkLnKtKfxiikJWM8JR0hRwdFDJDlc-cCjnAo

To claim this, I am signing this object:

@corbob
corbob / install-workstation.ps1
Last active April 3, 2022 00:01
New Workstation
# Set execution Policy for the system
Set-ExecutionPolicy Bypass -Force
[System.Net.ServicePointManager]::SecurityProtocol = [System.Net.ServicePointManager]::SecurityProtocol -bor 3072
Invoke-Expression ((New-Object System.Net.WebClient).DownloadString('https://community.chocolatey.org/install.ps1'))
Invoke-WebRequest -Uri https://gist.githubusercontent.com/corbob/cc3fb9f4558eacfe002b320223624484/raw/d54a50248980faf078bc19bbde401da436082dd6/packages.config -OutFile C:\Packages.config -UseBasicParsing
choco feature enable -n allowGlobalConfirmation
choco install c:\packages.config