mousexy.bas

简单时间程序,可以定时执行任务,显示当前时间到前台窗口

Attribute VB_Name = "MouseXY"
Type POINTAPI
 X As Long
 Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
Public Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nATOM As Integer) As Integer
Public Declare Function GlobalFindAtom Lib "kernel32" Alias "GlobalFindAtomA" (ByVal lpString As String) As Integer
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public nATOM As Integer
Public z As POINTAPI
Public Const SW_SHOW = 5
Public Const SW_RESTORE = 9
Public MyHwnd As String
Public zhi As String
Public myProgram As String

     
Sub FindAdd(Mypath As String) '判断程序是否已在运行
    If GlobalFindAtom(myProgram) = 0 Then
     nATOM = GlobalAddAtom(myProgram) ' 没运行,设置标记
     写入创建 "MyHwnd", "hwnd", MyHwnd, Mypath
    Else
     MsgBox "你正试图运行多个本程序的副本！", 0, "警告" '在运行,激活原程序
     读取 "myhwnd", "hwnd", zhi, Mypath
     If zhi = "No" Then
     FindDel
     Else
     winHwnd = CLng(zhi)
     ShowWindow winHwnd, SW_RESTORE
     SetForegroundWindow winHwnd
     End If
      End
    End If
End Sub
Sub FindDel() '清除标记
     If GlobalFindAtom(myProgram) = 0 Then
     Else
     GlobalDeleteAtom nATOM
     End If
End Sub

Sub YunXing(WJname As String)
Call Shell("rundll32.exe url.dll,FileProtocolHandler " & WJname, 1)
End Sub