本帖最后由 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
|