begin process at 2012 02 16 03:46:07
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

VB.NET et VB 2005

 > 

Divers

 > 

Débutants

 > 

Reseaux

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Reseaux

dimanche 20 mai 2007 à 20:42:18 | Reseaux

sam469
Bonsoir a tous,alors voila je vous expose mon probleme!je cherche a faire un listbox en VISUAL BASIC EXPRESS 2005 qui a pour but de "lister" les ordinateur qui son en reseaux local, malgrer mais recherche je n'est rien trouver qui me convienne:( quelqu'un pourrait t'il me venir en aide?

Merci de votre aide et a bientot!^^

s@m
lundi 21 mai 2007 à 02:03:19 | Re : Reseaux

ptit_tof57

Membre Club
Réponse acceptée !
Salut si tu as un réseau modeste et que tu connais les adresses ip ou le nom des machines pouvant se connecté a ton réseau je te propose cet exemple :



Sub Ping()

        ' Ici tu déclares autant de variable que d'ordi.
        ' Eventuellement si tu as beaucoup d'ordi peut etre faire un tableau
        ' de type Boolean, mais je vais resté dans l'hypothèse que tu n'as pas
        ' un grand réseau.

        Dim Ordi1 As Boolean
        Dim Ordi2 As Boolean
        Dim Routeur As Boolean


        ' Ici un simple ping des adresses ip de tes ordinateurs ou alors de leur
        ' nom de machine.
        ' Si les ordinateurs sont présent cela renvoit true sinon false.

        Ordi1 = My.Computer.Network.Ping("Portable")
        Ordi2 = My.Computer.Network.Ping("192.168.0.1")
        Routeur = My.Computer.Network.Ping("192.168.0.2")

 
        ' Ici on ajoute les ordinateurs qui sont présent à la liste

        If Ordi1 Then
            ListBox1.Items.Add("Ordi1")
        Else
            Exit Sub
        End If

        If Ordi2 Then
            ListBox1.Items.Add("Ordi2")
        Else
            Exit Sub
        End If

        If Routeur Then
            ListBox1.Items.Add("Routeur")
        Else
            Exit Sub
        End If

    End Sub

Tu peux éventuellement faire une deuxième liste dans laquel tu y mettrai les ordis non connectés.
Dans ce cas tu ajouterai leurs nom dans la partie else comme ceci :

        If Ordi2 Then
            Listbox1.Items.Add("Ordi2")
        Else
            Listbox2.Items.Add("Ordi2")
        End If

A+
Tof
lundi 21 mai 2007 à 08:38:43 | Re : Reseaux

PurBonheur
Réponse acceptée !
Salut, ptit_tof57, avec ton code si Ordi1 ne répond pas présent, alors Ordi2 et routeur ne serons jamais marqué présent. Il faut enlever les else exit sub.

A plus.
lundi 21 mai 2007 à 14:21:56 | Re : Reseaux

ptit_tof57

Membre Club
Réponse acceptée !
Effectivement PurBonheur ;) tu as raison et je rajouterai aussi un bloc try catch sur les ping car si un ordi n'est pas joiniable cela renvoi une erreur.

     Try
        Ordi1 = My.Computer.Network.Ping("Portable")
        Ordi2 = My.Computer.Network.Ping("192.168.0.1")
        Routeur = My.Computer.Network.Ping("192.168.0.2")
          Catch
          End Try


Et la modification des if comme la souligné PurBonheur.

        If Ordi1 Then
            ListBox1.Items.Add("Ordi1")
        End If

        If Ordi2 Then
            ListBox1.Items.Add("Ordi2")
        End If

        If Routeur Then
            ListBox1.Items.Add("Routeur")
        End If
lundi 21 mai 2007 à 17:19:18 | Re : Reseaux

sam469


Bonsoir a tous,je vou remerci pour vos reponse,mais je cherche un code qui actualise automatiquement la Listbox enfait qui detecte par lui meme les Ordi sur le reseaux!

Merci encore de votre aide^^

amicalement

s@m


Cette discussion est classée dans : aide, reseaux

Répondre à ce message

Sujets en rapport avec ce message

Recherche fichiers d'aide [ par Shaoulah ] BonjourJe programme actuellement en VB4.0 :o(et je voudrais me mettre au VB 6.0.Je possede VB 6.0 mais pas le fichier d'aide (indispensable) savez vou FICHIER HELP [ par caballero ] salutj'ai voulu programmer une rubrique d'aide dans une application et j'ai crée les deux fichiers necessaire à celale fichier aides.hpj que voici[opt base de données sous excel [ par guingoy ] Bonjour,Voilà, je développe un petit programe sous excel avec VB6.A l'aide d'un MSform (notamment un textbox) j'aimerais alimenter une base de données De l'aide svp [ par chael1977@diligo.fr ] BonjourJ'aimairais savoir :- comment inserer une image dans un richtextbox ?- comment inserer du son image dans un richtextbox ?- comment inserer du t Aide pour conversion de code Basic - C++ !! [ par Ral ] Salut à tous.N'ayant pas de compétence en "Basic",Je recherche quelqu'un qui s'y connait bien en "Basic"(sur Turbo-Basic ou Quick-Basic) et C++ ,et qu Recherche dans une base de donnée a l'aide de 'Seek' [ par Arion ] Comment utiliser la méthode Seek ? editeur d'aide [ par Patrice ] Bonjour, bonjourje recherche l'editeur d'aide helpworkshop, mais l'ancienne version(format winhelp) et non la nouvelle (format HTML).Si on pouvait me Demande d'aide pour IconMenu !!! [ par Jonef ] Alors, vraiment ce IconMenu me sort par les yeux !!!En plus il BUG constament...Bref, si quelqu'un pouvait m'envoyer soit un exemple en VB soit une ai


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,858 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)