Test d'un module réseau

Soyez le premier à donner votre avis sur cette source.

Vue 9 748 fois - Téléchargée 1 683 fois

Description

Je posséde un petit réseau de 5 PC. Un des PC me sert de "Serveur" internet et de sauvegarde. Tous tourne sous XP.

Je travail sur un petit programme qui doit:
- Mettre le réseau à l'heure.
- Réveiller un PC distant du réseau.
= Arrêter le PC "Serveur" si les autres PC sont arrêtés.
- Arrêter le PC local à une heure définie.

J'ai encore d'autres idées sur le sujet (programme devra être un service de windows...).

Pour l'instant en glanant des info sur la toile, j'ai récupéré pas mal de routines
qui tourne autour du réseau. Je les ai regroupé dans un module avec le peu que j'ai écris.

Si celà peut intéresser quelqu'un.

Conclusion :


Voilà, c'est tout.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
10/10 pour permettre a d'autre de découvrir de bon code utile ...
... Qui fonctionnent !
Messages postés
65
Date d'inscription
samedi 25 janvier 2003
Statut
Membre
Dernière intervention
5 novembre 2008

Bonjour,un code comme j'aime,ca marche tout de suite et ce tres utile pour obtenir les adresses mac de son petit reseau..MErci à toi Bonne continuation 10/10
Messages postés
99
Date d'inscription
vendredi 20 janvier 2006
Statut
Membre
Dernière intervention
8 septembre 2009

Excellent travail. ça c'est un bon programme d'administrateur de réseau.
Messages postés
6
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
13 mars 2008

Bonjour EPL .Tu parles d'un programme qui permet de "réveiller un PC " t'en es ou dans tes travaux???
Merci d'avance
sinon pour ton prog, vraimant bien (10/10 biensur..)
Messages postés
7
Date d'inscription
samedi 26 juillet 2003
Statut
Membre
Dernière intervention
5 septembre 2004

Bonsoir,

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+
Afficher les 14 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.