添加壹個時鐘控件,設置時鐘周期為1毫秒
代碼如下
=========================VB CODE===============================
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Function CurrentTime() As String '顯示時間,精確到毫秒
Dim SYSTEMTIME As SYSTEMTIME
GetLocalTime SYSTEMTIME
CurrentTime = Right(SYSTEMTIME.wYear, 2) & ":" & SYSTEMTIME.wMonth & ":" & SYSTEMTIME.wDay & " " & SYSTEMTIME.wHour & ":" & SYSTEMTIME.wMinute & ":" & SYSTEMTIME.wSecond & ":" & SYSTEMTIME.wMilliseconds
End Function
Private Sub Timer1_Timer()
If CurrentTime = "09:09:09:999" Then
SendKeys "{enter}", True
End If
End Sub
==========================END VB CODE=========================
回答完畢,請參考,謝謝!