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
[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|