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

Soyez le premier à donner votre avis sur cette source.

Vue 8 927 fois - Téléchargée 793 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
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
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.
Messages postés
34
Date d'inscription
mardi 8 février 2011
Statut
Membre
Dernière intervention
19 octobre 2011

Ouais sa fait de la place et j avais penser a utiliser la fonction enabled.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
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)
Messages postés
34
Date d'inscription
mardi 8 février 2011
Statut
Membre
Dernière intervention
19 octobre 2011

Ok merci pour la combine. xD
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
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)