Construire un client réseau simple : Finger

Finger est un service tournant sur le port 79 d'une machine UNIX et permettant de connaître l'état du système: qui est connecté sur la machine, depuis combien de temps, depuis quel terminal etc... Pour cette raison, il est souvent désactivé par les administrateurs système. Par conséquent, si vous voulez trouver une machine pour tester le protocole Finger, il va falloir vous débrouiller :o)

Une fois connecté sur la machine, on peut envoyer deux choses:

• Soit un CrLf simple, auquel cas obtient la liste des utilisateurs présents sur le système
• Soit un login, et dans ce cas on obtient des informations détaillées sur l'utilisateur en question

• Démarrez un projet VB, rajoutez Winsock aux références et placez une instance de Winsock sur la feuille.
• Placez un TextBox appelé txtInput sur la feuille.
• Placez un TextBox appelé txtOutPut sur la feuille. Mettez sa propriété MultiLine sur True et sa propriété ScrollBars sur "2-Vertical".
• Ajoutez deux boutons de commande, nommés btnFinger et btnQuitter sur la feuille.
• Arrangez le tout comme suit:

• Maintenant, on va écrire du code :o). Tout d'abord, allez dans le code des déclarations du formulaire et tapez:

 

Cacher/Afficher le codeSélectionnez

1.
2.
3.

Option Explicit
Dim username as String
Dim hostname as String

• Ensuite, le code d'ouverture et de fermeture de l'application:

 

Cacher/Afficher le codeSélectionnez

1.
2.
3.
4.
5.
6.
7.

Private Sub btnQuitter_Click()
     Unload Me
End Sub 
Private Sub Form_Load()
     txtInput = "user@host"
     txtOutPut = ""
End Sub

• Maintenant, on va écrire le code de connexion. Notre programme va reconnaître deux syntaxes possibles: soit "user@machine", auquel cas on va demander des informations sur un utilisateur précis, soit "machine", auquel cas on demande la liste des utilisateurs:

 

Cacher/Afficher le codeSélectionnez

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.

Private Sub btnFinger_Click() 
Dim pos As Integer
'on vérifie que l'utilisateur a entré quelque chose
     If txtInput = "" Then
          MsgBox "Spécifiez un nom d'hôte!", 16, "Erreur!"
          Exit Sub
     End If
'on cherche s'il y a un signe "@" dans la chaîne
     pos = InStr(txtInput.Text, "@")
'si pas de "@", on a juste un nom de machine
     If pos = 0 Then
          username = ""
          hostname = txtInput.Text
     End If
's'il y a un "@", on splitte la chaîne en deux suivant le format: user@host
     If pos > 0 Then
          username = Left$(txtInput.Text, pos - 1)
          hostname = Right$(txtInput.Text, Len(txtInput.Text) - pos)
     End If
'ON FERME PROPREMENT LA CONNEXION!!!
Winsock1.Close
Winsock1.LocalPort = 0
'enfin, on se connecte...
Winsock1.Connect Trim$(hostname), 79
End Sub

• Tant qu'on y est, on rajoute le code de gestion d'erreurs Winsock:

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
     MsgBox "Erreur n°" & Number & " -- " & Description, vbInformation
End Sub

• Maintenant, il va falloir dire à Winsock qu'une fois connecté au serveur, il faut envoyer une information à la machine: soit un simple CrLf si on n'a pas de nom utilisateur précis à spécifier, soit un nom suivi de CrLf. Pour cela, on utilise l'événement Winsock1_Connect():

 

Cacher/Afficher le codeSélectionnez

1.
2.
3.

Private Sub Winsock1_Connect()
     Winsock1.SendData username & vbCrLf
End Sub

• Enfin, il faut gérer l'arrivée des données et leur affichage:

 

Cacher/Afficher le codeSélectionnez

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
     Dim strdata As String
     On Error Resume Next
'on receptionne les données
     Winsock1.GetData strdata
     strData=Replace(strData, vbLf, vbCrLf)
'on affiche les données
     txtOutPut.Text = strdata
End Sub

• Compilez, exécutez, c'est fini.

Télécharger le code source de l'exemple (2ko, ZIP)

Voilà, j'espère qu'après ces deux exemples, vous y voyez plus clair dans la programmation Winsock, qui après tout n'est pas si compliquée que ça. On va enchaîner avec un troisième exemple: le service Whois.