精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到

谋生 求职/招聘- 论坛接单- 资源出售

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

若快打码 快速★准确★稳定★便宜2018年好项目,每月多挣好多钱长期 包养全网交友粉大户┏ E3 E5 X58超强双路服务器 ┓找软件作者合作/收购引流软件██打码兔秒杀一切验证码██
若快打码 快速★准确★稳定★便宜2018年好项目,每月多挣好多钱长期 包养全网交友粉大户┃单进程单IP每个模拟器IP不同┃找软件作者合作/收购引流软件█打码兔答题 速度快 极稳定█
全国PPTP秒换IP 动态IP仅35元/月火眼答题-韩文日文-高质量答题长期 包养全网交友粉大户┗价格美丽。性能无敌 请咨询┛找软件作者合作/收购引流软件┏█收购一切流量Q:503830000█┓
云速打码全天50%分成★稳定★快速▇QQ新科技软件▇随时更新▇长期 包养全网交友粉大户★滴滴答题★8元万码★分成任加★找软件作者合作/收购引流软件Thewolf语音验证码接收平台可API
诺宾混拨动态vps/PPTP多地区换IP█IP精灵█最强大的动态IP加速器各种【活粉变现点这里】客服①长期出QQ群QQ号微信精准粉网挣粉找软件作者合作/收购引流软件大量租售各种qq小号 2892721932
┏ 集团收量,高价无限收一切量 ┓╔ 收粉丶卖粉丶大型①群 ╗各种【活粉变现点这里】客服①高价收购任何微信QQ粉找软件作者合作/收购引流软件大量收QQ活粉交友粉
┃ 收量:短视频引流,直播平台粉┃ 收粉丶卖粉丶大型①群各种【活粉变现点这里】客服②高价收购任何微信QQ粉找软件作者合作/收购引流软件大量收QQ活粉交友粉
┃ 收量:各大招聘网站一手简历 ┃收粉丶卖粉丶大型①群各种【活粉变现点这里】客服②高价收购任何微信QQ粉找软件作者合作/收购引流软件大量收QQ活粉交友粉
┃ 收量:短信、邮箱qun发通道 ┃收粉丶卖粉丶大型①群各种【活粉变现点这里】客服③高价收购任何微信QQ粉寻求有项目的大神合作 收快手火山抖音 小视频引流
┗ 收粉:网赚粉/精准粉,交友粉 ┛收粉丶卖粉丶大型①群各种【活粉变现点这里】客服③高价收购任何微信QQ粉寻求有项目的大神合作 收快手火山抖音 小视频引流
┏公司实力高价 收 引流软件渠道┓收粉丶卖粉丶大型①群██大量收婚恋宝妈 快手 火山██实力公司日消耗大量QQ粉有货MM寻求有项目的大神合作 收快手火山抖音 小视频引流
┃公司实力高价 收 引流软件渠道┃收粉丶卖粉丶大型①群██ 稳定收交友粉,找我换钱 ██实力公司日消耗大量QQ粉有货MM寻求有项目的大神合作 收快手火山抖音 小视频引流
┃公司实力高价 收 引流软件渠道┃╚ 收粉丶卖粉丶大型①群 ╝██收婚恋粉宝妈粉,找我换钱██实力公司日消耗大量QQ粉有货MM寻求有项目的大神合作 收快手火山抖音 小视频引流
┃公司实力高价 收 引流软件渠道┃大量收精准粉██收快手火山虎牙,找我换钱██实力公司日消耗大量QQ粉有货MM寻求有项目的大神合作收网赚粉 / 精准粉 / 兼职粉
┃公司实力高价 收 引流软件渠道┃大量收精准粉██长期大量收粉量大量小都吃██实力公司日消耗大量QQ粉有货MM寻求有项目的大神合作收网赚粉 / 精准粉 / 兼职粉
┃公司实力收 qun 发 邮箱软件 ┃大量收精准粉██ 婚恋/抖音/宝妈/空间/快手██★高薪诚聘SEO大牛 高价买任何量★寻求有项目的大神合作收网赚粉 / 精准粉 / 兼职粉
┃公司实力收 qun 发 邮箱软件 ┃大量收精准粉███有量有质量,找我换钱███★高薪诚聘SEO大牛 高价买任何量★寻求有项目的大神合作收网赚粉 / 精准粉 / 兼职粉
┃公司实力收 qun 发 邮箱软件 ┃大量收精准粉███实力大型公司收媒体量███★高薪诚聘SEO大牛 高价买任何量★寻求有项目的大神合作收网赚粉 / 精准粉 / 兼职粉
┃公司实力收 qun 发 邮箱软件 ┃大量收精准粉███大量资金,来一手代理███★高薪诚聘SEO大牛 高价买任何量★寻求有项目的大神合作收精准粉、用户量、也可联运营
┃公司实力收 qun 发 邮箱软件 ┃大量收精准粉███有量就有钱,速度来撩███★高薪诚聘SEO大牛 高价买任何量★寻求有项目的大神合作收精准粉、用户量、也可联运营
┃公司最高价收 邮件qun发软件┃█长期大量收购各种活粉█┃  全网大量收  ┃███各类QQ小号███寻求有项目的大神合作收精准粉、用户量、也可联运营
┃公司最高价收 邮件qun发软件┃█ 长期收购各种引流软件 █┃ 各种App交友粉 ┃███各类QQ小号███寻求有项目的大神合作收精准粉、用户量、也可联运营
┃公司最高价收 邮件qun发软件┃大量微信寻合作 接各种扫码授权┃   网赚粉   ┃收抖音火山王者引流:1513888885寻求有项目的大神合作收精准粉、用户量、也可联运营
┃公司最高价收 邮件qun发软件┃大量出2年以上三无QQ 可秒绑微信┃   游戏粉   ┃收抖音火山王者引流:1513888885寻求有项目的大神合作收精准粉、用户量、也可联运营
┗公司最高价收 邮件qun发软件┛▇ 1卡绑10QQ 0月租 10张包邮 ▇┃   婚恋粉   ┃┃找邮件代发,邮件群发通道┃寻求有项目的大神合作收精准粉、用户量、也可联运营
██---收网吧量exe下发量---██收男粉微信扫码进群QQ1324888881┃  各种活人粉  ┃找QQ群,微博,微信朋友圈广告推广寻求有项目的大神合作收精准粉、用户量、也可联运营
██-----收PC量 下载站量-----██大量收男粉扫码进群QQ1324888881 ┃   短视频粉  ┃代发短信+邮件寻求有项目的大神合作收精准粉、用户量、也可联运营
██ 欢迎QQ产品类作者私聊 ██☆收微信公众号粉丝.日结┃ 全网最高单价收购 ┃代发短信+邮件寻求有项目的大神合作收精准粉、用户量、也可联运营
██完全无投诉静默不影响产品██☆收微信公众号粉丝.日结寻求 媒体量合作 有资源的撩我代发短信+邮件寻引流高手合作/1万粉以下勿扰十年暴利项目实地考察+上门服务
██日收入几K至1W+ 正规用途██☆收微信公众号粉丝.日结寻求 媒体量合作 有资源的撩我代发短信+邮件寻引流高手合作/1万粉以下勿扰十年暴利项目实地考察+上门服务
量收微信扫码进群粉,实力粉商来撩☆收微信公众号粉丝.日结寻求 媒体量合作 有资源的撩我代发短信+邮件寻引流高手合作/1万粉以下勿扰十年暴利项目实地考察+上门服务
量收微信扫码进群粉,实力粉商来撩出少量网赚粉+微信:qunfa000寻求 媒体量合作 有资源的撩我██ 日出大量网赚粉/交友粉 ██寻引流高手合作/1万粉以下勿扰高价收网吧量联系QQ2088724059
量收微信扫码进群粉,实力粉商来撩出少量网赚粉+微信:qunfa000寻求 媒体量合作 有资源的撩我寻网吧端,下载站,各种端合作寻引流高手合作/1万粉以下勿扰★长期收购各种粉★引流软件★
★动态S5.可换地区可混拨可定时★收购跳转微信QQ加粉量Q88128851大量出活令牌处号一个月号出精准粉,量大来谈寻引流高手合作/1万粉以下勿扰====QQ小号====
GPK AG OG流量交流群出兼职粉有实力的来大量出活令牌处号一个月号大量收微信男粉QQ249813919寻引流高手合作/1万粉以下勿扰收大量微信裂变粉Q2820301656
█全新处Q██活令牌Q██邮箱Q██拨号VPS服务器4元/天免费测试█大量出活令牌处号一个月号出兼职,网赚,交友粉,扫码进群寻引流高手合作/1万粉以下勿扰我要租广告位
查看: 949|回复: 10
收起左侧

[已解决] 易语言判断vpn

 关闭 [复制链接]

签到天数:18 天

结帖率:94% (31/33)
发表于 2018-7-12 22:43:19 | 显示全部楼层 |阅读模式
5精币
易语言判断vpn是否连接成功,大侠们,谢谢了!

最佳答案

查看完整内容

最简单的就是取ipconfig返回判断 网上很多相关模块 可以直接调用 连接成功会返回连接句柄 各种相关api查询 下面给个例子 [e=1].版本 2 .子程序 是否已连接, 逻辑型, 公开 .局部变量 connections, RASCONN, , "10", 拨号连接数组,假设为10个 .局部变量 longSize, 整数型 .局部变量 intAvailabelConnections, 整数型, , , 活动的拨号连接的实际数目 .局部变量 intIndex, 整数型 .局部变量 dwResult, 整数型 connectio ...

回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 帖子申请荣誉值,获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳

签到天数: 22 天

结帖率:100% (11/11)
发表于 2018-7-12 22:43:20 | 显示全部楼层
最简单的就是取ipconfig返回判断
网上很多相关模块 可以直接调用 连接成功会返回连接句柄
各种相关api查询
下面给个例子
  
子程序名返回值类型公开备 注
是否已连接逻辑型
变量名类 型静态数组备 注
connectionsRASCONN 10拨号连接数组,假设为10个
longSize整数型  
intAvailabelConnections整数型 活动的拨号连接的实际数目
intIndex整数型  
dwResult整数型  
connections [1].dwSize = api_GlobalSize_rasconn (connections [1])
longSize = 10 × connections [1].dwSize  ' 接收活动连接的缓冲区大,拨号连接数组,假设为10个
intAvailabelConnections = 0  ' 获取所有活动的拨号连接的信息(连接句柄和设置信息)
dwResult = Ras_枚举连接 (connections, longSize, intAvailabelConnections)
如果真 (dwResult ≠ 0)
返回 ()
计次循环首 (intAvailabelConnections, intIndex)
如果真 (到小写 (到文本 (connections [intIndex].szDeviceType)) = “vpn”)
返回 ()

计次循环尾 ()
返回 ()

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

签到天数: 4 天

结帖率:100% (3/3)
发表于 2018-7-12 22:45:22 | 显示全部楼层
获取wai网IP地址,看看和一开始一不一样

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

发表于 2018-7-12 22:45:33 | 显示全部楼层
emmm,你可以这样:开机启动软件,获取IP,然后检测的时候再获取一遍IP,如果和之前的IP不一样,就说明VPN链接成功,否则失败

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

签到天数: 4 天

结帖率:100% (3/3)
发表于 2018-7-12 22:52:02 | 显示全部楼层
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
原IP文本型  

子程序名返回值类型公开备 注
_检测是否VPN连接成功_被单击  
信息框 (到文本 (原IP = 网页_取外网IP ()), 0, , )
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
原IP = 网页_取外网IP ()

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

签到天数: 2 天

发表于 2018-7-12 22:57:00 高大上手机用户 | 显示全部楼层
很久前写的VPN连接模块,不知道能否有用    链接:https://pan.baidu.com/s/1_Q2K596xdtQYg6Sa7UqYow 密码:gvO7   

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

签到天数: 4 天

结帖率:100% (3/3)
发表于 2018-7-12 23:28:38 | 显示全部楼层
  
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
原IP文本型  

子程序名返回值类型公开备 注
_检测是否VPN连接成功_被单击  
信息框 (到文本 (原IP = 网页_取外网IP ()), 0, , )
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
原IP = 网页_取外网IP ()

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

签到天数: 22 天

结帖率:100% (11/11)
发表于 2018-7-13 00:37:19 | 显示全部楼层
DLL

.版本 2

.数据类型 RASCONN, , 活动的拨号连接的句柄和设置信息
    .成员 dwSize, 整数型, , , 该结构所占内存的大小(Bytes), 一般设置为SizeOf(RASCONN)
    .成员 hrasconn, 整数型, , , 活动连接的句柄
    .成员 szEntryName, 字节型, , "257", 活动连接的名称
    .成员 szDeviceType, 字节型, , "17", 活动连接的所用的设备类型
    .成员 szDeviceName, 字节型, , "129", 活动连接的所用的设备名称
    .成员 lpcb, 字节型

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

签到天数: 22 天

结帖率:100% (11/11)
发表于 2018-7-13 00:41:36 | 显示全部楼层
  
DLL命令名返回值类型公开备 注
api_GlobalSize_rasconn整数型 取rasconn结构尺寸
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
GlobalSize
参数名类 型传址数组备 注
结构RASCONN 
DLL命令名返回值类型公开备 注
Ras_枚举连接整数型 获取所有活动的拨号连接的信息(连接句柄和设置信息),返回值为0时表示执行成功,非0表示错误代码。
DLL库文件名:
Rasapi32.dll
在DLL库中对应命令名:
RasEnumConnectionsA
参数名类 型传址数组备 注
lprasconnRASCONN接收活动连接的缓冲区的指针
lpcb整数型 缓冲区大小
lpcConnections整数型 实际的活动连接数

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

签到天数: 18 天

结帖率:94% (31/33)
 楼主| 发表于 2018-7-13 01:01:27 | 显示全部楼层
asfor78 发表于 2018-7-13 00:41
[e=1].版本 2

.DLL命令 api_GlobalSize_rasconn, 整数型, "kernel32.dll", "GlobalSize", , 取rasconn结 ...

怎么用啊?有源码吗?

您可以选择打赏方式支持他

打赏
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

关闭

精易论坛 - 有你更精彩上一条 /2 下一条

快速回复 收藏帖子 返回列表 按钮

sitemap|易语言源码|易语言教程|易语言论坛|诚聘英才|易语言模块|手机版|联系我们|精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有,任何人以任何方式翻录、盗版、破解本站培训课程,我们必将通过法律途径解决!
公司简介:揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发,多年来为中小企业编写过许许多多各式软件,并把多年积累的开发经验逐步录制成视频课程供学员学习,让学员全面系统化学习易语言编程,少走弯路,减少对相关技术的研究与摸索时间,从而加快了学习进度!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.2 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125

快速回复 返回顶部 返回列表