Sign in to follow this  
Followers 0
IanN1990

[Solved] Windows 7 True Mute

4 posts in this topic

#1 ·  Posted (edited)

I have noticed, when i do a system-wide mute on my computer i can still hear the programs even if they r fan so i decided to fix this :)

When the application is muted, u hear no sound. So i thought if i hotkey the system mute and then make a loop to mute every app ;)

Opt('WinTitleMatchMode', 2 )
HotKeySet("{Volume_Mute}", "SystemMute")

while 1
sleep(1000)
WEnd

Func SystemMute()
For $i = 1 to 25 step 1
ControlClick("Volume Mixer", "", "[CLASS:ToolbarWindow32; INSTANCE:$i]", "Left", 1)
Next
EndFunc

How can i make it so the loop increases the Instances by +1 every go ?

Edited by IanN1990

Share this post


Link to post
Share on other sites



IanN1990,

Set $i as a variable and not part of the literal string: :)

ControlClick("Volume Mixer", "", "[CLASS:ToolbarWindow32; INSTANCE:" & $i & "]", "Left", 1)

And you do not need Step 1 - that is the default. ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

ah i see, thanks :)

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Here is the finished code for everyone :)

Opt('WinTitleMatchMode', 2 )
HotKeySet("{Volume_Mute}", "SystemMute")

while 1
sleep(1000)
WEnd

Func SystemMute()
    For $i = 1 to 25
if ControlGetText("Volume Mixer", "","[CLASS:ToolbarWindow32; INSTANCE:" & $i & "]") = "Mute Main" Then
    ElseIf ControlGetText("Volume Mixer", "","[CLASS:ToolbarWindow32; INSTANCE:" & $i & "]") > "Mute for" then
    ControlClick("Volume Mixer", "", "[CLASS:ToolbarWindow32; INSTANCE:" & $i & "]", "Left", 1)
EndIf
next
EndFunc

It only works though if your keyboard/mouse's "mute button" sends the Volume_Mute for the hotkey to detect. I am working on other wise for it to detect for keybaords that dont send this command and i will update this post if i find a way ;)

Edited by IanN1990

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0