'由于家里的vs有bug,debug.print()用不了,所以手写Log
‘=====================VB.net=============================’
Imports System.IO
Public Class ConsoleHelper
'调用控制台窗口
<Runtime.InteropServices.DllImport(”kernel32.dll”)>
Public Shared Function AllocConsole() As Boolean
End Function
'释放控制台窗口
<Runtime.InteropServices.DllImport(”kernel32.dll”)>
Public Shared Function FreeConsole() As Boolean
End Function
Public Shared Sub logreset()
Logic.Reset()
End Sub
Public Shared Sub log(t As String)
Dim dt As Date = Now
Console.WriteLine("[" & dt.ToLocalTime & "]:" & t)
Logic.Print("[" & dt.ToLoca