TLM TLMcode
TLMcode
/ keylogger.js
Created
August 21, 2013 17:01
rudimentary key events with ascii code conversion in jquery
This file contains hidden or 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
| $('body').keypress(function(event) { | |
| alert("pressed "+" "+String.fromCharCode(event.which)); | |
| }); |
This file contains hidden or 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
| SetTimer, WatchWindow, 100 | |
| return | |
| WatchWindow: | |
| if WinExist("Untitled - Notepad") && (Clipboard~="CIS\w{4}\b") | |
| { | |
| ControlSetText, Edit1, % Clipboard, Untitled - Notepad | |
| SetTimer, WatchWindow, Off | |
| ToolTip | |
| } |
TLMcode
/ gist:6198903
Created
August 10, 2013 03:21
This file contains hidden or 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
| Gui Add, ActiveX, xm w600 h300 vSysMon, Sysmon.3 | |
| SysMon.ShowValueBar := "True" | |
| SysMon.Counters.Add("\Process(*)\% Processor Time") | |
| ; SysMon.GraphTitle := "System Performance Overview" | |
| ; SysMon.Counters.Item(1).Width := 8 | |
| Gui Show | |
| Return | |
| GuiClose: | |
| ExitApp |
This file contains hidden or 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
| F1::MsgBox % GenRndStr( 10 ) | |
| Return | |
| GenRndStr( len ) | |
| { | |
| loop % (122, d="~") | |
| cStr .= chr( (i:=a_index)>32&&i<60 ? i : i>59&&i<91 ? i : i>93&&i<125 ? i : "" ) d | |
| cStr:=regexreplace(cStr, d d) | |
| while ( strlen(nStr)<len ) |
This file contains hidden or 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
| ; ink.Enabled := True ; enables/disables the control | |
| ; ink.RecognitionTimeout := 100 ; speed of refresh when the mouse is lifted | |
| ; ink.BackColor := 200*256*256+250*256+250 ; background color | |
| Gui Add, Text,, Draw in the picture box below or hand write text below that. | |
| Gui Add, ActiveX, xm w600 h300 vss, msinkaut.InkPicture.1 | |
| Gui Add, ActiveX, xm w300 h100 vink, InkEd.InkEdit.1 | |
| (ink.UseMouseForInput := True), ink.InkInsertMode := 0 | |
| Gui, Show | |
| Return |
This file contains hidden or 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
| IEObj := ComObjCreate("InternetExplorer.Application"), IEObj.Visible := 1 | |
| ComObjConnect(IEObj, new Events_Class) | |
| Return | |
| class Events_Class | |
| { | |
| __Call(event, p*) | |
| { | |
| ToolTip, %event% |
This file contains hidden or 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
| IEGet2(name="") { | |
| for obj in ComObjCreate("Shell.Application").Windows | |
| if !obj.AddressBar && (obj.document.title==RegExReplace(name,".*\K\h-.*")) | |
| break | |
| return obj | |
| } |
TLMcode
/ Wait().ahk
Last active
December 20, 2015 07:29
Wait() for IE client objects.Watch this Gist for updates.
This file contains hidden or 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
| Wait( obj, len=300 ) | |
| { | |
| While (obj.ReadyState=4) | |
| continue | |
| While (StrLen(rs)<len) | |
| rs.=((_:=obj.ReadyState)=4?_:) | |
| } |
This file contains hidden or 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
| CoordMode, ToolTip, Screen | |
| reStart: | |
| InputBox, scriptName, Name of New Script, % "Current AHK version is: AHK" | |
| . ( InStr( A_AhkVersion, "1.0." ) ? "Basic " : InStr( A_AhkVersion, "1.1." ) | |
| ? "_L " : "Unknown " ) A_AhkVersion,,, 130 | |
| If ( ErrorLevel ) | |
| ExitApp | |
| Else If ( !scriptName ) { | |
| MsgBox, You Didn't Enter A Name! | |
| GoSub, reStart |
This file contains hidden or 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
| Wait(pwb) ; example call | |
| Wait(_obj,_int=100) { | |
| While(!Instr(rs,4)||StrLen(rs)<_int) | |
| rs.=_obj.ReadyState | |
| } |