请教一个问题

Question

自己hook鼠标单击事件，然后判断鼠标位置是否在swflash上，是就开新窗口。

Answer 1

或者在flash上放个单击事件 然后判断跳出一个新窗口来播放另一个动画Option ExplicitPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongDim i As Boolean''在FLASH中控制VB程序''搜索按钮的as为:
''发送search命令，这个命令名可以自定义.
'on(release){
'Fscommand("Open","打开");
'}
''在退出按钮中写入:
''发送exit命令
'on(release){
'fscommand("Exit","退出");}
Private Sub Form_load()
    '加载程序同一目录下的Search.swf的动画
    ShockwaveFlash1.Movie = App.Path & "\Search.swf"
    'ShockwaveFlash1.Stop
    With Text1
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End SubPrivate Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
    If command = "Open" Then
        Call ShellExecute(Form1.hwnd, "open", "http://nisearch.163.com/Search?q=" & Text1.Text, vbNullString, vbNullString, &H0)
    End If
    If command = "Exit" Then
        End
    End If
End SubPrivate Sub Command1_Click()
    If i = False Then
        Command1.Caption = "&Play"
        ShockwaveFlash1.Stop
        i = True
    Else
        Command1.Caption = "&Stop"
        ShockwaveFlash1.Play
        i = False
    End If
End SubPrivate Sub Command2_Click()
    End
End Sub