problem med winsock listen

ok nu ser detud til den lytter som den skal
men når jeg connecter til den disconnecter den mig bare med det samme
jeg har tilføjet det her kode


Public Sub sock136_DataArrival(ByVal bytesTotal As Long)
Dim NewData As String
Dim RemoteIP As String

RemoteIP = sock136.RemoteHostIP

    sock136.GetData NewData, vbString, bytesTotal
    MsgBox (NewData & vbCrLf & RemoteIP)
   
End Sub
men den laver ingen msgbox
inden den disconnecter mig

Når den heller ikke at vise en msgbox med RemoteHost i ConnectionRequest efter, at du har accepteret forbindelsen?

det er fordi du skal bruge 2 winsocks:


Option Explicit
' indset Winsock (Navn sckListen) og Winsock (Navn sckClient) på en Form1
' telnet <ip> <port>
' Start-> Kør...-> Åbn: telnet 127.0.0.1 136

Private strOut As String

Private Sub Form_Load()
  With sckListen '<- Winsock (Navn sckListen)
      .Protocol = sckTCPProtocol
      .RemotePort = 0
      .LocalPort = 136
      .Listen
  End With
End Sub

Public Sub sckListen_ConnectionRequest(ByVal requestID As Long)
  With sckClient '<- Winsock (Navn sckClient)
      If .State = sckClosed Then
        .Accept requestID
        .SendData "Hallo " & .RemoteHostIP & vbCrLf
        strOut = ""
      End If
  End With
End Sub

Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Dim intSpace As Integer
Dim strCommand As String
Dim strMessage As String
  With sckClient '<- Winsock (Navn sckClient)
      .GetData strData, vbString, bytesTotal
      .SendData strData

        If strData = vbCrLf Then
          intSpace = InStr(strOut, " ")
          If intSpace > 0 Then
            strCommand = Trim$(Left$(strOut, intSpace))
            strMessage = Trim$(Mid$(strOut, intSpace))

              Select Case LCase$(strCommand)
                    Case "msg" ' hvis du skriver: msg test
                      MsgBox strMessage '= test
                    Case "list" ' hvis du skriver: list c:\
                      MsgBox strMessage '= c:\
              End Select

              .SendData "Ok" & vbCrLf
            End If
          strOut = ""
            Else
          strOut = strOut & strData
        End If

  End With
End Sub

du kan lige tilføje ...sckClient_Close() så din telserver er klar når client lukker.

Private Sub sckClient_Close()
  sckClient.Close
End Sub

og så er telnet default port 23 og ikke 136 ;)

for at skifte port 'telnet <ip/host> <port>'

hej sjh
det er som om den stadigvæk gør præcis det samme
jeg connecter og så er jeg connected et øjeblik så discer den mig og hvis jeg prøver at sende data ryger jeg af med det samme
og ja jeg ved godt at telnet serv er port 23 default hehe men det skal være på port 136 af forskellige årsager
koden som den er nu kommer her:

Private Sub cmdListen_Click()

    With sckListen
        .Protocol = sckTCPProtocol
        .RemotePort = 0
        .LocalPort = 136
        .Listen
    End With
     
    cmdListen.Enabled = False
   
End Sub

Public Sub sckListen_ConnectionRequest(ByVal requestID As Long)
  With sckClient '<- Winsock (Navn sckClient)
      If .State = sckClosed Then
        .Accept requestID
        .SendData "Hallo " & .RemoteHostIP & vbCrLf
        MsgBox (sckClient.RemoteHostIP)
        strOut = ""
      End If
  End With
End Sub

Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Dim intSpace As Integer
Dim strCommand As String
Dim strMessage As String
  With sckClient '<- Winsock (Navn sckClient)
      .GetData strData, vbString, bytesTotal
      .SendData strData

        If strData = vbCrLf Then
          intSpace = InStr(strOut, " ")
          If intSpace > 0 Then
            strCommand = Trim$(Left$(strOut, intSpace))
            strMessage = Trim$(Mid$(strOut, intSpace))

              Select Case LCase$(strCommand)
                    Case "msg" ' hvis du skriver: msg test
                      MsgBox strMessage '= test
                    Case "list" ' hvis du skriver: list c:\
                      MsgBox strMessage '= c:\
              End Select
              .SendData "Ok" & vbCrLf
            End If
          strOut = ""
            Else
          strOut = strOut & strData
        End If

  End With
End Sub
Private Sub sckClient_Close()
  sckClient.Close
End Sub

det kunne godt lyde som om at det er en firewall som smider dig af... og hvad er det for noget data du sender... du kan kun skrive til den telserver som jeg har lavet.

du skal også bruge:

Private strOut As String

selvom jeg skriver Private strOut As String med ind i så laver den det samme
jeg connecter bare via telnet til localhost men den discer mig bare

det er skummelt
for jeg kan se at den lytter på den rigtige port og fatter simpelthen ik hvad der er galt

har du prøvet at tilslutte sådan:
Start-> Kør...-> Åbn: telnet 127.0.0.1 136

det er sådan jeg gør ja

hmmm det virker fint hos mig... hvad OS bruger du?

windowsxp

så kan jeg ikke se hvad dit problem er.. har fået testede den på winxp og den virker 100%

hmm nu kan jeg se hvad der går galt men kan ikke se hvad der sku være galt med koden
den får ikke accepted ens connection den står bare i TIME_WAIT tilstand :/

koden har været testede på både win2k / winxp og den virker 100%.. så må det være dit computer/windows der er noget galt med... er du sikker på du ikke har virus eller en firewall som blokker for programmet.

100 procent sikkert og har testet det på 3 maskiner nu
men accepterer dit svar for den tid du har brugt på det :)

virker det ikke på nogle af de 3 computer?

nej ingen af dem connection blir aldrig established den står som sagt bare i time_wait

så må du have lavet noget galt i koden... prøv at hente den her:
http://home.get2net.dk/sjh/eksperten/386754/Telnetsrv.zip

ok jeg prøver
tak :)