2 Function Main() As Integer
3 Dim rc As Integer = Examples.GALIL_EXAMPLE_OK
4 Dim gclib As Gclib = New Gclib()
5 Dim args() As String = Environment.GetCommandLineArgs()
7 If args.Count <> 2 Then
8 Console.WriteLine("Incorrect number of arguments provided")
9 Console.WriteLine("Usage: message_example.exe <ADDRESS>")
11 Console.Write(vbCrLf + "Press any key to close the example.")
13 Return Examples.GALIL_EXAMPLE_ERROR
16 Dim address As String = args(1) 'Retrieve address from command line
18 ' Opens a connection at the provided address
19 ' The --subscribe MG addition Is needed to subscribe to
21 gclib.GOpen(address + " --subscribe MG")
23 rc = Examples.Message(gclib)
25 Examples.PrintError(gclib, ex)
26 rc = Examples.GALIL_EXAMPLE_ERROR
31 Console.Write(vbCrLf + "Press any key to close the example.")