I'm using this code:
Code: Select all
htm =
(
<html><head></head><body>
<object id="SopPlayer" name="SopPlayer"
classid="clsid:8FEFF364-6A5F-4966-A917-A3AC28411659"
width="450" height="350">
<param name="AutoStart" value="1">
<param name="SopAddress" value="sop://broker.sopcast.com:3912/149252">
<param name="ChannelName" value="Pro TV">
</object></body></html>
)
htmFile := A_ScriptDir . "\index.htm"
if !FileExist(htmFile)
FileAppend, % htm, % A_ScriptDir "\index.htm"
Gui, Sop:New, +HwndhSop +Resize, SopCast
Gui, Sop:Add, ActiveX, x0 y0 w500 h400 vSP, Shell.Explorer
SP.Navigate("file:///" A_ScriptDir "\index.htm")
Gui, Sop:Show, w500 h400
WinWait, SopCast
FileDelete, % htmFile
return
Code: Select all
f9::
winGet, conList, controlList, SopCast
stringSplit, con, conList, `n`r
loop % con0 {
controlGet, conStat, Enabled,, % con%a_index%, conWin
tooltip % d.= con%a_index% " " ( conStat ? "En" : "Dis" ) "abled`n", 100, 0
}
return
esc::exitApp
Can you help me?