为编程爱好者分享易语言教程源码的资源网

网站首页 > 易语言相关 > 系统工具源码 正文

创建拨号vpn易语言源码

三叶资源网 2017-11-19 17:34:30 系统工具源码 5111 ℃ 5 评论

资源介绍:

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

资源下载:

文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有5位网友发表了看法:

  • yiyuyan

    yiyuyan  评论于 [2021-05-19 15:58:13]  回复

    易语言建立pptp拨号

  • yiyuyan

    yiyuyan  评论于 [2021-05-19 15:58:34]  回复

    易语言更改l2tp拨号节点

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
易语言基础教程POST登陆财付通纯组件美化界面UI局域网扫描器快速排序找色多线程拨号代码超文本浏览框支持库客户端数据易语言纯画板http访问勒索病毒彗星小助手httpwacthPHP秒杀系统计算剩余时间仿易语言IDEe2ee支持库滑动验证码自媒体平台
最新评论