.版本 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) 调试输出 (“创建成功”) .如果真结束