创建拨号vpn易语言源码

资源介绍：

创建拨号vpn易语言源码

资源作者：

易语言源码

资源界面：

.版本 2
.支持库 spec

.子程序 _createvpn, , 公开,  创建VPN电话本
.参数 creatName, 文本型, , 链接名称
.参数 creatType, 整数型, , 链接协议 0 自动 1 PPTP 2 L2TP 3 IKEv2
.参数 creatKey, 文本型, 可空, L2TP预设密匙
.参数 creatRedial, 逻辑型, 可空, 断线重拨
.参数 creatLoop, 整数型, 可空, 重拨次数
.参数 creatInterval, 整数型, 可空, 重拨间隔
.参数 creatLCP, 逻辑型, 可空, LCP扩展
.参数 creatSoftware, 逻辑型, 可空, 软件压缩
.参数 creatSingle, 逻辑型, 可空, 为单链路连接协商多重链接
.参数 creatGateway, 逻辑型, 可空, 在远程网络上使用默认
.参数 creatPath, 文本型, , 电话本路径
.局部变量 dw, RASENTRY

' https://msdn.microsoft.com/en-us/library/aa377274
' http://doxygen.reactos.org/df/d60/ras_8h.html
dw.dwSize ＝ sizeof (dw)
dw.dwAlternateOffset ＝ 0
dw.dwCountryCode ＝ 0
dw.dwCountryID ＝ 0
dw.dwFrameSize ＝ #RASFP_Slip
dw.dwDialExtraPercent ＝ 75
dw.dwDialExtraSampleSeconds ＝ 120
dw.dwDialMode ＝ 1
dw.dwfNetProtocols ＝ #RASNP_Ip
dw.dwfOptions ＝ 1024262928
dw.dwfOptions2 ＝ 367
dw.dwFramingProtocol ＝ #RASFP_Ppp
dw.dwChannels ＝ 0
dw.dwReserved1 ＝ 0
dw.dwReserved2 ＝ 0
dw.dwHangUpExtraPercent ＝ 10
dw.dwHangUpExtraSampleSeconds ＝ 120
dw.dwRedialCount ＝ 0
dw.dwRedialPause ＝ 1
dw.dwIdleDisconnectSeconds ＝ #RASIDS_UseGlobalValue
dw.dwType ＝ #RASET_Vpn
dw.dwEncryptionType ＝ #ET_Optional
.判断开始 (creatType ＝ 1)
    dw.dwVpnStrategy ＝ #VS_PptpOnly
.默认

.判断结束

lstrcpy (dw.szDeviceType, #RASDT_Vpn)
lstrcpy (dw.szDeviceName, “WAN Miniport (PPTP)”)
lstrcpy (dw.szLocalPhoneNumber, “255.255.255.255”)
.如果真 (RasSetEntryProperties (creatPath, creatName, dw, dw.dwSize, 0, 0) ＝ #ERROR_SUCCESS)
    调试输出 (“创建成功”)
.如果真结束

资源下载：