用VB开发VPN拨号端遇到的致命问题

Question

用VB在开发VPN拨号端时，程序已经封装打包！突然发现了一个致命的问题！此VPN拨号端在PPPOE的网络环境中，无法拨号成功，创建VPN是可以的！Private Declare Function InternetDial Lib "D:\wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long'拨号
Public Function DialUp(LinkName As String) As Boolean
    InternetDial 0, LinkName, INTERNET_AUTODIAL_FORCE_UNATTENDED, Handle, 0
    DialUp = (Handle <> 0)
End Function这个拨号方法失败！！！但在非PPPOE拨号的网络环境中，（如直接连交换机出去），则是非常正常的！肯求高手指点！！！！！

Answer 1

没有接触过这方面的东西，upupupupupupupupupupupupupupupupupup

Answer 2

在windows上创建vpn连接的时候好像有个设置可以设置在vpn拨号前要先拨哪个连接的，可能是这里比较特别人工置顶

Answer 3

我以前看到过一个用vc写的vpn拨号软件，一下子找不到代码了，lz可以去搜一下

Answer 4

谢谢,9楼的!网上有很多使用VB创建VPN\连接VPN的,都是一个版本!但是都没有涉及到,在PPPOE的网络环境下,再使用VPN去连接的情况继续研究....

Answer 5

结贴!解决!放弃使用 
Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long换Private Declare Function RasDial Lib "RasApi32.DLL" Alias "RasDialA" (lpRasDialExtensions As Any, ByVal lpszPhonebook As String, lprasdialparams As Any, ByVal dwNotifierType As Long, lpvNotifier As Long, lphRasConn As Long) As Long
曲折实现过程!感谢楼上各位捧场!散分!

Answer 6

兄弟能将这个VPN程序和代码分享下吗？我怎么从网站上舶来的都提示参数不可选。自己VB不是很熟悉，但又恨需要写一些小的程序。