Winsock Client/Server?

sure, men det bliver kun med et link til en side hvor du kan finde noget source på:

www.planet-source-code.com søg efter winsock eller chat, hvis der er nogle probs. så smid en message på ICQ, du er jo på listen

Takker, det gør jeg du!

I Windows NT er der en kommando i command prompten der hedder "net send"
den kan du bruge således. "net send computernavn besked"
hvor computer navn er modtagerens computer og besked er beskeden det skulle virke!! M.v.h.
Xero

hehe ja under NT, hvas så med brugere der kører 95/98

HVIS man skulle bruge NET SEND under NT skulle man under alle omstændigheder patche MESSENGER servicen, så det er nok ikke så fantastiskt ligetil.

Hvis du vil lave det med TCP/IP kan jeg foreslå at du hente SocketWrench fra http://www.socket-wrench.com/ som er en freeware TCP/UDP komponent der fungerer helt enormt nemt og dejligt.  (Jeg har noget source liggende til det der gør præcis det du ønsker, nemlig sender en besked fra en maskine til en anden, en slags mini-chatter)

Prøv at kigge i VB Books Online eller eksemplerne der følger med. Et eller andet sted står der noget i stil med
til SERVEREN:

Private Sub Form_Load()
'Set the LocalPort property to an integer.
'Then invoke the Listen method.
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show  ' Show the client form.

End Sub


Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
    ' Check if the control's stte is closed. If not,
    ' close the connection before accepting the new connection.
    If tcpServer.State <> sckClosed Then tcpServer.Close
    'Accept the request with the requestID
    ' parameter.
    tcpServer.Accept requestID
End Sub



Private Sub txtSendData_Change()
' The textBox control named txtSendData
' Contains the data to be sent. Whenever the user
' types into the textbox, the string is sent
' using the SendData method.
tcpServer.SendData txtSendData.Text
End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
' Declare a variable for the incoming data.
' Invoke the GetData method and set the Text
' proporty of a TextBox named txtOutput to
' the data.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData

End Sub
Til KLIENTEN:
Private Sub Form_Load()
' The name of the Winsock control is tcpClient.
' Note: to specify a remote host, you can use
' either the IP address ( ex. "121.111.1.1") or
' the computer's "friendly" name, as shown here.
tcpClient.RemoteHost = "bo hansen"
tcpClient.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
' Invoke the Connect method to initiate a
' connection.
tcpClient.Connect

End Sub


Private Sub txtSend_Change()
ftcpClient.SendData txtSend.Text
End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData

End Sub


Det der skal bruges er så bare Winsock-controllen.

Jeg ved ikke om det virker til NT, men jeg har selv brugt det i VB 5.0.

Eksemplet kan findes ved at gå ind i visual basic books online (hjælpemenuen) og søge efter TCP.

Det er ret vigtigt at man læser det der står der for at forstå eksemplet hvis man er newbie.

Venligst,
Karl-Johan V. Jensen

Jeg har en sådan server/client applikation.
Mail david@leonard.as for at få den.

Den er nemlig rimelig stor ;)