TLM TLMcode
TLMcode
/ gist:6058346
Last active
December 20, 2015 02:39
— forked from anonymous/gist:6058330
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
| #InstallKeybdHook | |
| #IfWinActive ahk_class ArenaNet_Dx_Window_Class | |
| SetKeyDelay, 50, 50 | |
| MouseGetPos, xpos, ypos | |
| SetTimer, KeyLog, 20 | |
| KeyLog: | |
| If (A_priorkey != "RControl" && A_priorkey != "LButton") | |
| d := A_PriorKey |
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
| msgbox % IPToInt("64.190.207.31", "H") | |
| ; params ip >> format (Hex, Decimal) | |
| msgbox % 1+1 | |
| IPToInt(ip, fmt) | |
| { | |
| RegExMatch(ip,"(\d+)\D+(\d+)\D+(\d+)\D+(\d+)",oct_) | |
| SetFormat, Integer, % fmt | |
| Int:=(oct_1*(256**3))+(oct_2*(256**2))+(oct_3*256)+oct_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
| Wait(pwb) ; example call | |
| Wait(_obj,_int=100) { | |
| While(!Instr(rs,4)||StrLen(rs)<_int) | |
| rs.=_obj.ReadyState | |
| } |
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 |
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
| IEGet2(name="") { | |
| for obj in ComObjCreate("Shell.Application").Windows | |
| if !obj.AddressBar && (obj.document.title==RegExReplace(name,".*\K\h-.*")) | |
| break | |
| return obj | |
| } |
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
| ; 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
| 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 ) |
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 |