VB version:
Friend Declare Function AllocConsole Lib "kernel32.dll" () As Boolean
Friend Declare Function FreeConsole Lib "kernel32.dll" () As Boolean
Sub main()
Dim MainForm As New frmMain
If Command = "" Then
MsgBox1 = AddressOf MyMsgBox1
Application.Run(MainForm)
Else
AllocConsole()
HadMessage = False
Try
MsgBox1 = AddressOf MyLog1
MainForm.Show()
Application.DoEvents()
MainForm.InjectParameters(Command)
MainForm.llGo_LinkClicked(Nothing, Nothing)
IO.File.AppendAllText("Out.txt", MainForm.tbResults.Text)
MainForm.Close()
Catch ex As Exception
MyLog1(ex.ToString)
End Try
If HadMessage Then
Console.Beep()
Console.WriteLine("SLEEPING 20 SEC WHILE YOU READ THE MESSAGE")
System.Threading.Thread.Sleep(20000)
End If
FreeConsole()
End If
End Sub