Skip to content

Instantly share code, notes, and snippets.

@TLMcode
TLMcode / MicMeter.ahk
Last active December 19, 2015 10:29
Microphone Meter
DetectHiddenWindows, On
OnExit, Exit
If !(A_OSVersion~="WIN_(\d|\w{5})\b")
{
Msgbox, 0x10, Whoops!, Cannot run on this version of Windows!`nThe script will now exit.
ExitApp
}
Else If !FileExist(A_WinDir "\System32\" srcd := "SoundRecorder.exe")
{
@TLMcode
TLMcode / SaveXLValue().ahk
Last active December 19, 2015 12:19
SaveXLValue().ahk strips everything but the value from an excel worksheet, leaves basic format intact.
Worksheet := A_ScriptDir "\Test.xls" ; << change this to your source worksheet
SaveXLValue(Worksheet, A_ScriptDir "\newfile.xls")
Return
SaveXLValue(_wrksht,_xls,_vis=0) ; << source worksheet, ouput worksheet, optional visible for debugging
{
xlObj:=ComObjCreate("Excel.Application"), xlObj.Visible:=_vis
xlObj.Workbooks.Open(_wrksht), xlObj.ActiveSheet.UsedRange.Select
@TLMcode
TLMcode / Hidden Strings Unicode.ahk
Created July 10, 2013 03:40
Strings hidden in Unicode..
SetFormat, Integer, H
Loop % (_:=StrLen(uS:="䤠杯瑳潯潷⁤牡浡栠㐠祯畲慭慨h")+1,s:="")
((i:=A_Index)<_?s.=Chr("0x"SubStr(a:=Asc(SubStr(uS,i,1)),3,2))Chr("0x"SubStr(a,5,2)):ComObjCreate("SAPI.SpVoice").Speak(s))
@TLMcode
TLMcode / processarray.ahk
Last active December 19, 2015 14:39
processarray.ahk
For Process in (ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process"), Processes := [])
(Process.ExecutablePath?Processes.Insert(Process.ExecutablePath):"")
Loop % Processes.MaxIndex()
Msgbox % Processes[A_Index]
layouts := [ 12345,12354,12435,12453,12534,12543,13254,13245,13452,13425,13542,13524
, 14235,14253,14325,14352,14523,14532,15243,15234,15342,15324,15432,15423
, 21534,21543,21354,21345,21453,21435,23541,23514,23145,23154,23415,23451
, 24513,24531,24153,24135,24351,24315,25431,25413,25134,25143,25314,25341
, 31452,31425,31542,31524,31245,31254,32415,32451,32514,32541,32154,32145
, 34251,34215,34521,34512,34125,34152,35214,35241,35412,35421,35142,35124
, 41235,41253,41325,41352,41523,41532,42153,42135,42351,42315,42531,42513
, 43125,43152,43215,43251,43512,43521,45132,45123,45231,45213,45321,45312
, 51423,51432,51243,51234,51342,51324,52431,52413,52134,52143,52314,52341
, 53412,53421,53142,53124,53241,53214,54321,54312,54123,54132,54213,54231 ]
@TLMcode
TLMcode / html entities
Created July 12, 2013 10:34
html entities
&nbsp; &#32; Space
! &#33; Exclamation mark
" &#34; Quotation mark
# &#35; Number sign
$ &#36; Dollar sign
% &#37; Percent sign
& &amp; &#38; Ampersand
' &#39; Apostrophe
( &#40; Opening/Left Parenthesis
) &#41; Closing/Right Parenthesis
; FantomX, change all below instances found in your script
; from
IfExist, WormKitModules\wkPackets.dll
IfExist, WormKitModules\wkWormNAT2Ex.dll
; to
If (FileExist("WormKitModules\wkPackets.dll") && FileExist("WormKitModules\wkWormNAT2Ex.dll"))
@TLMcode
TLMcode / EXPAND ZERO WIDTH COLUMNS.ahk
Last active December 19, 2015 23:49
EXPAND ZERO WIDTH COLUMNS
; EXPAND ZERO WIDTH COLUMNS
ExpandColumns:
; LVM_GETCOLUMNWIDTH := (LVM_FIRST + 29)
; LVM_FIRST := 0x1000 ; ListView messages
GuiControl, 1:, SizeCol, % Chr((i:=!i) ? 0xFE:0xA8 )
Gui, 99: Add, Text,, Select the items to expland in listview heading.
Gui, 99: Add, ListView, Checked r20 w300 , |Item
Gui, 99: Add, Button, gDoExpand, Expand
Global GUIHwnd
OnMessage(0x201,"GuiMove")
Gui, -border hwndGUIHwnd ; feel free to change this but LEAVE hwndGUIHwnd!
; INSERT CODE BELOW
Gui, Add, Text, , Move GUI
Gui, Show
; INSERT CODE ABOVE
Return
@TLMcode
TLMcode / EdgeCompClasses.jqr
Created July 22, 2013 07:31
EdgeCompClasses.jqr
(function($, Edge, compId){
var Composition = Edge.Composition, Symbol = Edge.Symbol; // aliases for commonly used Edge classes
//Edge symbol: 'stage'
(function(symbolName) {
Symbol.bindTriggerAction(compId, symbolName, "Default Timeline", 0, function(sym, e) {
// Lookup the Edge Animate Symbol Javascript Object from an element that is
// an instance of a symbol. The symbol object can be used to invoke