www.pudn.com > Winmine.rar > Module1.bas

Attribute VB_Name = "Module1" 
Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long 
 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
 
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 
Public Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long 
 
Public Type POINTAPI 
x As Long 
y As Long 
End Type 
 
 
Public zdyXn As Long 
Public zdyYn As Long 
Public zdyLs As Long 
Public TJb As Long 
Public TTim As Long 
 
Type jlj 
    Time1 As Long 
    Name1 As String 
    Time2 As Long 
    Name2 As String 
    Time3 As Long 
    Name3 As String 
    Difficulty As Long 
    Hei As Long 
    Wid As Long 
    Mines As Long 
    Mark As Long 
    Color As Long 
    Xpos As Long 
    Ypos As Long 
    K_dx As Long 
    dhxg As Long 
End Type 
 
Public Jl As jlj 
 
Public Main_kL As Integer 
 
 
''''''''''''记录过程''''''''''''''''' 
Public JL_x, JL_y, JL_n 
''''''''''''记录过程'''''''''''''''''