a?

Author: Bluscream

.vscode/launch.json

@@ -7,13 +7,12 @@
             "program": "",
             "stopOnEntry": true
         },
-    {
-        "type": "ahk",
-        "request": "launch",
-        "name": "AutoHotkey v1 Debugger",
-        "program": "",
-        "stopOnEntry": true,
-        "runtimeArgs": ["/extra"]
-    }
+        {
+            "type": "ahk",
+            "request": "launch",
+            "name": "AutoHotkey v1 Debugger",
+            "program": "",
+            "stopOnEntry": true
+        }
     ]
 }

lib/bluscream.ahk

@@ -312,30 +312,34 @@ ShellRun(prms*)
     desktop := shellWindows.Item(ComObj(19, 8)) ; VT_UI4, SCW_DESKTOP                
 
     ; Retrieve top-level browser object.
-    if ptlb := ComObjQuery(desktop
-        , "{4C96BE40-915C-11CF-99D3-00AA004AE837}"  ; SID_STopLevelBrowser
-        , "{000214E2-0000-0000-C000-000000000046}") ; IID_IShellBrowser
-    {
-        ; IShellBrowser.QueryActiveShellView -> IShellView
-        if DllCall(NumGet(NumGet(ptlb+0)+15*A_PtrSize), "ptr", ptlb, "ptr*", psv:=0) = 0
+    try {
+        if ptlb := ComObjQuery(desktop
+            , "{4C96BE40-915C-11CF-99D3-00AA004AE837}"  ; SID_STopLevelBrowser
+            , "{000214E2-0000-0000-C000-000000000046}") ; IID_IShellBrowser
         {
-            ; Define IID_IDispatch.
-            VarSetCapacity(IID_IDispatch, 16)
-            NumPut(0x46000000000000C0, NumPut(0x20400, IID_IDispatch, "int64"), "int64")
-           
-            ; IShellView.GetItemObject -> IDispatch (object which implements IShellFolderViewDual)
-            DllCall(NumGet(NumGet(psv+0)+15*A_PtrSize), "ptr", psv
-                , "uint", 0, "ptr", &IID_IDispatch, "ptr*", pdisp:=0)
-           
-            ; Get Shell object.
-            shell := ComObj(9,pdisp,1).Application
-           
-            ; IShellDispatch2.ShellExecute
-            shell.ShellExecute(prms*)
-           
-            ObjRelease(psv)
+            ; IShellBrowser.QueryActiveShellView -> IShellView
+            if DllCall(NumGet(NumGet(ptlb+0)+15*A_PtrSize), "ptr", ptlb, "ptr*", psv:=0) = 0
+            {
+                ; Define IID_IDispatch.
+                VarSetCapacity(IID_IDispatch, 16)
+                NumPut(0x46000000000000C0, NumPut(0x20400, IID_IDispatch, "int64"), "int64")
+            
+                ; IShellView.GetItemObject -> IDispatch (object which implements IShellFolderViewDual)
+                DllCall(NumGet(NumGet(psv+0)+15*A_PtrSize), "ptr", psv
+                    , "uint", 0, "ptr", &IID_IDispatch, "ptr*", pdisp:=0)
+            
+                ; Get Shell object.
+                shell := ComObj(9,pdisp,1).Application
+            
+                ; IShellDispatch2.ShellExecute
+                shell.ShellExecute(prms*)
+            
+                ObjRelease(psv)
+            }
+            ObjRelease(ptlb)
         }
-        ObjRelease(ptlb)
+    } catch e {
+        scriptlog("Error in ShellRun: " . e.Message)
     }
 }
 EnforceAdmin(args:="") {

lib/bluscream/io/paths.ahk

@@ -1,10 +1,13 @@
 EnvGet, localappdata, % "LOCALAPPDATA"
+EnvGet, userprofile, % "USERPROFILE"
+
 class Paths {
     class User {
         name := A_UserName                   ; blusc
+        userprofile := new Directory(userprofile)
         appdata := new Directory(A_AppData)           ; C:\Users\blusc\AppData\Roaming
         localappdata := new Directory(localappdata)   ; C:\Users\blusc\AppData\Local
-        ; locallowappdata := new Directory(localappdata)    ; C:\Users\blusc\AppData\LocalLow
+        locallowappdata := new Directory(StrReplace(localappdata, "\Local", "\LocalLow"))   ; C:\Users\blusc\AppData\LocalLow
         temp := new Directory(A_Temp)                 ; C:\Users\blusc\AppData\Local\Temp
         desktop := new Directory(A_Desktop)           ; C:\Users\blusc\Desktop
         startmenu := new Directory(A_StartMenu)       ; C:\Users\blusc\AppData\Roaming\Microsoft\Windows\Start Menu

lib/virtual_desktop.ahk

@@ -22,6 +22,7 @@ class VirtualDesktop {
             this.streamer_path := this.dir.CombineFile(this.windows.streamer.exe)
         }
         this.connected := this.windows.server.process.exists()
+        scriptlog("Loaded VD Lib")
     }
 
     init() {

scripts/SoundSet-Script.ahk

@@ -0,0 +1,67 @@
+SetBatchLines -1
+SplashTextOn,,, Gathering Soundcard Info...
+
+; Most of the pure numbers below probably don't exist in any mixer, but they're queried for completeness.
+; The numbers correspond to the following items (in order): CUSTOM, BOOLEANMETER, SIGNEDMETER, PEAKMETER,
+; UNSIGNEDMETER, BOOLEAN, BUTTON, DECIBELS, SIGNED, UNSIGNED, PERCENT, SLIDER, FADER, SINGLESELECT, MUX,
+; MULTIPLESELECT, MIXER, MICROTIME, MILLITIME
+ControlTypes := "VOLUME,ONOFF,MUTE,MONO,LOUDNESS,STEREOENH,BASSBOOST,PAN,QSOUNDPAN,BASS,TREBLE,EQUALIZER,0x00000000, 0x10010000,0x10020000,0x10020001,0x10030000,0x20010000,0x21010000,0x30040000,0x30020000,0x30030000,0x30050000,0x40020000,0x50030000,0x70010000,0x70010001,0x71010000,0x71010001,0x60030000,0x61030000"
+
+ComponentTypes := "MASTER,HEADPHONES,DIGITAL,LINE,MICROPHONE,SYNTH,CD,TELEPHONE,PCSPEAKER,WAVE,AUX,ANALOG,N/A"
+
+; Create a ListView and prepare for the main loop:
+Gui, Add, ListView, w400 h400 vMyListView, Component Type|Control Type|Setting|Mixer
+LV_ModifyCol(4, "Integer")
+SetFormat, Float, 0.2  ; Limit number of decimal places in percentages to two.
+
+Loop  ; For each mixer number that exists in the system, query its capabilities.
+{
+    CurrMixer := A_Index
+    SoundGet, Setting,,, %CurrMixer%
+    if (ErrorLevel = "Can't Open Specified Mixer")  ; Any error other than this indicates that the mixer exists.
+        break
+
+    ; For each component type that exists in this mixer, query its instances and control types:
+    Loop, parse, ComponentTypes, `,
+    {
+        CurrComponent := A_LoopField
+        ; First check if this component type even exists in the mixer:
+        SoundGet, Setting, %CurrComponent%,, %CurrMixer%
+        if (ErrorLevel = "Mixer Doesn't Support This Component Type")
+            continue  ; Start a new iteration to move on to the next component type.
+        Loop  ; For each instance of this component type, query its control types.
+        {
+            CurrInstance := A_Index
+            ; First check if this instance of this instance even exists in the mixer:
+            SoundGet, Setting, %CurrComponent%:%CurrInstance%,, %CurrMixer%
+            ; Checking for both of the following errors allows this script to run on older versions:
+            if ErrorLevel in Mixer Doesn't Have That Many of That Component Type,Invalid Control Type or Component Type
+                break  ; No more instances of this component type.
+            ; Get the current setting of each control type that exists in this instance of this component:
+            Loop, parse, ControlTypes, `,
+            {
+                CurrControl := A_LoopField
+                SoundGet, Setting, %CurrComponent%:%CurrInstance%, %CurrControl%, %CurrMixer%
+                ; Checking for both of the following errors allows this script to run on older versions:
+                if ErrorLevel in Component Doesn't Support This Control Type,Invalid Control Type or Component Type
+                    continue
+                if ErrorLevel  ; Some other error, which is unexpected so show it in the results.
+                    Setting := ErrorLevel
+                ComponentString := CurrComponent
+                if (CurrInstance > 1)
+                    ComponentString := ComponentString ":" CurrInstance
+                LV_Add("", ComponentString, CurrControl, Setting, CurrMixer)
+            }  ; For each control type.
+        }  ; For each component instance.
+    }  ; For each component type.
+}  ; For each mixer.
+
+Loop % LV_GetCount("Col")  ; Auto-size each column to fit its contents.
+    LV_ModifyCol(A_Index, "AutoHdr")
+
+SplashTextOff
+Gui, Show
+return
+
+GuiClose:
+ExitApp

scripts/adb media keys.ahk

@@ -10,7 +10,7 @@
 adb_path := "adb"
 ; Default behavior for volume keys
 HandleVolumeKeys := false
-device_id := "7bb16eeeb8e9c86c7578552408caede5"
+device_id := "dcc49f55215af97fbf50095be07931db"
 global no_ui := false
 
 ; Check for command line switches
@@ -46,19 +46,19 @@ if (adb_devices == "List of devices attached") { ; \r\n\r\n
         SendCommand("volume_up")
     else
         Send, {Volume_Up}
-    return
+return
 ~Volume_Down:: ; Volume Down
     if (HandleVolumeKeys)
         SendCommand("volume_down")
     else
         Send, {Volume_Down}
-    return
+return
 ~Volume_Mute:: ; Mute
     if (HandleVolumeKeys)
         SendCommand("mute")
     else
         Send, {Volume_Mute}
-    return
+return
 
 return ; Ensure the script keeps running
 
@@ -140,19 +140,21 @@ MakeHASSCommand(command) {
 SendHASSCommand(action) {
     global device_id
     EnvGet, HASS_SERVER, HASS_SERVER
+    EnvGet, HASS_IP, HASS_IP
+    EnvGet, HASS_PORT, HASS_PORT
     EnvGet, HASS_TOKEN, HASS_TOKEN
     HASS_TOKEN := "Bearer " . HASS_TOKEN
 
-    url := HASS_SERVER . "/api/services/" . action
-    ; scriptlog(url)
+    url := "http://" HASS_IP . ":" . HASS_PORT . "/api/services/" . action
+    ; url := HASS_SERVER . "/api/services/" . action
+    scriptlog(url)
     payload := { "device_id": device_id }
     jsonPayload := toJson(payload, false) ; "{""target"": {""device_id"": """ device_id """}}"
     ; scriptlog(jsonPayload)
 
     ; scriptlog("Sending hass command: " . jsonPayload)
     if (startsWith(url, "https:")) {
-        ; Set up the HTTP request headers
-        http := ComObjCreate("MSXML2.XMLHTTP")
+        http := ComObjCreate("MSXML2.XMLHTTP") ; Set up the HTTP request headers
         http.Open("POST", url, true)
         http.setRequestHeader("Authorization", HASS_TOKEN)
         http.setRequestHeader("Content-Type", "application/json")

scripts/bbr.ahk

@@ -1,4 +1,4 @@
-#NoEnv
+; #NoEnv
 #SingleInstance, Force
 #Persistent
 SendMode, Input
@@ -10,26 +10,39 @@ SetWorkingDir, %A_ScriptDir%
 #Include <bluscream>
 
 global no_ui := false
+global userpaths := new Paths().User
+userpaths := new userpaths()
+
 scriptlog("bbr.ahk::start")
 
-global net_log_path := "C:\Users\blusc\scoop\apps\currports\current\cports.log" ; "D:\WSCC\Apps\NirSoft Utilities\CurrPorts (x64)\cports.log" ; "H:\WSCC\Apps\x64\cports.log"
+global net_log_path := userpaths.userprofile.CombineFile("scoop","apps","currports","current","cports.csv").Path ; .temp ; "C:\Users\blusc\scoop\apps\currports\current\cports.log" ; "D:\WSCC\Apps\NirSoft Utilities\CurrPorts (x64)\cports.log" ; "H:\WSCC\Apps\x64\cports.log"
 ; global net_ref_keys:=["prefix","Added_On","State","Protocol","Local_Address","Local_Port","Local_Port_Name","Remote_Address","Remote_Port","Remote_Port_Name","Remote_Host_Name","Remote_IPCountry","Process_Created_On","Process_ID","Process_Name","Process_Path","Process_Services","Process_Attributes","Window_Title","Product_Name","File_Description","File_Version","Company","Module_Filename","User_Name"]
 ;                                 ;"%Added_On%";"%State%";"%Protocol%";"%Local_Address%";"%Local_Port%";"%Local_Port_Name%";"%Remote_Address%";"%Remote_Port%";"%Remote_Port_Name%";"%Remote_Host_Name%";"%Remote_IP Country%";"%Process_Created_On%";"%Process_ID%";"%Process_Name%";"%Process_Path%";"%Process_Services%";"%Process_Attributes%";"%Window_Title%";"%Product_Name%";"%File_Description%";"%File_Version%";"%Company%";"%Module_Filename%";"%User_Name%";
 global net_process_name := "BattleBit.exe"
 
-global log_path := "C:\Users\blusc\AppData\LocalLow\BattleBitDevTeam\BattleBit\Player.log"
+global log_path := userpaths.locallowappdata.CombineFile("BattleBitDevTeam","BattleBit","Player.log").Path ; "C:\Users\blusc\AppData\LocalLow\BattleBitDevTeam\BattleBit\Player.log"
 global title := "BattleBit Remastered"
-global icon := "G:\SteamLibrary\steamapps\common\BattleBit Remastered\IconGroup103.ico"
-Menu, Tray, Icon, % icon
+global icon := new File("D:\SteamLibrary\steamapps\common\BattleBit Remastered\IconGroup103.ico").Path
+if (FileExist(icon)) {
+    Menu, Tray, Icon, % icon
+}
 
 ; global last_join_addr := ""
+OnExit("ExitFunc")
 
 lt := new LogTailer(log_path, Func("OnNewLine"), true)
-lt := new LogTailer(net_log_path, Func("OnNewNetLine"), true)
+lt2 := new LogTailer(net_log_path, Func("OnNewNetLine"), true)
 ShowToast(title, "AutoHotkey", icon, "topleft", 5)
 scriptlog("bbr.ahk::end")
 return
 
+ExitFunc() {
+    if (FileExist(net_log_path)) {
+        FileDelete, % net_log_path
+    }
+    ExitApp
+}
+
 Toast(message, _title := "BattleBit Remastered", time_seconds := 10) {
     global icon, title
     if (_title == "")