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

Hidden Folder

Salam dan selamat pagi.

Pagi ni aku update sikit code dari post aku sebelum ni di sini sebab ada ralat.
Update kali ni kita akan simpan file didalam System Volume Information.
Harap folder ni Windows tak delete la.
Use at your own risk.







@ECHO OFF
title Hide Folder
ECHO Created by Zaiem Othman. 8/11/2018.


if EXIST ".\System Volume Information" goto UNLOCK
if NOT EXIST ".\System Volume Information" goto MDLOCKER


:UNLOCK
echo Enter password to unlock folder
set/p "pass=> "

if %pass%== 1 goto REVEALFOLDER
if NOT %pass%== 1 goto FAIL

:FAIL
cls
ECHO Created by Zaiem Othman. 30/4/2015.
echo Invalid password
goto UNLOCK


:MDLOCKER
md "System Volume Information"
echo Private created successfully
attrib +h +s +a ".\System Volume Information"
start explorer ".\System Volume Information"
goto End


:REVEALFOLDER

attrib +h +s +a ".\System Volume Information"
start explorer ".\System Volume Information"
goto End


:End