Savoir si l'ordinateur est connecté à internet en visual basic 2010

0/5 (8 avis)

Vue 9 124 fois - Téléchargée 804 fois

Description

Un petit programme qui permet de savoir si l'ordinateur est relié à internet ou à un réseau local.
J'ai mis deux buttons afficher et masquer ce n'est pas nécessaire.

Source / Exemple :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.Network.IsAvailable Then
            Label1.Text = "Le pc est connecté à internet"
        Else
            Label1.Text = "Le pc n'est pas connecté à internet"
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Visible = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Visible = False
    End Sub
End Class

Codes Sources

A voir également

Ajouter un commentaire Commentaires
us_30
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
27 mars 2011 à 17:45
Bonjour,

Ouais, discutable... Normalement, une source doit aller plus loin. Ici, ce genre de source devrait (ou devra) plutôt être sur Codyx. (par exemple : http://www.codyx.org/snippet_connecte-internet_413.aspx#1384).

Mais comme c'est ta première source, je comprends l'indulgence d'un admi...^^

Amicalement,
Us.
clementgeek41
Messages postés
34
Date d'inscription
mardi 8 février 2011
Statut
Membre
Dernière intervention
19 octobre 2011

25 mars 2011 à 16:20
Ouais sa fait de la place et j avais penser a utiliser la fonction enabled.
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
25 mars 2011 à 16:18
remanié, je passe de 74.7 ko à 11.7 ko

reste 7 fichiers :

PC connecté.sln
PC connecté\Form1.Designer.vb
PC connecté\Form1.vb
PC connecté\PC connecté.vbproj
PC connecté\My Project\Application.Designer.vb
PC connecté\My Project\Application.myapp
PC connecté\My Project\AssemblyInfo.vb

les boutons ne servent à rien, mais admettons...
un bouton permettant de retester si le réseau est accessible aurait été plus utile (voire une détection automatique)
clementgeek41
Messages postés
34
Date d'inscription
mardi 8 février 2011
Statut
Membre
Dernière intervention
19 octobre 2011

25 mars 2011 à 16:10
Ok merci pour la combine. xD
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
25 mars 2011 à 16:07
fais des essais...
sauvegarde tes fichiers

supprime en et tente d'ouvrir ta solution dans Visual Studio sans avoir de message d'erreur ^^
Afficher les 8 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.

Du même auteur (clementgeek41)