Skip to content

Instantly share code, notes, and snippets.

View simply-coded's full-sized avatar

Jeremy England simply-coded

41 followers · 0 following
View GitHub Profile
@simply-coded
simply-coded / carousel-animations-demo.html
Last active May 24, 2016 03:16
Demo of my "carousel.js" and "carousel-animations.js" gists.
@simply-coded
simply-coded / TimedBox.vbs
Last active August 14, 2016 13:46
Simple vbscript timed message box using embedded hta.
'***********************
'Name: Timed Messages
'Author: Jeremy England
'Company: SimplyCoded
'Version: rev.001
'Date: 1/02/2015
'***********************
Option Explicit
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
@simply-coded
simply-coded / ListAvailableCOMs.hta
Last active October 31, 2016 18:56
Get available Component Object Models (COM)s on your computer, and view their members.
<!DOCTYPE html>
<!--
Authors: Jeremy England
Company: SimplyCoded
Revised: 10/31/2016
Description:
Gets a list of available COM objects on your computer.
Once populated, clicking on the COM name shows its members, as well as if it is vbscript compatible.
-->
@simply-coded
simply-coded / table.html
Last active June 21, 2017 14:46
REQUEST: HTML table code.
<!DOCTYPE html>
<html>
<head>
<style>
table {
background-color: #f2f2f2;
border: 5px solid cornflowerblue;
border-spacing: 10px;
font-family: Arial, Helvetica, sans-serif
}
@simply-coded
simply-coded / EachFolder.vbs
Last active September 29, 2017 22:09
Loops through all folders and subfolders under a root directory and runs them through a routine of your choice.
Function EachFolder(strRoot, includeRoot, funcRef, funcArgs, oFSO)
' @author: Jeremy England ( SimplyCoded )
' @description: Loops through all folders and subfolders under a root directory.
Dim oFolder, changeProtection
If oFSO.FolderExists(strRoot) Then
For Each oFolder In oFSO.GetFolder(strRoot).SubFolders
changeProtection = oFolder.Path
EachFolder = funcRef(oFolder, funcArgs)
If UCase(EachFolder) = "SKIP_ALL" Then Exit Function
If UCase(EachFolder) = "SKIP_PARENT" Then Exit For
@simply-coded
simply-coded / OnTopNotepad.ps1
Last active January 16, 2018 17:17
An always on top notepad for taking notes and such.
# makes a notepad process that remains on top of other windows.
$cs = Add-Type -MemberDefinition '
[DllImport("user32.dll")] public static extern bool SetWindowPos(IntPtr a, IntPtr b, int c, int d, int e, int f, uint g);
public static void AlwaysOnTop(IntPtr a, int d) { SetWindowPos(a, (IntPtr)(-1), 0, d-250, 300, 200, 64); }
' -Name PS -PassThru;
$hWnd = Start-Process -FilePath notepad -PassThru;
$screen = Get-WmiObject -Class Win32_VideoController | Select-Object CurrentVerticalResolution;
$cs::AlwaysOnTop($hWnd.MainWindowHandle, $screen.CurrentVerticalResolution);
@simply-coded
simply-coded / DictionaryInDictionary.vbs
Last active May 31, 2018 00:11
Dictionaries inside of dictionaries example using VBScript.
'**************************
'Name: Dictionary Inception
'Author: Jeremy England
'Company: SimplyCoded
'Version: rev.001
'Date: 02/20/2016
'**************************
Set contact = CreateObject("Scripting.Dictionary")
contact.Add "Ben", details("25","(820)-828 2828")
@simply-coded
simply-coded / carousel-animations.js
Last active April 16, 2019 22:00
A JavaScript object that creates a simple carousel out of any element with the class "carousel". Has a section for adding animations in between slides.
@simply-coded
simply-coded / HotOrCold.vbs
Last active October 26, 2019 08:25
Game that has you guess a computer generated number between 0-100. The closer or farther a way you get will let you know if you're getting warmer or colder. You have 10 tries. Good luck.
'***********************
'Name: Guessing Game
'Author: Jeremy England
'Company: SimplyCoded
'Version: rev.001
'Date: 05/17/2014
'***********************
Option Explicit
Dim status, guess, range, guesses, diff, change
@simply-coded
simply-coded / OverridePassword.vbs
Created April 18, 2016 00:36
Change a windows user's password. Requires admin permission but doesn't require knowing the old password.
'***********************
'Name: Change Pass Admin
'Author: Jeremy England
'Company: SimplyCoded
'Version: rev.001
'Date: 10/05/2014
'***********************
Option Explicit
RunAsAdmin()