【VB.net自学笔记(二)】Log文件

'由于家里的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