| ; Variables | |
| Increments := 10 ; < lower for a more granular change, higher for larger jump in brightness | |
| CurrentBrightness := GetCurrentBrightNess() | |
| ; Hot Keys | |
| F6::ChangeBrightness( CurrentBrightness -= Increments ) ; decrease brightness | |
| F7::ChangeBrightness( CurrentBrightness += Increments ) ; increase brightness | |
| ; Functions | |
| ChangeBrightness( ByRef brightness, timeout = 1 ) |
| TopDir := HomeDrive "\Users\" A_UserName | |
| SubDir := "CWD_Cue_Videos" | |
| DirArr := [ "Music", "Pictures", "Videos" ] | |
| For Each, Dir in DirArr | |
| { | |
| run % CurDir := TopDir "\" Dir "\" SubDir,,, DirPid | |
| winwait % CurDir | |
| winactivate % CurDir |
| DllPath := A_ScriptDir "\amf-component-vc-windesktop32.dll" ; point to full path of dll | |
| DllName := (d:=StrSplit( DllPath,"\"))[d.Length()] ; for display purposes only | |
| Bitness := GetDllBitness( DllPath ) ; test call | |
| msgbox % DllName " is " Bitness "Bit" | |
| GetDllBitness( dll, warn:=0 ) | |
| { | |
| hM := DllCall( "LoadLibrary", "str", "imagehlp.dll", "ptr" ), VarSetCapacity( LIS, 88, 0 ) |
| path := A_ScriptDir "\curl.exe" ; example path to executable | |
| Msgbox % GetBinaryType( path ) ; example call | |
| GetBinaryType( bin, warn:=0 ) | |
| { | |
| typeConsts := [ "32BIT_BINARY", "DOS_BINARY", "WOW_BINARY", "PIF_BINARY" | |
| , "POSIX_BINARY", "OS216_BINARY", "64BIT_BINARY" ] |
| ;; | |
| ;; iTypeInfo - Enum Com Members - By jethrow | |
| ;; | |
| ;; small Mod by Blackholyman to output member Name and Doc string in "UTF-16" and put it in a listview | |
| ;; | |
| ;; GUI & furthers Mods by TLM | |
| ;; | |
| Gui, Add, Text,, Enter COM Object | |
| Gui, Add, Edit, vComObject w200, MSXML2.DOMDocument.6.0 ; , % Format( "{:50}", A_Space ) |
Find the Discord channel in which you would like to send commits and other updates
In the settings for that channel, find the Webhooks option and create a new webhook. Note: Do NOT give this URL out to the public. Anyone or service can post messages to this channel, without even needing to be in the server. Keep it safe!
| wbk := ComExcelConnect( "ahk_class XLMAIN" ).Application ; ComObjActive("Excel.Application") | |
| ; a:: | |
| F1:: | |
| ; Loop % UsedRows | |
| While ( A_Index <= wbk.ActiveSheet.UsedRange.Rows.Count ) | |
| { | |
| CurRow := A_Index, Cols := wbk.Cells( CurRow, 256 ).End( -4159 ).Column | |
| Loop % Cols |
| Gui Add, Edit, x56 y64 w120 h21 +Number +Password +HwndHED | |
| SubclassControl( HED, "EditSubclass" ) ; placed here to catch preemptive balloontips | |
| Gui, Show, w244 h155, Window | |
| Return | |
| GuiClose: | |
| ExitApp | |
| ; ====================================================================================================================== | |
| ; Add these functions to your script TLM ;) |
| if !( SndVolId := WinExist( "ahk_exe SndVol.exe" ) ) | |
| { | |
| Run, SndVol.exe,,, SndVolPid | |
| WinWait % "ahk_pid " SndVolPid | |
| SndVolId := WinExist( "ahk_pid " SndVolPid ) | |
| } | |
| WinSet AlwaysOnTop, On, % "ahk_id " SndVolId | |
| WinMove, % "ahk_id " SndVolId,, % A_ScreenWidth, % A_ScreenHeight+100 | |
| WinGetPos, SndVolX,, SndVolW, SndVolH, % "ahk_id " SndVolId |
| CoordMode Mouse, Screen | |
| PosArr := [] | |
| ~LButton:: | |
| MouseGetPos, mPosX, mPosY, mPosWin, mPosControl | |
| PosArr.Push( mPosX, mPosY ) | |
| return | |
| F1:: | |
| for i in PosArr |
