Add(MainForm,2953706,70,140)
{
 Width=650
 Height=474
 link(onCreate,14481332:doEvent1,[(142,160)(142,118)])
}
Add(Volume,5593165,238,112)
{
}
Add(DoData,3257486,182,112)
{
 Data=Integer(0)
 link(onEventData,5593165:doVolume,[])
}
Add(InlineCode,3935702,238,154)
{
 @Color=16777130
 WorkPoints=#5:doGet|
 EventPoints=#5:onBit|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,kol,Share,Debug,mmsystem;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|23:     onName: THI_Event;|21:     onPC: THI_Event;|22:     onBit: THI_Event;|50:     procedure doGet(var _Data:TData; Index:word);|5: end;|0:|0:|14:implementation|0:|48:function SetVolume(const volL, volR: Word):bool;|4: var|17:   hWO: HWAVEOUT;|24:   waveF: TWAVEFORMATEX;|14:   vol: DWORD;|6: begin|24:   // init TWAVEFORMATEX|36:  FillChar(waveF, SizeOf(waveF), 0);|47:   // open WaveMapper = std output of playsound|50:  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);|29:   vol := volL + volR shl 16;|16:   // set volume|29:  waveOutSetVolume(hWO, vol);|21:   waveOutClose(hWO);|5: end;|0:|28:procedure THiAsmClass.doGet;|5:begin|15:SetVolume(0,0);|20:  _hi_onEvent(onBit)|0:|4:end;|4:end.|
}
Add(WebBrowser,9925252,476,91)
{
 Left=10
 Top=10
 Width=610
 Height=415
 URL="https://www.youtube.com/watch?v=RhMYBfF7-hE"
 Silent=0
}
Add(Hub,14481332,147,112)
{
 link(onEvent1,3257486:doData,[])
 link(onEvent2,3935702:doGet,[(199,125)(199,160)])
}

Add(MainForm,2953706,21,105)
{
 Width=657
 Height=386
}
Add(Button,2868974,91,105)
{
 Width=641
 Height=30
 Align=2
 Caption="Mute"
 Data=String(CreateObject("WScript.Shell").SendKeys(chr(173)))
 link(onClick,6780534:##SetScript,[])
}
Add(VBJScript,6780534,154,105)
{
 WorkPoints=#11:##SetScript|
 Script=#0:|0:|
 UseName=0
}
Add(WebBrowser,9925252,231,112)
{
 Top=30
 Width=641
 Height=317
 Align=5
 WinStyle=1
 ModeSp=1
 URL="https://www.youtube.com/watch?v=RhMYBfF7-hE"
 Silent=0
 Point(Handle)
}

Add(MainForm,2953706,133,105)
{
}
Add(Button,16160239,217,112)
{
 Left=200
 Top=45
 Align=2
 Caption="Mute"
 Point(doCaption)
 link(onClick,13023946:doConsoleExec,[])
}
Add(WebBrowser,9925252,364,105)
{
 Left=10
 Top=10
 Width=610
 Height=415
 Align=5
 WinStyle=1
 ModeSp=1
 URL="https://www.youtube.com/watch?v=RhMYBfF7-hE"
 Silent=0
 Point(Handle)
}
Add(WinExec,13023946,294,98)
{
 FileName="powershell"
 Param="-nologo -noprofile -command "& {$wshShell = new-object -com wscript.shell;$wshShell.SendKeys([char]173)}""
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
}

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