Imports System.Threading
Imports System.IO
Imports System.Net.Sockets
Imports System.Reflection
Imports System.Xml
Imports System.Globalization

Module Main

    Dim oWriteTimer As System.Threading.Timer = Nothing
    Dim iWriteFrequency As Integer = 2000

    '   OPC related
    Dim oOPCReadSocketEasyDAClient As New OpcLabs.EasyOpc.DataAccess.EasyDAClient
    'Dim oOPCWriteSocketEasyDAClient As New OpcLabs.EasyOpc.DataAccess.EasyDAClient
    'Dim aoOPCReadSocketItemValue() As OpcLabs.EasyOpc.DataAccess.OperationModel.DAItemValueArguments

    Sub Main()

        Try

            'If bForcedeviceRead Then
            'OpcLabs.EasyOpc.DataAccess.EasyDAClient.SharedParameters.Engine.AutoAdjustmentPeriod = System.Threading.Timeout.Infinite
            '    OpcLabs.EasyOpc.DataAccess.EasyDAClient.SharedParameters.Topic.SlowdownWeight = 0.0F
            'OpcLabs.EasyOpc.DataAccess.EasyDAClient.SharedParameters.Topic.SpeedupWeight = 0.0F
            '    oOPCWriteSocketEasyDAClient = New OpcLabs.EasyOpc.DataAccess.EasyDAClient
            'oOPCWriteSocketEasyDAClient.InstanceParameters.UpdateRates.ReadAutomatic = Timeout.Infinite
            '    oOPCWriteSocketEasyDAClient.InstanceParameters.UpdateRates.WriteAutomatic = Timeout.Infinite
            'End If

        Catch ex As Exception
            Console.WriteLine("Error while parsing configuration file: " & ex.Message)

        End Try

        Try

            oWriteTimer = New Threading.Timer(AddressOf HandleWriteRequestOnSocket, Nothing, 1000, iWriteFrequency)
            Console.ReadLine()

        Catch ex As Exception
            Console.WriteLine("Error in main: " & ex.Message)
        End Try
    End Sub

    Private Sub HandleWriteRequestOnSocket(ByVal oState As Object)

        Try
            Console.WriteLine("HandleCount: " & System.Diagnostics.Process.GetCurrentProcess().HandleCount)
        Catch oException As Exception
            Console.WriteLine("Unable to write to server: " & oException.Message)
            Return
        End Try
    End Sub



End Module