VB怎么抓取正在播放的flash

VB如何抓取正在播放的flash
IE中播放的flash，怎么通过vb获取某一点的颜色。即使最小化后也可以获得。


[解决办法]
等待高手出現。
[解决办法]

VB code

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long End Type Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1 End Sub Private Sub Timer1_Timer() AutoRedraw = True Dim p As POINTAPI dc = GetDC(0) GetCursorPos p Cls Print p.X, p.Y Print Hex(GePixel(dc, p.X, p.Y)) End Sub