TEST D'UN MODULE RÉSEAU
MadM@tt
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
23 août 2004 à 02:56
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 - 6 août 2009 à 05:01
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 - 6 août 2009 à 05:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25595-test-d-un-module-reseau
https://codes-sources.commentcamarche.net/source/25595-test-d-un-module-reseau
6 août 2009 à 05:01
... Qui fonctionnent !
1 févr. 2007 à 12:09
21 déc. 2006 à 22:04
21 juin 2006 à 09:24
Merci d'avance
sinon pour ton prog, vraimant bien (10/10 biensur..)
3 sept. 2004 à 22:36
Bon un exemple est toujours sympa. Cela aide parfois à demarrer et à donner envie de continuer à chercher un peu tout seul. Souvent un petit exemple m'a donné le déclic.
Je ne suis pas champion du Winsock, mais essais ça.
------------------------------------------------------------------
Programme 1
Créé une Form
avec un Textbox, un CommandBoutton, un Winsock.
Mettre le code dans la feuille:
Option Explicit
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect "192.168.0.2", 10001
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData Text1.Text
End Sub
----------------------------------------------------------------------
Programme 2
Créé une Form
avec un Label, deux Winsock(Index).
Mettre le code dans la feuille:
Option Explicit
Dim Num_WS As Integer
Private Sub Form_Load()
Winsock1(Num_WS).Close
Winsock1(Num_WS).LocalPort = 10001
Winsock1(Num_WS).Listen
End Sub
Private Sub Winsock1_Close(Index As Integer)
Winsock1(Index).Close
Num_WS = Num_WS - 1
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Local Error Resume Next
If Index = 0 Then
Num_WS = Num_WS + 1
Load Winsock1(Num_WS)
If Winsock1(Num_WS).State <> sckClosed Then Winsock1(Num_WS).Close
Winsock1(Num_WS).Accept requestID
End If
End Sub
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Data As String
Winsock1(Num_WS).GetData Data
Label1.Caption = Data
End Sub
--------------------------------------------------------------------
Voilà Tu ecrit un texte, puis envoie.
le label du deuxième programme affiche le texte.
Tu peux changer l'IP (mettre celle d'un PC distant) et le N° de port.
Salut
A+
3 sept. 2004 à 20:52
3 sept. 2004 à 16:18
3 sept. 2004 à 15:55
j'ai vu ton programme ca a l'air pas mal
Eske tu sais comment faire pour envoyer 1 message (chiane de caractere) depuis un programme vers 1 autre (les 2 ecrits en Visual Basic).
Merci
27 août 2004 à 00:24
@ +
25 août 2004 à 17:43
J'ai obtenu pour www.wanadoo.fr --> 193.252.122.103
en mettant 193.252.122.103, dans le frame6 j'obtiens hpwoo.wanadooportails.com
Pour www.yahoo.fr --> 216.109.118.68 et en mettant 216.109.118.68 dans le frame6 j'obtiens p5.www.dcn.yahoo.com
Le frame5 te donne l'IP et le nom PC de la carte réseau locale.
23 août 2004 à 16:08
23 août 2004 à 15:57
La forme n'est là que pour tester les fonctionnalités du module. Promis je vais tout traduire, il est vrais que j'aime les sources en francais, moi aussi.
Bon de gauche à droite et de haut en bas:
1>
- Option 1: On choisis dans le combo le nom du PC distant et on ping. L'adresse IP doit s'afficher, ainsi que le retour Echo, le temps......
- Option 2: On met un adresse IP dans le TextBox en dessous du combo et on ping ---> même résultat.
Cela sert à "pinger" sur un réseau un PC en connaissant ou l'IP ou le DNS(son nom).
2>
Donne l'adresse MAC du PC local (numéro de l'interface réseau du PC), chaque carte réseau à la sienne.
3>
Donne l'adresse MAC du PC distant, si on donne dans le premier TextBox l'adresse IP (ex:192.168.0.1 qui est mon Serveur sur mon réseau).
4>
Donne l'adresse MAC de toutes les cartes réseaux (s'il y en a plusieurs) du PC local.
5>
Donne l'IP et le DNS du PC Local.
6>
Donne le DNS du PC local ou distant, si on donne dans le premier TextBox l'adresse IP.
7>
Scan le réseau et donne tous les DNS des PC connectés.
(Ex pour mon réseau:
Micro_1
Micro_2
Micro_3
Serveur
Portable)
8>
La dernière, que je ne peut tester sur mon réseau (réseau MicroSoft simple) doit donner les Adresses IP avec un serveur DHCP. Mais là je peux me tromper, si quelqu'un veut bien tester, merci.
Voilà ma modeste contribution est d'avoir regrouper plusieurs "Function" et "Sub" dans un même Module.
23 août 2004 à 10:03
Et c'est vrai pourquoi c'est en anglais ?
23 août 2004 à 02:56