Connexion a internet avec le nom de la connexion

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 037 fois - Téléchargée 42 fois

Contenu du snippet

ce code permet de se connecter automatiquement a internet en donnant le nom de la connexion qui se trouve acces résaux a distance
il lance en fait la feuille de windows se conneter et le prog fait un clique sur connecter
le code n'est pas de moi mais il tres simple a faire marcher (www.vbcode.com site o il faut passer beaucoup de temps avant de trouver ce que l'on cherche cointrairement a vbfrance

Source / Exemple :


Private Sub Command1_Click()

'Place the following code under a command button or in a menu, etc...

Dim X
'"maConnexion" est le nom qui est sous l'icone dans acces résaux a distance
X = Shell("rundll32.exe rnaui.dll,RnaDial " & "maConnexion", 1)
DoEvents
'il faut que votre password soit enregistré
SendKeys "{enter}", True
DoEvents
End Sub

Conclusion :


le code n'est pas de moi mais il tres simple a faire marcher (www.vbcode.com site o il faut passer beaucoup de temps avant de trouver ce que l'on cherche cointrairement a vbfrance qui lui tres facile de naviguer)
je le répette le code n'est pas de moi je suis en débutant qui aime progrésser

A voir également

Ajouter un commentaire

Commentaires

Messages postés
81
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
7 juin 2012

Sur Windows XP (et sans SendKeys), pour redémarrer des postes à distance :

Je lance un fichier BAT (C:\MonFichier.BAT) qui contient

RASDIAL Maconnexion MonLogin MonMotDePasse /PHONE:0123456789
shutdown -f -r -m \\MonPC
RASDIAL Maconnexion /DISCONNECT

en vb.net je fais.

Dim proc As Process
Process.Start("C:\MonFichier.BAT")
Messages postés
55
Date d'inscription
samedi 4 septembre 2004
Statut
Membre
Dernière intervention
9 décembre 2005

wouah il marche superbement bien le code de Stéphane !!

Merci bcp gars !!!

Quand a totomaze, je lui dit quand meme bravo car, il a voulu contribuer a avoir un bon code source !!!

Je trouve pas normal que qlq un se fasse engueuler parceque son code est pas parfait !!

Personne n'est parfait et, toi au moins, tu as partagé tes codes sources !!!

++
Messages postés
4
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
10 mars 2008

druggedsephiroth g trouvé que ça car tout les autres code que j'ai trouvé y'en avait aucun de simple
Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005

Bonjour,

Pour compléter votre code :

Pour Windows NT/2000 :
shell "rasdial.exe " & "NomDuCompte" & " " & "NomUtilisateur" & " " & "MotDePasse"

Pour Windows 9x
shell "rundll rnaui.dll,RnaDial " & "NomDuCompte"

Exemple d'utilisation :

NT/2K
shell "rasdial.exe " & "Internet" & "SMaillard" & " " & "**********"
9x
shell "rundll rnaui.dll,RnaDial " & "Internet"

Ce code à été publier en 2001 sur le site de www.labodev.com

Cordialement

Stéphane
Messages postés
71
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
19 juin 2003

Mouais ce truc avec sendkeys ca s'appelle du bricolage...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.