Introduction - If you have any usage issues, please Google them yourself
Option Explicit
Dim vChar() As String
Dim outbte() As Byte
Dim snum As Integer
Dim rnum As Integer
Dim p As Integer
Dim s As String
Dim out(100) As Byte
Dim varP As Variant
API函数,用于取得Windows系统自启动以来所经过的时间(单位为毫秒)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)