Reseaux - Divers / Débutants, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 14:21:58

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

REMPLIR LISTBOX SELECTIONMODE par sauce31

RECHERCHER UN MOT PUIS DONNER UNE VALEUR CORRESPONDANTE SUR LA MêME LIGNE par Wenda8

RE : FONCTION COMBOBOX par PCPT

COMMENT FAIRE UNE MACRO SOUS EXCEL par lemargoullia

+ de logiciels à télécharger

1 465 209 membres
257 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 228 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : Reseaux [ Divers / Débutants ] (sam469)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / VB.NET et VB 2005 / Divers / Débutants / Reseaux
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

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
	Rép. MP 92 msg 95 msg CS

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

ptit_tof57

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.
	Rép. MP 56 msg 66 msg CS Réponse acceptée !

lundi 21 mai 2007 à 14:21:56 | Re : Reseaux

ptit_tof57

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
	Rép. MP 92 msg 95 msg CS

Cette discussion est classé 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