begin process at 2012 02 11 12:35:57
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Réseau & Internet

 > ETABLIR UNE CONNEXION INTERNET

ETABLIR UNE CONNEXION INTERNET


 Information sur la source

Note :
Aucune note
Catégorie :Réseau & Internet Source .NET ( DotNet ) Classé sous :internet, etablir, connexion, vb Niveau :Débutant Date de création :29/06/2007 Date de mise à jour :30/06/2007 11:05:59 Vu / téléchargé :15 711 / 654
Auteur : Mrreivax

Ecrire un message privé
Commentaire sur cette source (22)
Ajouter un commentaire et/ou une note

 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.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

30 juin 2007 11:05:59 :
Changement de Goto en Do Loop

 Sources du même auteur

Source avec Zip Source .NET (Dotnet) FACEBOOK IT - TROUVER LA TÊTE DU PROPRIÉTAIRE D'UN EMAIL
Source avec Zip OCX POUR LE REGISTRE & API
Source avec Zip COMPILATEUR AUTONOME
Toutes les sources de Mrreivax

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout
Toutes les sources de la catégorie Réseau & Internet

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) UN NAVIGATEUR INTERNET EN VB.NET par azrti
Source avec Zip CONNEXION D'ORDINATEURS ENTRE EUX (CLIENT SERVER) AVEC LES "... par marco62118
Source avec Zip Source avec une capture Source .NET (Dotnet) CONNEXION À UNE BASE DE DONNÉES MYSQL SUR INTERNET AVEC MYSQ... par lolorenzeb
Source .NET (Dotnet) [.NET2] TESTER LA CONNECTION À INTERNET (AUTRE MÉTHODE PAR H... par Willi
Source avec Zip Source avec une capture Source .NET (Dotnet) TESTER LA VITESSE DE VOTRE CONNEXION INTERNET par hvb

Commentaires et avis

Commentaire de allthew3 le 29/06/2007 12:56:09

jamais de GoTo !!!!

met un Do, Loop à la place

Commentaire de Mrreivax le 29/06/2007 23:11:38

oué mais c'est pareil!! ^^
Et puis, le but de la source c'est pas les GOTO mais plutot la connexion à internet, non?

Commentaire de allthew3 le 30/06/2007 10:28:23

ba quand on voit le Goto ça gache la source -_-'

(sinon établir la connexion internet, oui juste avec Wanadoo ...)

Commentaire de Mrreivax le 30/06/2007 11:16:49

C'est vrai, avec un Do Loop c'est mieux!
Pas forcément, change Wanadoo par Free ou Orange, sa marche pareil!

++

Commentaire de allthew3 le 30/06/2007 11:19:15

que sur les connexions bas débit ... qui utilise le bas débit aujourd'hui ? (encore du monde mais bon ...)

moi ce qui me choques franchement c'est le Goto là : soit tu fais du VB6, soit du .NET mais choisi
(j'espère que tu mets pas de Goto dans des codes plus long!)

Commentaire de OneHacker le 30/06/2007 15:51:45

La connexion ni la déconnexion ne marche car apparemment seul le gestionnaire Internet Orange peut connecter l'ordinateur à internet

et meme si ca m'affiche "déconnecté" je suis bel et bien connecté.

Commentaire de allthew3 le 30/06/2007 16:13:05

ah voilà ça c'est du code .NET ^^
par contre chez moi ça fonctionne pas (Vista ou connexion haut débit ?)

Commentaire de OneHacker le 30/06/2007 17:15:22

Avec VB.Net 2003 je sais qu'il y a une fonction dans environment ou autre déjà prete qui donne une valeur booléene pour savoir si l'ordi est connecté ou pas, avec VB.Net 2005 c'est plus simple car avec My en fouillant on peut avoir la propriété indiquant la connextion internet. Il faut bien exploiter la framework dans ce qui existe déjà au lieu de faire des fonctions qui ne sont pas sure de fonctionner. Ensuite pour Orange c'est normal car il est protégé et aucune programme meme indows peut faire une connexion.

Commentaire de allthew3 le 30/06/2007 17:17:40

My.Computer.Network.Isavailable ...

Commentaire de OneHacker le 30/06/2007 17:58:55

Voilà mais ici c'est du VB.Net 2003 et j'ai carrément oublié la commande déjà faite dans la framework.

Commentaire de allthew3 le 30/06/2007 18:01:58

ou sinon il suffit de faire un ping ? (on esquive un peut le probleme)

Commentaire de OneHacker le 30/06/2007 18:47:07

Le ping j'ai essaye ce n'est pas toujours fiable.

Commentaire de Mrreivax le 01/07/2007 21:08:56

J'utilise Wanadoo mais j'ai désinstallé l'interface.
J'ai une connexion 1024kbps, du XP et utilise la version Express de vb.net.
Pour OneHacker, la commande comme le dis allthew3, c'est My.Computer.Network.Isavailable.
Ensuite, pour les Goto, je ne les utilise jamais, mais je les ai mis la, parce que c'est la première fois que je fesais une app console.
Pour le ping, pour quoi faire? Pas besoin ici, non?!

Commentaire de OneHacker le 01/07/2007 21:58:54

My.Computer.Network.Isavailable c'est pour VB.Net 2005 or ton projet est en VB.Net 2003.

Commentaire de Mrreivax le 01/07/2007 22:06:18

pourtant, elle tourne très bien sur ma machine!
Alors? Pourquoi?

Commentaire de hvb le 02/07/2007 00:36:19

My.Computer.Network.Isavailable signifie seulement que le pc est connecté à un réseau, et pas à internet...
Un ping ou une webrequest est donc plus approprié pour detecter une connexion à internet

Commentaire de allthew3 le 02/07/2007 10:34:12

Faudra donc faire : If My.Computer.Network.IsAvailable And My.Computer.Network.Ping("http://www.google.fr") then ' connecté

Commentaire de allthew3 le 02/07/2007 10:34:42

(PS : c'est un projet VB 2005 du coup ..)

Commentaire de Dtcorp le 02/07/2007 13:25:22

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?

Commentaire de allthew3 le 02/07/2007 14:40:19

ç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à ...

Commentaire de Mrreivax le 03/07/2007 20:31:07

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!)

++

Commentaire de eomer212 le 10/06/2009 21:35:28

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...

 Ajouter un commentaire


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


Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Renewable Energy is Within Reach
Photo Water in the Beginning of the Grand Canyon 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,527 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)