Accueil > > > ETABLIR UNE CONNEXION INTERNET
 ETABLIR UNE CONNEXION INTERNET
 Information sur la source
 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
- 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
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.
 Historique
- 30 juin 2007 11:05:59 :
- Changement de Goto en Do Loop
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
détecter une connexion internet [ par Jamytheboss ]
Avec VB.NET, comment faire pour qu'un programme se lance automatiquement dès qu'un utilisateur de l'ordinateur tente de se connecter à internet.En gro
VB6 Connexion mysql via internet [ par unitec ]
Bonjour tout le monde,J'aimerai créer une application en VB sous mysql via l'internet. je ne sais pas par où commencer pour reussir une connexion mysq
etablir une connexion ADO (vb.net) [ par xvbx ]
comment etablir une connexion entre base donnée(access) et le programme en vb net
comment lancer l'assistant de connexion internet? [ par ghislia61 ]
Bonjour à tous...svp, j'aimerai savoir comment lancer l'assistant de connexion à internet de windows ( 2000, xp ...) dans le langage visual basic .
Réseau Local par Internet avec VB. [ par themik ]
Salut,J'aimerais pouvoir imiter un réseau local avec VB. Es-ce qu'il est possible avec WinSock d'envoyer toute ce qu'un ordinateur normal en réseau lo
connexion vb-access [ par moumaiag ]
comment enregistrer des modifications d'un fichier access en vb????
Comment concevoir une connexion rtc en vb,ayant les memes étapes que nous offre Windows? [ par ghislia61 ]
En fait je veux convoir en vb6/vb.Net toutes les étapes que nous offre l'assistant de connexion réseau à distance du SE windows.J'ai pensé à aller mo
Script VBS pour test connexion internet [ par papy46 ]
Bonsoir à tous, j'ai un petit souci sur un script VBS : je souhaite réaliser un script d'accueil qui s'affiche à l'ouverture d'une session windows pou
[vb express 2005] Connexion par mode assistant [ par anadeveloppeur ]
Bonjour/BonsoirEn classe, on a VS 2003 et SQL 2000, et pour utiliser une connexion à une basse de données et ses commandes associés, il suffit d'utili
test connexion internet [ par snake57 ]
Bonjour,Alors oui je sais vous allez me dire que sur le site il y'a beaucoup de testeur de connexion internet.Le problème c'est qu'aucun ne fonct
|
Derniers Blogs
 IMAGINE CUP 2012, MAKE A SIGN EN FINALEIMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg
Voilà qui est fait, la nouvelle est officielle ! L'équipe belge "Make a Sign" va au pays des kangourous défendre son projet dans la catégorie Software Design. http://www.imaginecup.com/CompetitionsContent/Competition/WorldwideFinalists.aspx V...
Cliquez pour lire la suite de l'article par junarnoalg KINECT 1.5 IS OUT !KINECT 1.5 IS OUT ! par Vko
La version 1.5 du Kinect For Microsoft vient tout juste de sortir ! Plein de nouveautés: Tracking de squelette en Near Mode Détection en position assise Détection faciale avec un SDK dédié Documentation et des guideline (enfin) Un out...
Cliquez pour lire la suite de l'article par Vko LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc
Mise à jour des Web API du 14 Mai
Réservez dès maintenant votre journée du 20 juin pour le Windows Azure Dev Camp 2012 à Paris
Mise à jour de Team Foundation Service
MechCommander 2 sur Windows 8
Entity Framework 5 Release Candidate e...
Cliquez pour lire la suite de l'article par richardc REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITERREACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc
Une mauvaise utilisation de rx lors de l'écriture d'une couche d'accès à des services peut conduire à des cas embarassants avec des erreurs mal gérées, des appels qui ne partent lorsqu'ils le devraient, et même des résultats incorrects . le tout nuis...
Cliquez pour lire la suite de l'article par Groc SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVESSHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg
Dernièrement, nous avons migré le site
myTIC
vers un nouveau serveur SharePoint 2010. Dans les contenus que nous vouloins récupérer, nous avions un certain nombre de blogs.
Nous avons utilisé les commandes Power...
Cliquez pour lire la suite de l'article par junarnoalg
Logiciels
 sDEVIS-FACTURES vlPRO (8.1.0.3)SDEVIS-FACTURES VLPRO (8.1.0.3)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO 974 Application Server (12.2.4.6)974 APPLICATION SERVER (12.2.4.6)Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc... Cliquez pour télécharger 974 Application Server vPicture (1.4.2.1)VPICTURE (1.4.2.1)Avec vPicture, hébergez vos images facilement et rapidement.
vPicture est un utilitaire simple, ... Cliquez pour télécharger vPicture Easy-Planning (2.2.1.6)EASY-PLANNING (2.2.1.6)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au... Cliquez pour télécharger Easy-Planning COM-BACKUP (2.0)COM-BACKUP (2.0)
COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...
Cliquez pour télécharger COM-BACKUP
|