ETABLIR UNE CONNEXION INTERNET internet, etablir, connexion, vb, Source N°43284

Information sur la source

Catégorie :Réseau & Internet

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é: 6 949 / 415

Auteur : Mrreivax

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (21)

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

Version C# de ce code disponible !

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Module1.vb 1 429 octets

Télécharger le zip

Historique

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

Sources du même auteur

Toutes les sources de Mrreivax

Sources de la même categorie

Toutes les sources de la catégorie Réseau & Internet

Sources en rapport avec celle ci

Commentaires

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

++

Ajouter un commentaire

Discussions en rapport avec ce code source

détecter une connexion internet par Jamytheboss

VB6 Connexion mysql via internet par unitec

etablir une connexion ADO (vb.net) par xvbx

variable connexion sur VB par paolo12

connexion vb et access par b7ar

Quels programmes utilisent ma connexion internet par vicosta

vb et internet explorer par canichon

Connexion FTP par Blanc

probleme de connexion entre VB et Acces par nerazzurro01

Partage de connexion internet par Asrix