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)