Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Window_hwnd As Long
Function flash() As Boolean
If Window_hwnd = 0 Then
Dim temp As Long, temp1 As Long
temp = hwnd
Do
temp1 = GetParent(temp)
If temp1 = 0 Then
Window_hwnd = temp
Exit Do
Else
temp = temp1
End If
DoEvents
Loop
End If
flash = FlashWindow(Window_hwnd, 1) <> 0
End Function
以上是我用vb写的.ocx文件，我怎么在php中调用
<?
$b=new com($.$)
$a=$b->flash();
?> // 没效果
已经得到clsid
在.html 文件中能得到结果，在.php 文件中不能得到 。

请高手不吝赐教 qq：40663511