|
本帖最后由 chairmansu 于 2025-5-11 23:51 编辑
這是可以顯示全部托盤的
可以參考一下
源碼以下-------------------------------------------我是分隔線-----------------------------------------
HKCU = &H80000001
key = "Control Panel\NotifyIconSettings"
Set reg = GetObject("winmgmts://./root/default:StdRegProv")
If reg.EnumKey(HKCU, key, names) = 0 Then
If Not IsNull(names) Then
For Each name In names
reg.SetDWORDValue HKCU, key + "\" + name, "IsPromoted", 1
Next
End If
End If
-------------------------------------------我是分隔線-----------------------------------------
存檔 附檔名 vbs
即可執行
|
|