module1.bas

来自「C# 小工具：替代微软的超级终端」· BAS 代码 · 共 48 行

Attribute VB_Name = "Module1"
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Public 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






Public Sub errLog(methodName As String, errInfo As String, errCode As String)

Dim sLogInfo As String
sLogInfo = "MethodName : [" + methodName + "] , err Info : [" + errInfo + "] , err Code : [" + errCode + "]"

writeLog sLogInfo

End Sub

Public Sub tracLog(methodName As String, info As String)

Dim sLogInfo As String
sLogInfo = "MethodName : [" + methodName + "] , Trace Info : [" + info + "]"

writeLog sLogInfo

End Sub

Private Sub writeLog(info As String)

t = GetTickCount() Mod 1000             '单位：1/1000   秒

Open "log.txt" For Append As #1
Print #1, Date & " " & Time & " " & t & " - " & info
Close #1

End Sub