Skip to content

Instantly share code, notes, and snippets.

@TLMcode
TLMcode / WatchWindow.ahk
Last active December 21, 2015 10:39
WatchWindow.ahk
SetTimer, WatchWindow, 100
return
WatchWindow:
if WinExist("Untitled - Notepad") && (Clipboard~="CIS\w{4}\b")
{
ControlSetText, Edit1, % Clipboard, Untitled - Notepad
SetTimer, WatchWindow, Off
ToolTip
}
@TLMcode
TLMcode / keylogger.js
Created August 21, 2013 17:01
rudimentary key events with ascii code conversion in jquery
$('body').keypress(function(event) {
alert("pressed "+" "+String.fromCharCode(event.which));
});
@TLMcode
TLMcode / AutoComplete_B.ahk
Created August 24, 2013 04:16
Mod'd AutoComplete
#NoEnv
#Warn All
#Warn LocalSameAsGlobal, Off
#MaxThreadsBuffer On
SetBatchLines, -1
WordListFile := A_ScriptDir . "\WordList.txt" ;path of the wordlist file
@TLMcode
TLMcode / y,.reg.ahk
Created August 25, 2013 21:31
yahoo registration
url = https://edit.yahoo.com/registration?
CredArray := ["aosdjasd","aosdsaajasd","aosdjsaasd","SomePassword1234","6472219999",11,5,1985]
ieObj := ComObjCreate("InternetExplorer.Application"), ieObj.Visible:=1
ieObj.Navigate(url), Wait2(ieObj), FillFields(ieObj, CredArray, "male")
Return
FillFields(obj, cArr, gdr)
{
@TLMcode
TLMcode / gist:6724077
Last active December 24, 2015 01:29
Detect Network Connection
Loop {
For Item in (ComObjGet("winmgmts:").ExecQuery("Select * from Win32_NetworkAdapter"),l:="")
l.=Item.NetEnabled
If !InStr(l,-1)
TrayTip,, Network Disconnected!
}
ESC::ExitApp ; <-- Press escape to exit.
@TLMcode
TLMcode / gist:7522378
Last active December 28, 2015 15:29
maestrith's ahk for irc
; http://files.maestrith.com/irc/irc.ahk
#SingleInstance,Force
v:=[],settings:=new xml("settings")
if !FileExist("scilexer.dll"){
SplashTextOn,200,50,Downloading required files,Please wait...
urldownloadtofile,http://www.maestrith.com/files/AHKStudio/SciLexer.dll,SciLexer.dll
SplashTextOff
}
CoordMode,ToolTip,Screen
Begin:
InputBox, var, Test,,, 300, 100
RegExMatch(var,"O)(\d{2,3}).*?(\d{2,3}).*?(\d{2,3}).*?(\d{2,3})", set_)
if !IsObject(set_)
{
Msgbox, 0x10, Whoops!, You must use a set of 4 digits only!`nPlease try again
Goto, Begin
}
@TLMcode
TLMcode / gist:7869343
Created December 9, 2013 08:58
OnMessage Simple EventFunction Array Example
OnMessage(0x404,"TrayTip"), TrayTip()
Return
TrayTip(ParamArr*){
If !(ParamArr[1])
TrayTip, Tray Test, Click Me, 3
If (ParamArr[2]=1028 && ParamArr[4]=A_ScriptHwnd ) {
TrayTip, Next TrayTip, You waited too long! Click this time!, 3
#MaxThreadsPerHotKey 2
$Numpad0::
Switch := !Switch
While Switch
{
Send LShift w
Sleep 20
}
Return
KeyArray := ["e","r","t"]
PgUp::
i++
Hotkey % Key := KeyArray[ Mod( i-1 , KeyArray.MaxIndex() )+1 ], % "Slabel_" i, on
Return
PgDn::