Help envoi pc distant ...

Question

Bonjour ,

Voila apres avoir longtemp peiner a etablir une connection en serveur /
client j'y suis arriv&#233; ... mais maintenant me voila confront&#233; a un
probl&#233;me lorsque j'essaie de faire en sorte que le client envoie des
instructions au server ca couille :s voici le code que j'utilise.



Cot&#233; client : 



Private Sub cdo_Click()

cmd = "cdo"

port.SendData (cmd)

End Sub





cot&#233; serveur :

Private Sub reception()

Dim strdata As String

port.GetData strdata



If strdata = "cdo" Then

mciSendString "set cdaudio door closed", 0, 0, 0

End If

If strdata = "cdc" Then

mciSendString "set cdaudio door open", 0, 0, 0

End If



End Sub



Voila si quelqun peut m'aid&#233; :)

scharly3 · Answer

hum manifestement le pb ne vien pas de l'envoi mais de  mciSendString "set cdaudio door closed", 0, 0, 0 qui ne semble pas reagir lorsque je l'appél :s

olixelle · Answer

c super vague ton truc, je te conseille de lancer la fonction mciErrorstring ou un truc comme ca, tu auras un msg d'erreur + explicite

Rollerman

Help envoi pc distant ...

2 réponses

Discussions similaires