sende besked fra et VB-program til et andet (over netværk)

Ja, du kan bruge winsock kontrollen.

På din vb6 cd er der nogle chat eksempler i denne folder:
\Common\Tools\VB\unsupprt
Dem kan du bruge som udgangspunkt

//akj

det kan jeg desværre ikke rigtigt finde hoved og hale i ... kan du evt. fikse noget kode som kan det jeg beskriver ovenfor??

Her kommer et eksempel, opret en form med 2 commandbuttons (command1 og 2) en textbox (text1) en timer (timer1) og paste denne kode ind på formen.
Vælg desuden Microsoft Winsock Control 6.0 under Project - Components
indsæt 2 stk winsock-kontroller (winsock1 og 2)

//akj

Her er koden til formen:
Option Explicit

Private break As Boolean


Private Sub Command1_Click()
' connect

Winsock1.Connect Winsock1.LocalIP

' vent til connect ok
Do Until Winsock1.State = sckConnected Or break = True
        DoEvents
Loop
' send data
Winsock1.SendData "Dette er en test"
End Sub

Private Sub Command2_Click()
break = True
End Sub

Private Sub Form_Load()
' sæt porte
Winsock2.LocalPort = 1004
Winsock1.RemotePort = 1004

' lyt på 2'eren
Winsock2.Listen

' start timer
Timer1.Interval = 100
Timer1.Enabled = True

' text på knapper
Command1.Caption = "Send test"
Command2.Caption = "Bryd loop"



End Sub

Private Sub Timer1_Timer()
Dim ls_ret, ls_ret1

' status winsock1
Select Case Winsock1.State
    Case 0
        ls_ret = "Closed"
    Case 1
        ls_ret = "Open"
    Case 2
        ls_ret = "Listening"
    Case 3
        ls_ret = "Connection pending"
    Case 4
        ls_ret = "Resolving host"
    Case 5
        ls_ret = "Host resolved"
    Case 6
        ls_ret = "Connecting"
    Case 7
        ls_ret = "Connected"
    Case 8
        ls_ret = "Peer is closing the connection"
    Case 9
        ls_ret = "Error"
    Case Else
        ls_ret = "Unknown code"
End Select

' status winsock2
Select Case Winsock2.State
    Case 0
        ls_ret1 = "Closed"
    Case 1
        ls_ret1 = "Open"
    Case 2
        ls_ret1 = "Listening"
    Case 3
        ls_ret1 = "Connection pending"
    Case 4
        ls_ret1 = "Resolving host"
    Case 5
        ls_ret1 = "Host resolved"
    Case 6
        ls_ret1 = "Connecting"
    Case 7
        ls_ret1 = "Connected"
    Case 8
        ls_ret1 = "Peer is closing the connection"
    Case 9
        ls_ret1 = "Error"
    Case Else
        ls_ret1 = "Unknown code"
End Select

ls_ret = "In = " & ls_ret1 & "  Out = " & ls_ret
Text1.Text = ls_ret

End Sub


Private Sub Winsock1_SendComplete()
' når det hele er send lukkes porten
Winsock1.Close
End Sub

Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
' luk porten
Winsock2.Close
' vent
Do
    DoEvents
Loop Until Winsock2.State = 0
' accepter connection
Winsock2.Accept requestID
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

' modtag data
Winsock2.GetData strData, vbString

' vis data
MsgBox "Data sendt fra " & Winsock2.RemoteHostIP & " = " & strData

' luk port
Winsock2.Close
' vent på at porten er lukket
Do
    DoEvents
Loop Until Winsock2.State = 0

'lyt igen
Winsock2.Listen

End Sub

Kan du lave et der virker via internettet?

Ovenstående virker via internettet da det bruger tcp/ip protokollen.

MEN for at det virker på din pc og f.eks en kammerats pc skal i køre noget vpn og der skal være åbnet for portene i en evt. router.

//akj