请问各位高手们怎样能时时更新播放文件呢?如何时时更新播放文件
本帖最后由 kxing 于 2010-4-17 22:10 编辑请问各位高手们怎样能时时更新播放文件呢?
我写了下面这段代码,但是浏览到视频文件后不会播放。
怎样才能刷新播放文件呢,下面的部分代码看不懂。
求助高手帮忙,多谢!
HotKeySet("^{o}","_Dialog")
Global $sPlayer
$GUI = GUICreate("Lama's", 800, 506)
$oObj = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$oPlayer = GUICtrlCreateObj($oObj, 0, 0, 800, 506)
$oObj.Bgcolor = "#000000"
$oObj.AllowFullscreen = true
$oObj.AllowNetworking = "all"
$oObj.AllowScriptAccess = "never"
$oObj.Movie = $sPlayer
GUISetState()
Do
Until GUIGetMsg()=-3
Func _Dialog()
$sPath=FileOpenDialog("打开播放文件","","(*)")
If Not @Error Then $sPlayer=$sPath
EndFunc
解决了,打扰个为了.
$oObj.Movie = $sPlayer 还是不行,第二次浏览到其他文件就不更新了.
还是得麻烦高手们!!!! 有人能回答下吗,多谢了!!!
页:
[1]