shengming.bas

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

Attribute VB_Name = "ShengMing"
Option Explicit
Public Declare Function GetTickCount Lib "kernel32" () As Long '获取系统运行时间
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal _
    wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Dim mybox As String '弹出窗口返回的被点击按钮
Public kg As Boolean '是否隐藏
Public kg1 As Boolean '是否进入标题栏
Public rws As Integer '今天要执行的任务数
Public xx As String '提示消息
Public yy As String '执行的操作
Public yjkg As Boolean '右键开关,控制右键菜单的显示否
Public abc As Integer '记录任务数
Public MyName As String '文件位置