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
Alan Budelier is a happy Catholic working for IT in Major Fraternal Life Insurnance Company in Rock Island, IL, who, like Christ, would someday like to compile and run without any need for exception handling.