VB6 to .Net

[Jay1b]

Hi

 

I'm trying to convert a VB6 project to .Net. This worked to some extent, however it didnt convert winsock to sockets. I've tried rewriting the sockets side of things, but i have no experience in this area.

 

  Private Sub btnMyCode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMyCode.Click

       Dim strMessage As String = ""
       Dim strEsc As String = Chr(&H1BS) 'Holds Escape ASCII Character
       sHeader = Chr(&H99S)
       sNumMessage = Chr(&H1S)
       sNumDestination = Chr(&H1S)
       sNumSigns = Chr(&H1S)
       sMessHigh = Chr(0)

       Call writedebug("Trying to Connect..." + sMessLow + "...")

       sMessText1 = strEsc & "[2J" & strEsc & "[1;1H" & sForeColorStr & Me.txtLine.Text


       sMessLow = Chr(Len(Trim(sMessText1)) + Len(Trim(sMessText2)))

       'build message for transmission
       sMessage = sHeader & sNumMessage & sNumDestination & sNumSigns & sMessLow & sMessHigh ' this is the message header stuff
       sMessage = sMessage & sMessText1  'add text for top line ' & sEsc & "[4x"
       sMessage = sMessage & sMessText2 ' add text for second line

       bytChecksum = 0
       ' update checksum using each byte of the message
       For i As Integer = 1 To Len(sMessage)
           bytChecksum = RotateLeft(bytChecksum)
           bytChecksum = bytChecksum Xor Asc(Mid(sMessage, i, 1))
       Next
       ' do one further rotation
       bytChecksum = RotateLeft(bytChecksum)
       ' and append the checksum to the message
       sMessage = sMessage & Chr(bytChecksum)

       'Connect to Socket using WinSock
       ' this boolean (bSocketInIse) is very important - you must not
       ' open a socket to the sign if there is already one open
       If bSocketInUse = False Then
           bSocketInUse = True
           ' we use a timer to close the socket if it fires - this is a safety measure in
           ' case something goes wrong
           Timer1.Interval = 10000
           Timer1.Enabled = True
           'Set Protocol and Sign Information
           'And Connect to socket.

           With Me.Winsock1
               .Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol
               ' ip address of sign
               .RemoteHost = "172.28.48.150"
               ' port number sign listens on
               .RemotePort = CInt("3500")
               .Connect()
           End With
       Else
           Call writedebug("Socket In Use Please Wait.")
       End If

   End Sub

  Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
       'set escape string
       sEsc = Chr(&H1BS)

       bSocketInUse = False
       ' initialise to red text on black background
       sForeColorStr = Chr(27) & "[31;40m"

   End Sub

   Private Sub Form_Terminate_Renamed() ' ensure winsock is close when application terminated
       If Me.Winsock1.CtlState > 0 Then Me.Winsock1.Close()
   End Sub

   Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
       'if timer fires display timeout message and disconnect
       Timer1.Enabled = False
       Call writedebug("Display Timed Out")
       Me.Winsock1.Close()
       Call writedebug("Socket Disconnected.")
       bSocketInUse = False
   End Sub

   Private Sub writedebug(ByRef sText As String)
       Me.txtDebug.Text = Me.txtDebug.Text & sText & Environment.NewLine
   End Sub

   Private Sub Winsock1_CloseEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Winsock1.CloseEvent ' Fires this event when sign closes socket
       Call writedebug("Socket Disconnected")
       Call writedebug("")
       bSocketInUse = False
       Me.Timer1.Enabled = False
       Me.Winsock1.Close()
   End Sub

   Private Sub Winsock1_ConnectEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Winsock1.ConnectEvent ' Fired once winsock connects
       Call writedebug("Connected")
       With Me.Winsock1
           ' send the message to the sign
           .SendData(sMessage)
       End With
       Call writedebug("Data Sent")
   End Sub

   Private Sub Winsock1_Error(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles Winsock1.Error
       ' this is an error event produced bu VB's Winsock
       'display error
       Call writedebug("Socket Wrench Error: " & eventArgs.number)
       'close socket
       Me.Winsock1.Close()
   End Sub

   Function RotateLeft(ByVal Octet As Short) As Byte
       ' used in calculation of checksum
       Octet = Octet * 2
       If Octet > &HFFS Then
           Octet = Octet - &HFFS
       End If
       RotateLeft = CByte(Octet)

   End Function

 

 

Can anyone help me convert this into using system.net.sockets please? I've been trying it, for a few days. For some reason all the examples i get form the web just dont seem to work.

 

Thanks

[Jay1b]

Can anyone help please?