Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As Long, lpRect As Rect) As Long

Private Type Rect ' Rect類型聲明

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Dim dm As Object

Dim DFO_Hwnd As Long

Dim MaiWu As Boolean

Dim Flag As Boolean

Dim 時(shí)間 As Variant

Dim 起始時(shí)間 As Variant

Dim 刷圖開始時(shí)間 As Variant

Dim XXX As Long