Connecte til port.

find en chat i VB, der skulle være det meste du skal bruge

fx. fra
http://www.vbsquare.com/

:)

Jeg har fundet en side med et script på men, det virker ikk helt!

Hvorfor virker dette ikke?:
Private Sub Form_Load()
Winsock1.LocalPort = 1000
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

    If Winsock1.State <> sckClosed Then Winsock1.Close

    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
       
    Dim strIncoming As String
    Winsock1.GetData strIncoming
    MsgBox strIncoming
End Sub

*/ Addy

Jeg tror at det er noget med det sidste, altså at vise beskeden.

For jeg har tjekket om den forbinder og det gør den!

*/ Addy

come on...

Har løsningen.

Tak for dit link a1!

*/ Addy

jeg har ikke rodet meget med det selv....:)

Bliver Dataarrival kørt / kaldt overhovet????

eksperten sover lidt.....