Rysik писал(а):
Почему то не меняется громкость приложения, если звук идет от WebBrowserПопробуй. Так должно меняться. Повторное нажатие включит звук.
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)
}