2 connections på winsock ?

Nu kender jeg ikke til \"Telnet server\" men noget i den stil skulle du nok kunne bruge.


Private NumCount As Long

Private Sub WSock_SendComplete(Index As Integer)
  WSock(Index).Close
  Unload WSock(Index)
End Sub

Private Sub WSock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim SetCount As Long
  SetCount = WSock.Count + 1
    Load WSock(SetCount)
    WSock(SetCount).LocalPort = 0
  WSock(SetCount).Accept requestID
End Sub

Private Sub Form_Load()
  WSock(0).Close
  WSock(0).LocalPort = 80 \'??
  WSock(0).Listen
End Sub

Private Sub WSock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strData As String
  WSock(Index).GetData strData, vbInteger, bytesTotal
Text1 = strData
End Sub

sjh > Det ser lækkert ud det du har lavet der og jeg tror godt jeg kan bruge det.. men jeg har lidt problemer med at implamantere det i mit prog.

Kan jeg ikke sende dig en mail med programmet så du kan implamantere det for mig (Hvis du har lyst, ingen tvang :-)

Truti

Hæver lige pointsne til lidt mere :)

jeg skal da gørere et forsøg.

sjh.multimedia@get2net.dk

Sendt!

ok jeg kan se at jeg kan have 2 telnet clienter oppe på serveren på samme tid men nu virker de simple comandoer som Winsock1(0).senddata \"et eller andet\" virker ikke Hvorfor ???

Truti

Nej det er nu \"Winsock1(Index).senddata \"et eller andet\"\" som skal sende data, Winsock1(0).xx er kun for at starte winsock.

Det er her fra du skal sende data:

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  Winsock1(Index).SendData \"et eller andet\"
End Sub

Men hvor sender du data til?

Undskyld jeg lige har været væk i en uges tid....
men det virker altså ikke...

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  Winsock1(Index).SendData "et eller andet"
End Sub

Virker ikke... Min client viser ikke noget af det.... Jeg ved ikke hvad der er galt (har ingen anelelse).

I Det hele taget virker det ikke optimalt..... :(

Truti

Er du der ?

hvad bruger du som client, er det også et program du har lavet eller hvad

jeg bruger Microsofts standart Telnet app.

Start > Kør > Telnet

Truti

Truti< jeg har sendt en ny fil til dig, det skulle virke nu.

Jeg har set det men jeg syntes det er lidt svært at få det hele til at virke normalt!

giv mig lige denne weekend :)

Truti

okay Steffen!

nu har jeg siddet lidt og kigget på de eksempler du har sendt mig og de ser ud tal at virke meget fornuftige... jeg skulle lige lave nogle små ændinger men det er også det hele.... jeg takker mange gange for at du ville bruge din tid på den og håber ikke at det her irreteret dig at jeg har været lidt langsom i optrækket!

Mange Tak

Truti

Jeg er kun glad for at kan hjælpe. :-)

Det er sådan det skal være :)
He He

Truti