Probleme envois winsock
StiriX
Messages postés
67
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
2 septembre 2009
-
10 sept. 2006 à 01:27
PCPT Messages postés 13278 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 10 sept. 2006 à 14:48
PCPT Messages postés 13278 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 10 sept. 2006 à 14:48
1 réponse
PCPT
Messages postés
13278
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
48
10 sept. 2006 à 14:48
10 sept. 2006 à 14:48
salut,
et quel est le code au niveau de la réception (socket) ?
ici ta sub un peu modifiée.....
Private Sub Command1_Click()
Dim fs As Object, Item As Object, sResult As String
sResult = vbNullString
Set fs = CreateObject ("Scripting.FileSystemObject")
For Each Item In fs.Drives
sResult = sResult & Item.driveletter & "<"
Next Item
sResult = LeftB$(sResult, LenB (sResult) - 2)
Set Item = Nothing
Set fs = Nothing
Form1.Winsock1.SendData sResult
DoEvents
End Sub
<small> Coloration
syntaxique automatique [AFCK] </small>
++
PCPT [AFCK]
<hr size ="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
et quel est le code au niveau de la réception (socket) ?
ici ta sub un peu modifiée.....
Private Sub Command1_Click()
Dim fs As Object, Item As Object, sResult As String
sResult = vbNullString
Set fs = CreateObject ("Scripting.FileSystemObject")
For Each Item In fs.Drives
sResult = sResult & Item.driveletter & "<"
Next Item
sResult = LeftB$(sResult, LenB (sResult) - 2)
Set Item = Nothing
Set fs = Nothing
Form1.Winsock1.SendData sResult
DoEvents
End Sub
<small> Coloration
syntaxique automatique [AFCK] </small>
++
PCPT [AFCK]
<hr size ="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
