Add(MainForm,2953706,35,49)
{
 Caption="Change audio level VBJScript."
}
Add(VBJScript,8714299,224,63)
{
 WorkPoints=#5:doMAX|5:doMIN|4:doUP|6:doDOWN|6:doMUTE|
 Script=#22:Sub doWork(Data,Index)|44:  set oShell = CreateObject("WScript.Shell")|19:  Select Case Index|16:    Case "doMAX"|69:        oShell.SendKeys "{" & chr(175) & " 50}" ' volume maximum 100%|16:    Case "doMIN"|67:        oShell.SendKeys "{" & chr(174) & " 50}" 'volume minimum 0% |15:    Case "doUP"|60:        oShell.SendKeys "{" & chr(175) & " 10}" 'volume +20%|17:    Case "doDOWN"|60:        oShell.SendKeys "{" & chr(174) & " 10}" 'volume +20%|17:    Case "doMUTE"|75:        oShell.SendKeys chr(173) 'allows to mute / reset the sound (switch)|15:  End Select   |7:End Sub|
 UseName=0
}
Add(Menu,12379232,112,56)
{
 Menu=#3:MAX|3:MIN|2:UP|4:DOWN|4:MUTE|
 Point(onSelectNum)
 link(onSelectNum,7379745:doEvent,[])
}
Add(IndexToChanel,7379745,168,63)
{
 Count=5
 link(onEvent1,8714299:doMAX,[])
 link(onEvent2,8714299:doMIN,[])
 link(onEvent3,8714299:doUP,[])
 link(onEvent4,8714299:doDOWN,[])
 link(onEvent5,8714299:doMUTE,[])
}
Add(WebBrowser,9925252,35,98)
{
 Top=60
 Width=641
 Height=287
 Align=5
 WinStyle=1
 ModeSp=1
 URL="https://www.youtube.com/watch?v=53V9Vo0f5wk"
 Silent=0
 Point(Handle)
}