想用VB播放SWF文件，并且播放后点击该SWF后可弹出一个网页，应该怎么实现？

Question

想要实现下述功能，看看哪位高手能帮我想想办法：
1.启动一个程序，一个FORM全屏显示（没有CAPTION），上面显示一些文字
2.用鼠标点击FORM，该FORM播放SWF文件，且也为全屏显示
3.播放一段时间后，再次点击鼠标，弹出某一网页（例如百度），然后关闭这个程序
现在主要问题在于播放器，如果用ShockwaveFlash来播放SWF，由于该控件没有CLICK事件，而我又必须要全屏播放SWF，所以就不能实现弹出网页了，不知哪位高手有办法解决？谢谢

Answer 1

对编写Flash不熟悉，但是以前我们用过程序跟Flash通信的，就是美工编写Flash的时候在点击的时候触发一个Command，这个触发会导致VB中Flash控件的FSCommand事件。这样就可以实现响应Click事件了。

Answer 2

可以，没问题。但必须用flash.ocx控件播放swf文件。编写一个右键菜单，全屏过后，单击鼠标右键即可。左键也行。

Answer 3

flash视频上响应鼠标事件，需要得到flash视频的句柄：Public   hWndOfPlayVideo   As   Long     "视频播放窗口的句柄 '取得Flash.ocx控件视频播放窗口的句柄 
Public   Function   EnumFlashChildProc(ByVal   lhWnd   As   Long,   ByVal   lParam   As   Long)   As   Long 
        Dim   RetVal   As   Long 
        Dim   WinClassBuf   As   String   *   255 
        Dim   WinClass   As   String 
        RetVal   =   GetClassName(lhWnd,   WinClassBuf,   255) 
        If   (InStr(WinClassBuf,   Chr(0))   >   0)   Then 
                WinClass   =   Left(WinClassBuf,   InStr(WinClassBuf,   Chr(0))   -   1) 
        End   If 
        If   WinClass   =   "MacromediaFlashPlayerActiveX"   Then 
              hWndOfPlayVideo   =   lhWnd 
              EnumFlashChildProc=   False 
        Else 
              If   Left(WinClass,   4)   =   "ATL:"   Then 
                    hWndOfPlayVideo   =   lhWnd 
                    EnumFlashChildProc=   False 
              Else 
                      EnumFlashChildProc=   True 
              End   If 
        End   If 
End   Function 

Answer 4

如何在VB中彻底屏蔽Flash动画的右键菜单？建立自己的菜单   http://www.programfan.com/club/showpost.asp?id=1314