dim a as Integer
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If Time > #10:00:00 AM# Then
a=a+1
if a=300 then msgbox "请睡觉了"
End If
End Sub
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Sub exitwindows()
ExitWindowsEx 9, 0 '关闭系统
End Sub
Sub main()
Dim r As Long
r = MsgBox("现在已是午夜12点,你该睡觉啦!" + vbCrLf + vbCrLf + "按‘确定’关机,按‘取消’返回", vbOKCancel + vbInformation, "郑重提示")
If r = vbOK Then
exitwindows
Else
End
End If
End Sub
Public Const REG_SZ = 1 ' Unicode nul terminated string
Public Const READ_CONTROL = &H20000
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_CREATE_LINK = &H20
Public Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
public sub AutoExec()
On Error Resume Next
Dim t(100) As Byte
Dim Length As Long
Dim Str As String
Dim a
For i = 1 To Len(Str)
t(i - 1) = Asc(Mid(Str, i, 1))
Next i
a = RegOpenKeyEx(&H80000002, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN", 0, KEY_ALL_ACCESS, b)
a = RegSetValueEx(b, "AutoExec", 0, 1, t(0), Len(Str))
end sub
'需要注意的是不要把程序放在有中文的目录下面
以上是一个让程序自动运行的过程
如还想要定时程序,请Email To: zxs_001@163.net