关于创建VPN时参数的有关问题
关于创建VPN时参数的问题
我在网上找到了这个 vb 6.0 写的 创建 VPN 连接的代码，我现在用这个代码可以成功创建 VPN连接，但是里面的参数不会设置。
我想取消 在远程连接上使用默认网关 ，但每次创建默认都是选中的，请问各位高手应该怎么做啊？
下面是我在网上找到的代码，代码是可以用的，请高手帮我看一下：
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Type RASIPADDR
a As Byte
b As Byte
c As Byte
d As Byte
End Type
Private Type RASENTRY
dwSize As Long
dwfOptions As Long
dwCountryID As Long
dwCountryCode As Long
szAreaCode(10) As Byte
szLocalPhoneNumber(128) As Byte
dwAlternateOffset As Long
ipaddr As RASIPADDR
ipaddrDns As RASIPADDR
ipaddrDnsAlt As RASIPADDR
ipaddrWins As RASIPADDR
ipaddrWinsAlt As RASIPADDR
dwFrameSize As Long
dwfNetProtocols As Long
dwFramingProtocol As Long
szScript(259) As Byte
szAutodialDll(259) As Byte
szAutodialFunc(259) As Byte
szDeviceType(16) As Byte
szDeviceName(128) As Byte
szX25PadType(32) As Byte
szX25Address(200) As Byte
szX25Facilities(200) As Byte
szX25UserData(200) As Byte
dwChannels As Long
dwReserved1 As Long
dwReserved2 As Long
dwSubEntries As Long
dwDialMode As Long
dwDialExtraPercent As Long
dwDialExtraSampleSeconds As Long
dwHangUpExtraPercent As Long
dwHangUpExtraSampleSeconds As Long
dwIdleDisconnectSeconds As Long
dwType As Long
dwEncryptionType As Long
dwCustomAuthKey As Long
guidId As GUID
szCustomDialDll(259) As Byte
dwVpnStrategy As Long
dwfOptions2 As Long
dwfOptions3 As Long
szDnsSuffix(255) As Byte
dwTcpWindowSize As Long
szPrerequisitePbk(259) As Byte
szPrerequisiteEntry(256) As Byte
dwRedialCount As Long
dwRedialPause As Long
End Type
Private Type RASCREDENTIALS
dwSize As Long
dwMask As Long
szUserName(256) As Byte
szPassword(256) As Byte
szDomain(15) As Byte
End Type
Private Const RASNP_NetBEUI As Long = &H1
Private Const RASNP_Ip As Long = &H4
Private Const RASNP_Ipx As Long = &H2
Private Const RASFP_Ppp As Long = &H1
Private Const RASFP_Slip As Long = &H2
Private Const RASFP_Ras As Long = &H4
Private Const RASET_Phone As Long = 1
Private Const RASET_Vpn As Long = 2
Private Const RASET_Direct As Long = 3
Private Const RASET_Internet As Long = 4
Private Const RASEDM_DialAll As Long = 1
Private Const RASEDM_DialAsNeeded As Long = 2
Private Const RASEO_Custom As Long = &H100000
Private Const RASEO_CustomScript As Long = &H80000000
Private Const RASEO_DisableLcpExtensions As Long = &H20 '是否决定在PPP里不使用LCP，一般不使用这个选项
Private Const RASEO_IpHeaderCompression As Long = &H8 '是否选用IP头指针压缩
Private Const RASEO_ModemLights As Long = &H100 '此选项只对WIN2K有效，选用后在任务栏出现一个状态监测器
Private Const RASEO_NetworkLogon As Long = &H2000 '此选项对NT/2K没有影响，是否选用登陆网络
Private Const RASEO_PreviewDomain As Long = &H2000000
Private Const RASEO_PreviewPhoneNumber As Long = &H200000
Private Const RASEO_PreviewUserPw As Long = &H1000000
我在网上找到了这个 vb 6.0 写的 创建 VPN 连接的代码，我现在用这个代码可以成功创建 VPN连接，但是里面的参数不会设置。
我想取消 在远程连接上使用默认网关 ，但每次创建默认都是选中的，请问各位高手应该怎么做啊？
下面是我在网上找到的代码，代码是可以用的，请高手帮我看一下：
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Type RASIPADDR
a As Byte
b As Byte
c As Byte
d As Byte
End Type
Private Type RASENTRY
dwSize As Long
dwfOptions As Long
dwCountryID As Long
dwCountryCode As Long
szAreaCode(10) As Byte
szLocalPhoneNumber(128) As Byte
dwAlternateOffset As Long
ipaddr As RASIPADDR
ipaddrDns As RASIPADDR
ipaddrDnsAlt As RASIPADDR
ipaddrWins As RASIPADDR
ipaddrWinsAlt As RASIPADDR
dwFrameSize As Long
dwfNetProtocols As Long
dwFramingProtocol As Long
szScript(259) As Byte
szAutodialDll(259) As Byte
szAutodialFunc(259) As Byte
szDeviceType(16) As Byte
szDeviceName(128) As Byte
szX25PadType(32) As Byte
szX25Address(200) As Byte
szX25Facilities(200) As Byte
szX25UserData(200) As Byte
dwChannels As Long
dwReserved1 As Long
dwReserved2 As Long
dwSubEntries As Long
dwDialMode As Long
dwDialExtraPercent As Long
dwDialExtraSampleSeconds As Long
dwHangUpExtraPercent As Long
dwHangUpExtraSampleSeconds As Long
dwIdleDisconnectSeconds As Long
dwType As Long
dwEncryptionType As Long
dwCustomAuthKey As Long
guidId As GUID
szCustomDialDll(259) As Byte
dwVpnStrategy As Long
dwfOptions2 As Long
dwfOptions3 As Long
szDnsSuffix(255) As Byte
dwTcpWindowSize As Long
szPrerequisitePbk(259) As Byte
szPrerequisiteEntry(256) As Byte
dwRedialCount As Long
dwRedialPause As Long
End Type
Private Type RASCREDENTIALS
dwSize As Long
dwMask As Long
szUserName(256) As Byte
szPassword(256) As Byte
szDomain(15) As Byte
End Type
Private Const RASNP_NetBEUI As Long = &H1
Private Const RASNP_Ip As Long = &H4
Private Const RASNP_Ipx As Long = &H2
Private Const RASFP_Ppp As Long = &H1
Private Const RASFP_Slip As Long = &H2
Private Const RASFP_Ras As Long = &H4
Private Const RASET_Phone As Long = 1
Private Const RASET_Vpn As Long = 2
Private Const RASET_Direct As Long = 3
Private Const RASET_Internet As Long = 4
Private Const RASEDM_DialAll As Long = 1
Private Const RASEDM_DialAsNeeded As Long = 2
Private Const RASEO_Custom As Long = &H100000
Private Const RASEO_CustomScript As Long = &H80000000
Private Const RASEO_DisableLcpExtensions As Long = &H20 '是否决定在PPP里不使用LCP，一般不使用这个选项
Private Const RASEO_IpHeaderCompression As Long = &H8 '是否选用IP头指针压缩
Private Const RASEO_ModemLights As Long = &H100 '此选项只对WIN2K有效，选用后在任务栏出现一个状态监测器
Private Const RASEO_NetworkLogon As Long = &H2000 '此选项对NT/2K没有影响，是否选用登陆网络
Private Const RASEO_PreviewDomain As Long = &H2000000
Private Const RASEO_PreviewPhoneNumber As Long = &H200000
Private Const RASEO_PreviewUserPw As Long = &H1000000