1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
Imports System
Imports QuickFix
Module Executor
Sub Main(ByVal CmdArgs() As String)
If (CmdArgs.Length() <> 1) Then
Console.WriteLine("usage: executor_vbnet FILE.")
Return
End If
Try
Dim sessionSettings As New SessionSettings(CmdArgs(0))
Dim application As New Application
Dim storeFactory As New FileStoreFactory(sessionSettings)
Dim logFactory As New ScreenLogFactory(sessionSettings)
Dim messageFactory As New DefaultMessageFactory
Dim acceptor As New SocketAcceptor _
(application, storeFactory, sessionSettings, logFactory, messageFactory)
acceptor.start()
Console.WriteLine("press <enter> to quit")
Console.Read()
acceptor.stop()
Catch e As System.Exception
Console.WriteLine(e)
End Try
End Sub
End Module
|
