Etablir une connexion internet

0/5 (22 avis)

Vue 19 872 fois - Téléchargée 815 fois

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.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
13
Date d'inscription
lundi 7 février 2011
Statut
Membre
Dernière intervention
8 février 2011

Il faut vraiment avoir découvert l'informatique aprés 1998 pour dire que ce script ne sert à rien...
Aapplication exemple, actuelle et trés réaliste.
une société, et une appli installée en poste dans cette société, dans un dépot. Comment relier le pc à internet, envoyer de l'EDI ou des fichiers, communiquer.. ??? impossible de passer par la connexion ADSL de l'entreprise, ils ont une peur bleue de prendre des virus, ou le gestionnaire de l'informatique n'est pas dans la société, ou ne veut pas (comme c'est souvent le cas) se mettre un peu à bosser. Donc, il ne reste que la liaison .. RTC.
Et oui, le bon vieux modem RTC, parce que dans les dépots, mêmes les clés 3G+ ne passent pas, ca coûte cher et c'est aléatoire.
Et là, la connexion, il faut bien la gérer par programme vu que l'utilisateur est incapable par définition de la lancer correctement à chaque fois, et qu'il ne faut surtout pas lui laisser la possibilité de modifier quoi que ce soit car il essaiera forcement de faire une connerie (il y arrive souvent..).
Donc, vraiment, oui, ce type de code sert, vraiment, et pour de vrais applications qui font vraiment gagner de l'argent aux entreprises..
je concluerais en disant
Bravo Mr Reivax...
Messages postés
100
Date d'inscription
mercredi 9 juin 2004
Statut
Membre
Dernière intervention
26 juin 2010
5
Hum, merci, c'est très sympatique ici ^^
Et bien, quand on a pas la livebox on fait comment?
Sinon, proposez moi un script meilleur, je n'attends que sa!
La critique est aisé, mais l'art est bien dure.

Faite avancer la chose et montrez moi que vous savez faire mieu!
tout le monde en bénéficira! (et moi en 1er!)

++
Messages postés
551
Date d'inscription
samedi 8 janvier 2005
Statut
Membre
Dernière intervention
12 avril 2008
1
ça c'est une autre histoire : c'est vrai que ce script ne sert à rien mais y'a pas que lui dans ce cas là ...
Messages postés
1
Date d'inscription
vendredi 15 juin 2007
Statut
Membre
Dernière intervention
2 juillet 2007

En meme temps, pourquoi s'embeter à faire ce petit script (ou pire, a utiliser le gestionnaire de connexion de wanamoo) quand on peut parametrer la livebox pour se connecter automatiquement? Sachant qu'en plus on peut la de/connecter en passant par l interface web?
Messages postés
551
Date d'inscription
samedi 8 janvier 2005
Statut
Membre
Dernière intervention
12 avril 2008
1
(PS : c'est un projet VB 2005 du coup ..)

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.