salut,
je veu réaliser 2 prog du type server et client par winsock, le but etant juste de lance le server sur un pc et connecter le client au server par un autre pc, juste pour envoyé du texte (client vers server uniquement).
voici mon code :
SERVER :
Private Sub Form_Load()
Winsock.LocalPort = 12666
Winsock.Listen
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock.GetData data
MsgBox data
End Sub
CLIENT :
Private Sub CTLconnect_Click()
Wck.Connect "127.0.0.1", 12666
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) 'Winsock = (winsock server)
Winsock.Close
Winsock.Accept requestID
End Sub
Private Sub Wck_Connect() 'Wck = (winsock client)
MsgBox "connecté"
End Sub
Private Sub CTLenvoie_Click()
Wck.SendData InputBox("Votre texte :")
End Sub
Le probleme est qu avec ce code j arive a me connecter sur le server mais lorsque j envoi du texte il ne s affiche pas.
(en executant server et client sur le meme pc meme par le net)
merci de me repondre...
PS.1: Comment faire pour recuperer un texte ecris dans un textbox dans du code?
ex: Wck.Connect "127.0.0.1", 12666 'remplacer l'ip par une ip taper dans un textBox ?
PS.2: Comment faire pour realiser un imprime ecran de l'ecran du pc où est executé le server en passant par un controle du client ? Kel code ? (koi dans le server et koi dans le client)?
Merci a vous de me repondre...je debute dans le VB : tenez en compte!
!!!-IDEALPROG-!!!