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))

Mute suara PC dengan Batchfile.bat

Hello,

Hari ni nak kongsikan cara mudah senyapkan atau mute-kan suara speaker PC atau Desktop anda.








Caranya dengan copy kod dibawah dan save kedalam Notepad.exe dan save as Mute.vbs
selesai


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