Mute speaker v2

Salam,

Dulu aku ada cipta code untuk Mute PC volume. Link.
Tapi ia hanya toggle dari Mute ke Enable sahaja.

Jadi dengan sedikit kajian, aku dapati


Chr(173) - Toggle audio volume
Chr(174) - Decrease audio volume
Chr(175) -  Increase audio volume

Jadi dengan mengulangi Chr(174), aku dapat Mute kan speaker PC.


Copy code kat bawah dan paste kedalam Notepad, Save as Mute.vbs


Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))
WshShell.SendKeys (chr(174))