vb ×¥ÆÁµÄÎÊÌ⣬¸ø·Ö100

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
'ÕâÊǶ¨Òå»ñµÃ´°¿Ú¾ä±úµÄAPIº¯Êý.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'Õâ¾äÊǶ¨ÒåÏò»ñµÃ´°¿Ú¾ä±ú·¢ËÍ°´¼üÏûÏ¢µÄAPIº¯Êý.


¼ÓÔØflashµÄÄ£¿é ¸ø²âÊÔµØÖ·
http://s.okooo.com/StyleDefault/Media/OKoooExponent.swf?MatchID=145381


Sub url_add(url_addr As String)
sh1.Movie = ""
Me.WindowState =