Etablir une connexion internet

Télécharger le projet
Commenter

Description

Petite console qui permet de connecter/deconnecter l'ordinateur à internet.
Inspiré par celui de Malkuth (http://www.vbfrance.com/code.aspx?ID=6244)

Comme cela fait au moins je sais pas combien de temps que je cherche sa, je me suis dis que ca pouvait intéréssé d'autres personnes! :p

En faite, c'est tout bete, il suffit juste d'utiliser un DLL :p

Source / Exemple : 


Module Module1

    Sub Main()
        Console.WriteLine("Entrez une fonction ou tapez ""?"" pour afficher l'aide")
Do
        Dim ret = StrConv(Console.ReadLine, VbStrConv.Lowercase)
        If ret = "exit" Then
        ElseIf ret = "connexion" Then
            Shell("rasdial.exe """ & "Wanadoo" & """ """ & "fti/login" & """ """ & "mot_de_pass" & """", vbHide)
            Console.ForegroundColor = ConsoleColor.Blue
            Console.WriteLine("Connexion...")
        ElseIf ret = "deconnexion" Then
            Shell("rasdial.exe """ & "Wanadoo" & """ /disconnect", vbHide)
            Console.ForegroundColor = ConsoleColor.DarkRed
            Console.WriteLine("Déconnexion...")
        ElseIf ret = "status" Then
            Console.ForegroundColor = ConsoleColor.DarkGreen
            Console.WriteLine("Sur internet? " & My.Computer.Network.IsAvailable)
        ElseIf ret = "?" Then
            Console.ForegroundColor = ConsoleColor.DarkYellow
            Console.WriteLine("connexion   : Connecte l'ordinateur sur internet")
            Console.WriteLine("deconnexion : Déconnecte l'ordinateur d'internet")
            Console.WriteLine("status      : Obtient si l'ordinateur est connecté ou non")
        Else
            Console.ForegroundColor = ConsoleColor.White
            Console.WriteLine("?? " & ret & " ??")
        End If
Loop
    End Sub

End Module

Conclusion :


J'ai mis par défaut "Wanadoo" comme nom de connexion, fti/login comme login et "mot_de_pass" comme code.
Télécharger le projet

Codes Sources

A voir également

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 (Mrreivax)