cs_vichamp
Messages postés29Date d'inscriptionmercredi 17 juillet 2002StatutMembreDernière intervention20 mars 2003
-
30 janv. 2003 à 11:08
markophillips
Messages postés1Date d'inscriptionmercredi 20 mars 2019StatutMembreDernière intervention20 mars 2019
-
20 mars 2019 à 08:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
markophillips
Messages postés1Date d'inscriptionmercredi 20 mars 2019StatutMembreDernière intervention20 mars 2019 20 mars 2019 à 08:46
Cependant, votre tâche est globalement bonne, mais la déconnexion du VPN est une tâche plutôt sombres.
Je pense que vous utilisez un VPN peu fiable, je vous recommande donc d'utiliser un VPN fiable pour vous débarrasser de la déconnexion. Vous pouvez également trouver un VPN fiable sur All Best VPN.
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 20151 28 avril 2010 à 18:17
merci pour la piste, je vais creuser
mWaAtR
Messages postés49Date d'inscriptionjeudi 30 août 2001StatutMembreDernière intervention28 avril 2010 28 avril 2010 à 09:26
Il faudrais exécuter le code dans un thread séparé (multithreading).
Toutefois étant depuis pas mal de temps sur dotnet, je ne sais pas/plus comment faire cela en vb.
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 20151 27 avril 2010 à 21:09
Petite question :
Comment contourner le blocage du programme lorsque la connexion est en cours ? En effet, lorsque la connexion au vpn est cours (ligne ci-dessous), le programme se bloque le temps de cette opération. Que la connexion s'effectue ou pas, le programme est gelé. Si la connexion s'effectue rapidement ou s'annule alors le programme ne se bloque bien entendus. Aurais-tu une idée pour déjouer ou contourner ce soucis ? Merci d'avance.
lngRetCode = RasDial(ByVal &H0, vbNullString, lprasdialparams, &H0, ByVal &H0, hRasConn)
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 20151 4 mars 2010 à 17:56
Du coup, en partant de ton code source, j'ai développé un utilitaire complet ! L'inspiration m'a enflammée. J'ai pondu une appli qui permet de bloquer le trafic internet (P2P...) en cas de déconnexion du VPN, de le reconnecter puis de recharger les applications bloquées lors de la reconnexion.
;-)
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 20151 27 févr. 2010 à 22:49
Bravo de l'avoir postée car avec l'envol des VPN ce genre de source sera très recherchées.
xbeurois
Messages postés1Date d'inscriptionjeudi 29 mars 2007StatutMembreDernière intervention 7 mai 2007 7 mai 2007 à 19:29
Salutations à tous !
Je suis désolé mais je ne vois pas le code ou même un lien permettant de le voir ou de le télécharger. Je suis pourtant inscrit et j'ai validé mon inscription sur le site puisque je peux poster des commentaires.
C'est exactement le code dont j'aurais besoin et je suis triste de ne pas pouvoir le voir ... ou alors il y a une feinte que je n'aurais point vu en cette heure tardive. Merci du renseignement
A très bientôt !
Kitsunegari
Messages postés7Date d'inscriptiondimanche 30 mars 2003StatutMembreDernière intervention12 août 2008 29 mai 2006 à 09:37
Super, ca marche a merveille encore merci , tu viens de m'economiser 1 journee de travail par semaine a tester les connections VPN vers une 30aine de reseaux different (30 agences d'une grde societe) Merci. Je t'enverrais des chocolats pour noël.
mWaAtR
Messages postés49Date d'inscriptionjeudi 30 août 2001StatutMembreDernière intervention28 avril 2010 26 mai 2006 à 17:04
Je croix que j'ai pu constater cette erreur...
J'ai effectué une correction dans la source, essayes la nouvelle version et redis-moi si ca fonctionne.
@+
Kitsunegari
Messages postés7Date d'inscriptiondimanche 30 mars 2003StatutMembreDernière intervention12 août 2008 24 mai 2006 à 16:19
Salut , c'est pil poil ce que je cherchais , mais petit probleme, si la connection n'aboutis pas , dans la fenetre des connections on peut voir que celle-ci reste en conecting , et ne repasse pas en disconnected ...... et de ce fait n'est plus reutilisable a moins de faire un Reboot du PC.
Y a t il une solution ??
thierrydelepine
Messages postés521Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention11 septembre 20086 13 déc. 2004 à 14:02
10/10
c'ette source est tres interressante et marche tres bien
pb quand meme avec l'autoconnect si il y a un pack Wanadoo par exemple, le mot de passe est vide donc pas de connexion
NB: tu devrais rajouter une remonté d'erreur avec l'API RasGetErrorString ceci permet d'avoir un descriptif de l'erreur, pas simplement le numero.
gillouternay
Messages postés5Date d'inscriptionlundi 17 mai 2004StatutMembreDernière intervention 3 mars 2006 2 juin 2004 à 14:03
j'ai fait une connexion simple type autodial("ma connecxion")
mais je n'arrive pas a me deconnecter
peux tu m'aider
mariuscesar
Messages postés18Date d'inscriptionvendredi 5 septembre 2003StatutMembreDernière intervention 3 août 2004 8 déc. 2003 à 11:40
j'ai utilisé l'api rasdial de vb, mais kan je le lance il exécute la connexion en passant en paramètre les données de l'utiliséteur connecté et non celui de l'utilisateur passé en paramètre. ke faire.
voila ma fonction
Public Function Connexion(strEntryName As String, strUserName As String, strPwd As String) As Boolean
Dim rtn As Long
Dim b() As Byte
Dim myConnStatus As VBRASCONNSTATUS
Dim myDialParams As VBRasDialParams
Dim strPhonebook As String
With myDialParams
.EntryName = strEntryName
.UserName = strUserName
.Password = strPwd
End With
rtn = VBRasDialParamsToBytes(myDialParams, b)
'tester si pas deja connecter
rtn = VBRasGetConnectStatus(lngHConn, myConnStatus)
If rtn <> 0 Then
lngHConn = 0
rtn = RasDial(ByVal 0&, strPhonebook, b(0), 0&, 0&, lngHConn)
End If
If rtn = 0 Then
If Not ExistIcon Then
CreateIcon (True)
Else
ModifyIcon True
End If
Connexion = True
Else
MsgBox VBRASErrorHandler(rtn)
Connexion = False
End If
End Function
mWaAtR
Messages postés49Date d'inscriptionjeudi 30 août 2001StatutMembreDernière intervention28 avril 2010 27 nov. 2003 à 16:56
Je regarderait du côté de l'API RasSetEntryDialParams...
J'ai malheureusement pas le temps de faire un petit exemple mais peut-être que cela pourra t'orienter.
Il me semble qu'en tapant RasSetEntryDialParams dans msdn il y a pas mal d'exemple en C++ qu'il n'y a plus qu'a traduire.
mariuscesar
Messages postés18Date d'inscriptionvendredi 5 septembre 2003StatutMembreDernière intervention 3 août 2004 27 nov. 2003 à 10:35
salut
j'ai besoin d'un code permettant de créer une connexion vpn-modem.
ce code doit creer et non connecter et déconnecter.
peu tu m'aider??
nguemle82@yahoo.fr
edsinouhe
Messages postés7Date d'inscriptionmercredi 29 janvier 2003StatutMembreDernière intervention28 juin 2010 5 nov. 2003 à 09:19
J'ai essayé... ça ne démarre pas du tout, ni en W95, W98, ME, et surtout XP...
J'ai d'autres mini logiciels de démonstration qui fonctionnent parfaitement dès que l'on tire le démarreur... Il n'y a qu'en XP que ça bloque... Et c'est là mon problème... (voir exemple donné par allapi.net, dommage que ce soit dépassé comme code)
mWaAtR
Messages postés49Date d'inscriptionjeudi 30 août 2001StatutMembreDernière intervention28 avril 2010 30 janv. 2003 à 12:03
Je propose une autre correction...
A voir le cas se pose avec les connexions ayant un nom plus long que le buffer définit par la constante RAS_MaxEntryName.
Je propose de la changer à 255 (j'ai corrigé la source).
cs_vichamp
Messages postés29Date d'inscriptionmercredi 17 juillet 2002StatutMembreDernière intervention20 mars 2003 30 janv. 2003 à 11:08
erreur au demarrage... a la ligne...
ConName = Left(ConName, InStr(1, ConName, Chr(0)) - 1)
suffit de la mettre en commentaire et ca roule ! :)
20 mars 2019 à 08:46
Je pense que vous utilisez un VPN peu fiable, je vous recommande donc d'utiliser un VPN fiable pour vous débarrasser de la déconnexion. Vous pouvez également trouver un VPN fiable sur All Best VPN.
https://www.allbestvpn.com/
28 avril 2010 à 18:17
28 avril 2010 à 09:26
Toutefois étant depuis pas mal de temps sur dotnet, je ne sais pas/plus comment faire cela en vb.
27 avril 2010 à 21:09
Comment contourner le blocage du programme lorsque la connexion est en cours ? En effet, lorsque la connexion au vpn est cours (ligne ci-dessous), le programme se bloque le temps de cette opération. Que la connexion s'effectue ou pas, le programme est gelé. Si la connexion s'effectue rapidement ou s'annule alors le programme ne se bloque bien entendus. Aurais-tu une idée pour déjouer ou contourner ce soucis ? Merci d'avance.
lngRetCode = RasDial(ByVal &H0, vbNullString, lprasdialparams, &H0, ByVal &H0, hRasConn)
4 mars 2010 à 17:56
;-)
27 févr. 2010 à 22:49
7 mai 2007 à 19:29
Je suis désolé mais je ne vois pas le code ou même un lien permettant de le voir ou de le télécharger. Je suis pourtant inscrit et j'ai validé mon inscription sur le site puisque je peux poster des commentaires.
C'est exactement le code dont j'aurais besoin et je suis triste de ne pas pouvoir le voir ... ou alors il y a une feinte que je n'aurais point vu en cette heure tardive. Merci du renseignement
A très bientôt !
29 mai 2006 à 09:37
26 mai 2006 à 17:04
J'ai effectué une correction dans la source, essayes la nouvelle version et redis-moi si ca fonctionne.
@+
24 mai 2006 à 16:19
Y a t il une solution ??
13 déc. 2004 à 14:02
c'ette source est tres interressante et marche tres bien
pb quand meme avec l'autoconnect si il y a un pack Wanadoo par exemple, le mot de passe est vide donc pas de connexion
NB: tu devrais rajouter une remonté d'erreur avec l'API RasGetErrorString ceci permet d'avoir un descriptif de l'erreur, pas simplement le numero.
2 juin 2004 à 14:03
mais je n'arrive pas a me deconnecter
peux tu m'aider
8 déc. 2003 à 11:40
voila ma fonction
Public Function Connexion(strEntryName As String, strUserName As String, strPwd As String) As Boolean
Dim rtn As Long
Dim b() As Byte
Dim myConnStatus As VBRASCONNSTATUS
Dim myDialParams As VBRasDialParams
Dim strPhonebook As String
With myDialParams
.EntryName = strEntryName
.UserName = strUserName
.Password = strPwd
End With
rtn = VBRasDialParamsToBytes(myDialParams, b)
'tester si pas deja connecter
rtn = VBRasGetConnectStatus(lngHConn, myConnStatus)
If rtn <> 0 Then
lngHConn = 0
rtn = RasDial(ByVal 0&, strPhonebook, b(0), 0&, 0&, lngHConn)
End If
If rtn = 0 Then
If Not ExistIcon Then
CreateIcon (True)
Else
ModifyIcon True
End If
Connexion = True
Else
MsgBox VBRASErrorHandler(rtn)
Connexion = False
End If
End Function
27 nov. 2003 à 16:56
J'ai malheureusement pas le temps de faire un petit exemple mais peut-être que cela pourra t'orienter.
Il me semble qu'en tapant RasSetEntryDialParams dans msdn il y a pas mal d'exemple en C++ qu'il n'y a plus qu'a traduire.
27 nov. 2003 à 10:35
j'ai besoin d'un code permettant de créer une connexion vpn-modem.
ce code doit creer et non connecter et déconnecter.
peu tu m'aider??
nguemle82@yahoo.fr
5 nov. 2003 à 09:19
J'ai d'autres mini logiciels de démonstration qui fonctionnent parfaitement dès que l'on tire le démarreur... Il n'y a qu'en XP que ça bloque... Et c'est là mon problème... (voir exemple donné par allapi.net, dommage que ce soit dépassé comme code)
30 janv. 2003 à 12:03
A voir le cas se pose avec les connexions ayant un nom plus long que le buffer définit par la constante RAS_MaxEntryName.
Je propose de la changer à 255 (j'ai corrigé la source).
30 janv. 2003 à 11:08
ConName = Left(ConName, InStr(1, ConName, Chr(0)) - 1)
suffit de la mettre en commentaire et ca roule ! :)