Skip to content

Commit 88b956b

Browse files
WildByDesignWildByDesign
authored
Update source files to 6.0.3
1 parent a9ee452 commit 88b956b

File tree

4 files changed

+37
-109
lines changed

4 files changed

+37
-109
lines changed

‎AppControlHelper.au3‎

Lines changed: 5 additions & 82 deletions
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,6 @@
88
#include <StringConstants.au3>
99
#EndRegion
1010

11-
#include "includes\ExtMsgBox.au3"
1211
#include "includes\XML.au3"
1312

1413
#NoTrayIcon
@@ -18,14 +17,16 @@
1817
#AutoIt3Wrapper_UseX64=y
1918
#AutoIt3Wrapper_Res_Description=App Control Tray Helper
2019
#AutoIt3Wrapper_res_requestedExecutionLevel=requireAdministrator
21-
#AutoIt3Wrapper_Res_Fileversion=6.0.0.0
22-
#AutoIt3Wrapper_Res_ProductVersion=6.0.0
20+
#AutoIt3Wrapper_Res_Fileversion=6.0.3
21+
#AutoIt3Wrapper_Res_ProductVersion=6.0.3
2322
#AutoIt3Wrapper_Res_ProductName=AppControlTrayHelper
2423
#AutoIt3Wrapper_Outfile_x64=AppControlHelper.exe
2524
#AutoIt3Wrapper_Res_LegalCopyright=@ 2025 WildByDesign
2625
#AutoIt3Wrapper_Res_Language=1033
2726
#AutoIt3Wrapper_Res_HiDpi=P
2827
#AutoIt3Wrapper_Res_Icon_Add=AppControl.ico
28+
#AutoIt3Wrapper_UseUpx=N
29+
#AutoIt3Wrapper_Compression=0
2930
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
3031
$sTitle = "AppControlTrayHelper"
3132

@@ -38,16 +39,6 @@ EndIf
3839

3940
Global $isDarkMode = is_app_dark_theme()
4041

41-
If $isDarkMode = True Then
42-
_ExtMsgBoxSet(Default)
43-
;_ExtMsgBoxSet(1, 5, -1, -1, -1, "Consolas", 800, 800)
44-
_ExtMsgBoxSet(1, 4, 0x202020, 0xFFFFFF, 10, "Cascadia Mono", 1200)
45-
Else
46-
_ExtMsgBoxSet(Default)
47-
;_ExtMsgBoxSet(1, 5, -1, -1, -1, "Consolas", 800, 800)
48-
_ExtMsgBoxSet(1, 4, -1, -1, 10, "Cascadia Mono", 1200)
49-
EndIf
50-
5142
#cs ----------------------------------------------------------------------------
5243
Function : is_app_dark_theme()
5344
Description : returns if the user has enabled the dark theme for applications in the Windows settings (0 on / 1 off)
@@ -61,75 +52,7 @@ If $CmdLine[0] = 0 Then Exit MsgBox(16, $sTitle, "No parameters passed!")
6152
If $CmdLine[1] = "/CiTool" Then
6253
Run('C:\Windows\System32\CiTool.exe --list-policies', "")
6354
EndIf
64-
If $CmdLine[1] = "/status" Then
65-
Local $iFileExists = FileExists(@ProgramFilesDir & '\PowerShell\7\pwsh.exe')
66-
If $iFileExists Then
67-
Local $o_CmdString1 = " Get-CimInstance -ClassName Win32_DeviceGuard -Namespace root\Microsoft\Windows\DeviceGuard | FL *codeintegrity*; Write-Output ''; Write-Output 'Active Base Policies:'; (CiTool -lp -json | ConvertFrom-Json).Policies | Where-Object {$_.IsEnforced -eq 'True' -and $_.PolicyID -eq $_.BasePolicyID} | Select-Object -Property FriendlyName,PolicyID,VersionString | Sort-Object -Property FriendlyName | FT; Write-Output ''; Write-Output 'Active Supplemental Policies:'; (CiTool -lp -json | ConvertFrom-Json).Policies | Where-Object {$_.IsEnforced -eq 'True' -and $_.PolicyID -ne $_.BasePolicyID} | Select-Object -Property FriendlyName,PolicyID,VersionString | Sort-Object -Property FriendlyName | FT; Write-Output ''; Write-Output 'Inactive Policies:'; (CiTool -lp -json | ConvertFrom-Json).Policies | Where-Object {$_.IsEnforced -ne 'True'} | Select-Object -Property FriendlyName,PolicyID,VersionString | Sort-Object -Property FriendlyName | FT"
68-
Local $o_powershell = @ProgramFilesDir & '\PowerShell\7\pwsh.exe -NoProfile -Command'
69-
Local $o_Pid = Run($o_powershell & $o_CmdString1 , "", @SW_Hide, $STDOUT_CHILD)
70-
ProcessWaitClose($o_Pid)
71-
$out = StdoutRead($o_Pid)
72-
$test = stringsplit($out, @CR, 0)
73-
;ReDim $test[$test[0] - 1]
74-
Local $topstatus = _ArrayToString($test, "", 2, 3)
75-
Local $topstatus1 = StringReplace($topstatus, "", "")
76-
Local $topstatus2 = StringReplace($topstatus1, "", "")
77-
Local $topstatus3 = StringReplace($topstatus2, "UsermodeCodeIntegrityPolicyEnforcementStatus : 0", "App Control user mode policy : Not Configured")
78-
Local $topstatus4 = StringReplace($topstatus3, "UsermodeCodeIntegrityPolicyEnforcementStatus : 1", "App Control user mode policy : Audit Mode")
79-
Local $topstatus5 = StringReplace($topstatus4, "UsermodeCodeIntegrityPolicyEnforcementStatus : 2", "App Control user mode policy : Enforced Mode")
80-
Local $topstatus6 = StringReplace($topstatus5, "CodeIntegrityPolicyEnforcementStatus : 0", "App Control policy : Not Configured")
81-
Local $topstatus7 = StringReplace($topstatus6, "CodeIntegrityPolicyEnforcementStatus : 1", "App Control policy : Audit Mode")
82-
Local $topstatus8 = StringReplace($topstatus7, "CodeIntegrityPolicyEnforcementStatus : 2", "App Control policy : Enforced Mode")
83-
Local $topstatus9 = StringStripWS($topstatus8, $STR_STRIPLEADING + $STR_STRIPTRAILING)
84-
85-
Local $rangetest = "0-5"
86-
_ArrayDelete($test, $rangetest)
87-
Local $test2 = _ArrayToString($test, "")
88-
Local $test3 = StringStripWS($test2, $STR_STRIPLEADING + $STR_STRIPTRAILING)
89-
Local $test4 = StringReplace($test3, "", "")
90-
Local $test5 = StringReplace($test4, "", "")
91-
Local $test6 = StringReplace($test5, "FriendlyName", "Policy Name")
92-
Local $test7 = StringReplace($test6, " VersionString", "Version")
93-
Local $test8 = StringReplace($test7, "PolicyID", " Policy ID")
94-
Local $test9 = StringReplace($test8, " -------- ", " ---------")
95-
Local $test10 = StringReplace($test9, "------------ ", "-----------")
96-
Local $test11 = StringReplace($test10, "-------------", "-------")
97-
_ExtMsgBox (0 & ";" & @ScriptDir & "\AppControlHelper.exe", 0, "App Control Policy List", $test11 & @CRLF)
98-
Else
99-
Local $o_CmdString1 = " Get-CimInstance -ClassName Win32_DeviceGuard -Namespace root\Microsoft\Windows\DeviceGuard | FL *codeintegrity*; Write-Output 'Active Base Policies:'; (CiTool -lp -json | ConvertFrom-Json).Policies | Where-Object {$_.IsEnforced -eq 'True' -and $_.PolicyID -eq $_.BasePolicyID} | Select-Object -Property FriendlyName,PolicyID,VersionString | Sort-Object -Property FriendlyName | FT; Write-Output 'Active Supplemental Policies:'; (CiTool -lp -json | ConvertFrom-Json).Policies | Where-Object {$_.IsEnforced -eq 'True' -and $_.PolicyID -ne $_.BasePolicyID} | Select-Object -Property FriendlyName,PolicyID,VersionString | Sort-Object -Property FriendlyName | FT; Write-Output 'Inactive Policies:'; (CiTool -lp -json | ConvertFrom-Json).Policies | Where-Object {$_.IsEnforced -ne 'True'} | Select-Object -Property FriendlyName,PolicyID,VersionString | Sort-Object -Property FriendlyName | FT"
100-
Local $o_powershell = "C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -NoProfile -Command"
101-
Local $o_Pid = Run($o_powershell & $o_CmdString1 , "", @SW_Hide, $STDOUT_CHILD)
102-
ProcessWaitClose($o_Pid)
103-
$out = StdoutRead($o_Pid)
104-
$test = stringsplit($out , @CR , 0)
105-
106-
Local $topstatus = _ArrayToString($test, "", 3, 4)
107-
Local $topstatus1 = StringReplace($topstatus, "", "")
108-
Local $topstatus2 = StringReplace($topstatus1, "", "")
109-
Local $topstatus3 = StringReplace($topstatus2, "UsermodeCodeIntegrityPolicyEnforcementStatus : 0", "App Control user mode policy : Not Configured")
110-
Local $topstatus4 = StringReplace($topstatus3, "UsermodeCodeIntegrityPolicyEnforcementStatus : 1", "App Control user mode policy : Audit Mode")
111-
Local $topstatus5 = StringReplace($topstatus4, "UsermodeCodeIntegrityPolicyEnforcementStatus : 2", "App Control user mode policy : Enforced Mode")
112-
Local $topstatus6 = StringReplace($topstatus5, "CodeIntegrityPolicyEnforcementStatus : 0", "App Control policy : Not Configured")
113-
Local $topstatus7 = StringReplace($topstatus6, "CodeIntegrityPolicyEnforcementStatus : 1", "App Control policy : Audit Mode")
114-
Local $topstatus8 = StringReplace($topstatus7, "CodeIntegrityPolicyEnforcementStatus : 2", "App Control policy : Enforced Mode")
115-
Local $topstatus9 = StringStripWS($topstatus8, $STR_STRIPLEADING + $STR_STRIPTRAILING)
116-
117-
Local $rangetest = "0-5"
118-
_ArrayDelete($test, $rangetest)
119-
Local $test2 = _ArrayToString($test, "")
120-
Local $test3 = StringStripWS($test2, $STR_STRIPLEADING + $STR_STRIPTRAILING)
121-
Local $test4 = StringReplace($test3, "", "")
122-
Local $test5 = StringReplace($test4, "", "")
123-
Local $test6 = StringReplace($test5, "FriendlyName", "Policy Name")
124-
Local $test7 = StringReplace($test6, " VersionString", "Version")
125-
Local $test8 = StringReplace($test7, "PolicyID", " Policy ID")
126-
Local $test9 = StringReplace($test8, " -------- ", " ---------")
127-
Local $test10 = StringReplace($test9, "------------ ", "-----------")
128-
Local $test11 = StringReplace($test10, "-------------", "-------")
129-
130-
_ExtMsgBox (0 & ";" & @ScriptDir & "\AppControlHelper.exe", 0, "App Control Policy List", $test11 & @CRLF)
131-
EndIf
132-
EndIf
55+
13356
If $CmdLine[1] = "/LogsCI" Then
13457
$oXML=ObjCreate("Microsoft.XMLDOM")
13558
$stest = FileRead(@AppDataDir & "\Microsoft\MMC\eventvwr")

‎AppControlPolicy.au3‎

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -6,16 +6,18 @@
66
#AutoIt3Wrapper_Outfile_x64=AppControlPolicy.exe
77
#AutoIt3Wrapper_UseX64=y
88
#AutoIt3Wrapper_Res_Description=App Control Policy Manager
9-
#AutoIt3Wrapper_Res_Fileversion=6.0.2
9+
#AutoIt3Wrapper_Res_Fileversion=6.0.3
10+
#AutoIt3Wrapper_Res_ProductVersion=6.0.3
1011
#AutoIt3Wrapper_Res_ProductName=AppControlPolicyManager
11-
#AutoIt3Wrapper_Res_ProductVersion=6.0.2
1212
#AutoIt3Wrapper_Res_LegalCopyright=@ 2025 WildByDesign
1313
#AutoIt3Wrapper_Res_Language=1033
1414
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
1515
#AutoIt3Wrapper_Res_HiDpi=P
1616
#AutoIt3Wrapper_Res_Icon_Add=AppControl-App.ico
1717
#AutoIt3Wrapper_Res_Icon_Add=unchecked.ico
1818
#AutoIt3Wrapper_Res_Icon_Add=checked.ico
19+
#AutoIt3Wrapper_UseUpx=N
20+
#AutoIt3Wrapper_Compression=0
1921
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
2022

2123
; *** Start added Standard Include files by AutoIt3Wrapper ***

‎AppControlTask.au3‎

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -31,14 +31,16 @@
3131
#AutoIt3Wrapper_Icon=AppControl.ico
3232
#AutoIt3Wrapper_UseX64=y
3333
#AutoIt3Wrapper_Res_Description=App Control Task Manager
34-
#AutoIt3Wrapper_Res_Fileversion=6.0.0.0
35-
#AutoIt3Wrapper_Res_ProductVersion=6.0.0
34+
#AutoIt3Wrapper_Res_Fileversion=6.0.3
35+
#AutoIt3Wrapper_Res_ProductVersion=6.0.3
3636
#AutoIt3Wrapper_Res_ProductName=AppControlTaskManager
3737
#AutoIt3Wrapper_Outfile_x64=AppControlTask.exe
3838
#AutoIt3Wrapper_Res_LegalCopyright=@ 2025 WildByDesign
3939
#AutoIt3Wrapper_Res_Language=1033
4040
#AutoIt3Wrapper_Res_HiDpi=P
4141
#AutoIt3Wrapper_Res_Icon_Add=AppControl.ico
42+
#AutoIt3Wrapper_UseUpx=N
43+
#AutoIt3Wrapper_Compression=0
4244
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
4345
$sTitle = "AppControlTaskHelper"
4446

‎AppControlTray.au3‎

Lines changed: 24 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -4,8 +4,8 @@
44
#AutoIt3Wrapper_Icon=AppControl.ico
55
#AutoIt3Wrapper_UseX64=y
66
#AutoIt3Wrapper_Res_Description=App Control Tray Tool
7-
#AutoIt3Wrapper_Res_Fileversion=6.0.0.0
8-
#AutoIt3Wrapper_Res_ProductVersion=6.0.0
7+
#AutoIt3Wrapper_Res_Fileversion=6.0.3
8+
#AutoIt3Wrapper_Res_ProductVersion=6.0.3
99
#AutoIt3Wrapper_Res_ProductName=AppControlTrayTool
1010
#AutoIt3Wrapper_Outfile_x64=AppControlTray.exe
1111
#AutoIt3Wrapper_Res_LegalCopyright=@ 2025 WildByDesign
@@ -15,6 +15,8 @@
1515
#AutoIt3Wrapper_Res_Icon_Add=AppControl-Audit.ico
1616
#AutoIt3Wrapper_Res_Icon_Add=AppControl-Disabled.ico
1717
#AutoIt3Wrapper_Res_Icon_Add=AppControl-Blocked.ico
18+
#AutoIt3Wrapper_UseUpx=N
19+
#AutoIt3Wrapper_Compression=0
1820
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
1921
#Region
2022

@@ -28,11 +30,8 @@
2830
#include <StringConstants.au3>
2931
#EndRegion
3032

31-
#include "includes\ExtMsgBox.au3"
32-
33-
#include "includes\GuiCtrls_HiDpi.au3"
3433
#include "includes\GUIDarkMode_v0.02mod.au3"
35-
34+
#include "includes\ExtMsgBox.au3"
3635
#include "includes\TaskScheduler.au3"
3736

3837
If @Compiled = 0 Then
@@ -46,7 +45,7 @@ Opt("TrayMenuMode", 3)
4645
Opt("TrayAutoPause", 0)
4746
Opt("TrayOnEventMode", 1)
4847

49-
Global $programVersion = "6.0"
48+
Global $programVersion = "6.0.3"
5049
;Global $softName = "App Control Tray Tool"
5150
Global $trayIcon = "AppControl.ico"
5251
Global $idRegTitleKey = "App Control Tray Tool"
@@ -92,23 +91,27 @@ Else
9291
EndIf
9392

9493

94+
_ExtMsgBoxSet(Default)
95+
_ExtMsgBoxSet(1, 4, -1, -1, 10, $MainFont, 800)
96+
97+
9598
initial_set_theme()
9699

97100
Func initial_set_theme()
98101
;$isDarkMode = regread('HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize', 'AppsUseLightTheme') == 0 ? True : False
99102
Local $isDarkMode = _WinAPI_ShouldAppsUseDarkMode()
100103
If $isDarkMode = True Then
101-
_ExtMsgBoxSet(Default)
102-
_ExtMsgBoxSet(1, 4, 0x202020, 0xFFFFFF, 10, $MainFont, 800)
104+
;_ExtMsgBoxSet(Default)
105+
;_ExtMsgBoxSet(1, 4, 0x202020, 0xFFFFFF, 10, $MainFont, 800)
103106
$LastTheme = "Dark"
104-
Local $hGUI = _HiDpi_GUICreate("Tray Tool", 100, 100)
107+
Local $hGUI = GUICreate("Tray Tool", 100, 100)
105108
GuiDarkmodeApply($hGUI)
106109
Else
107-
_ExtMsgBoxSet(Default)
108-
_ExtMsgBoxSet(1, 4, -1, -1, 10, $MainFont, 800)
110+
;_ExtMsgBoxSet(Default)
111+
;_ExtMsgBoxSet(1, 4, -1, -1, 10, $MainFont, 800)
109112
$LastTheme = "Light"
110-
Local $hGUI = _HiDpi_GUICreate("Tray Tool", 100, 100)
111-
Local $bEnableDarkTheme = False
113+
Local $hGUI = GUICreate("Tray Tool", 100, 100)
114+
;Local $bEnableDarkTheme = False
112115
GuiLightmodeApply($hGUI)
113116
EndIf
114117
Endfunc
@@ -141,19 +144,17 @@ Func query_theme_changes()
141144
$isDarkMode = regread('HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize', 'AppsUseLightTheme') == 0 ? True : False
142145
;Local $isDarkMode = _WinAPI_ShouldAppsUseDarkMode() ; can't get this method working for subsequent theme changes
143146
If $isDarkMode = True And $LastTheme = "Light" Then
144-
_ExtMsgBoxSet(Default)
145-
;_ExtMsgBoxSet(1, 4, -1, -1, -1, "Consolas", 800, 800)
146-
_ExtMsgBoxSet(1, 4, 0x202020, 0xFFFFFF, 10, "Cascadia Mono", 800)
147+
;_ExtMsgBoxSet(Default)
148+
;_ExtMsgBoxSet(1, 4, 0x202020, 0xFFFFFF, 10, "Cascadia Mono", 800)
147149
$LastTheme = "Dark"
148-
Local $hGUI = _HiDpi_GUICreate("Tray Tool", 100, 100)
150+
Local $hGUI = GUICreate("Tray Tool", 100, 100)
149151
GuiDarkmodeApply($hGUI)
150152
ElseIf $isDarkMode <> True And $LastTheme = "Dark" Then
151-
_ExtMsgBoxSet(Default)
152-
;_ExtMsgBoxSet(1, 4, -1, -1, -1, "Consolas", 800, 800)
153-
_ExtMsgBoxSet(1, 4, -1, -1, 10, "Cascadia Mono", 800)
153+
;_ExtMsgBoxSet(Default)
154+
;_ExtMsgBoxSet(1, 4, -1, -1, 10, "Cascadia Mono", 800)
154155
$LastTheme = "Light"
155-
Local $hGUI = _HiDpi_GUICreate("Tray Tool", 100, 100)
156-
Local $bEnableDarkTheme = False
156+
Local $hGUI = GUICreate("Tray Tool", 100, 100)
157+
;Local $bEnableDarkTheme = False
157158
GuiLightmodeApply($hGUI)
158159
EndIf
159160
Endfunc

0 commit comments

Comments
 (0)