'由于家里的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.ToLocalTime & "]:" & t)
End Sub
Class Logic
Public Shared Sub Reset()
Using logObject As StreamWriter = New StreamWriter(System.Environment.CurrentDirectory & "\Log.txt")
logObject.Write("")