.NET (Core and Framework)

uttam kr wrote:

plz help me.

Private Sub WaitForAwhile(howLong as Int)
  Dim currentTime
  currentTime = timeGetTime
  While (timeGetTime - currentTime) < howLong
    DoEvents
  Wend
End Sub

Private Sub TryConnect()
  On Error Goto myErrorHandler
  Dim Tries%
  Tries% = 0

TryAgain:
  Winsock1.Connect
  WaitForAwhile(1000)  
  Winsock1.SendData ("I will gladly beam down to the planet, Captain!")
  Exit Sub

myErrorHandler:
  Tries% = Tries% + 1
  If Tries% < 5 Then
    Goto TryAgain
  Else
    MsgBox "Cannot connect, try the sneakernet :)"
  End If
End Sub

I are Troll

she-Developer wrote:

I did put in some sort of delay similar to yours, it works the one minute and the next it doesnt, I even increased the time delay to maximum, but still same problem.

I are Troll

Sub AttemptConnectionToRemoteHost()
'(wsh is my client winsock control)

    If wsh.State <> sckClosed Then
        wsh.Close
    End If
   
    wsh.RemoteHost = RTrim(LTrim(txtAddress))
    wsh.RemotePort = CLng(txtPort)
    
    wsh.Connect
    Await()
    If wsh.State = sckConnected Then
       'Report success!!
    Else
       'Report Failure
    End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Await()
'Allow x seconds to for connection
Dim x As Long
Dim EndTime As Single
    x = CLng(5) 'Allow 5 seconds for connection attempt
    EndTime = Timer + x
    Do
        DoEvents
    Loop While (wsh.State <> sckConnected) And (EndTime > Timer)

End Sub

John Simmons / outlaw programmer wrote:

One application registers/sends the message, and one application is supposed to register/receive the message. The message is being sent, but it's not being received.

Public Sub ReceiveMessage(ByVal ar As IAsyncResult)
    Try
      Dim bytesRead As Integer
      bytesRead = client.GetStream.EndRead(ar)
      If bytesRead < 1 Then
        Exit Sub
      Else
        Dim messageReceived As String = System.Text.Encoding.ASCII.GetString(data, 0, bytesRead)
        Dim myRegex As New Regex("\[(JOIN|LEAVE|USERS|ROLL)\](\[([^\]]+)\])?(\[([^\]]+)\])?")
        If myRegex.IsMatch(messageReceived) Then
          Dim myMatch As Match = myRegex.Match(messageReceived)
          Select Case myMatch.Groups.Item(1).ToString
            Case "JOIN" '==== [JOIN][Nick][Role] ====
              frmServerConnect.lstUsersOnline.Items.Add(String.Format("{0} ({1})", myMatch.Groups.Item(3).ToString, myMatch.Groups.Item(5).ToString))
            Case "LEAVE" '==== [LEAVE][User] ===
              Try
                'frmServerConnect.lstUsersOnline.Items.RemoveAt(frmServerConnect.lstUsersOnline.Items.IndexOf(myMatch.Groups.Item(3).ToString))
              Catch ex As Exception
              End Try
              Exit Select
            Case "USERS" '=== [USERS][User1Name|User1Role;User2Name|User2Role,etc] ===
              Dim usr() As String = myMatch.Groups.Item(3).ToString.Split(";")
              frmServerConnect.lstUsersOnline.Items.Clear()
              For Each u As String In usr
                Dim x() As String = u.Split("|")
                frmServerConnect.lstUsersOnline.Items.Add(String.Format("{0} ({1})", x(0), x(1)))
              Next
            Case "ROLL"
              'txtMessageHistory.AppendText(myMatch.Groups.Item(5).ToString)
              Exit Select
            Case Else
              Exit Sub
          End Select
        End If
      End If

      '---continue reading for more data
      client.GetStream.BeginRead(data, 0, CInt(client.ReceiveBufferSize), AddressOf ReceiveMessage, Nothing)
    Catch ex As Exception
      ' MsgBox(ex.ToString)
    End Try
  End Sub

raineym wrote:

The empty catch block is there because I just haven't filled it yet