1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Réseau & Internet
  5. Savoir si l'ordinateur est connecté à internet en visual basic 2010

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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
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.
Signaler
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.
Signaler
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)
Signaler
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
Signaler
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
S'inscrire maintenant

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)