begin process at 2008 05 16 09:00:25
1 173 235 membres
76 nouveaux aujourd'hui
13 970 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ETABLIR UNE CONNEXION INTERNET


Information sur la source

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

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

  • 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.
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

30 juin 2007 11:05:59 :
Changement de Goto en Do Loop
  • signaler à un administrateur
    Commentaire de allthew3 le 29/06/2007 12:56:09

    jamais de GoTo !!!!

    met un Do, Loop à la place

  • signaler à un administrateur
    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?

  • signaler à un administrateur
    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 ...)

  • signaler à un administrateur
    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!

    ++

  • signaler à un administrateur
    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!)

  • signaler à un administrateur
    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é.

  • signaler à un administrateur
    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 ?)

  • signaler à un administrateur
    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.

  • signaler à un administrateur
    Commentaire de allthew3 le 30/06/2007 17:17:40

    My.Computer.Network.Isavailable ...

  • signaler à un administrateur
    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.

  • signaler à un administrateur
    Commentaire de allthew3 le 30/06/2007 18:01:58

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

  • signaler à un administrateur
    Commentaire de OneHacker le 30/06/2007 18:47:07

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

  • signaler à un administrateur
    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?!

  • signaler à un administrateur
    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.

  • signaler à un administrateur
    Commentaire de Mrreivax le 01/07/2007 22:06:18

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

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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é

  • signaler à un administrateur
    Commentaire de allthew3 le 02/07/2007 10:34:42

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

  • signaler à un administrateur
    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?

  • signaler à un administrateur
    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à ...

  • signaler à un administrateur
    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

Appels d'offres

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS