TC官方合作论坛

标题: TC调用VPN(创建,连接,断开) [打印本页]
作者: fire    时间: 2016-5-20 10:47
标题: TC调用VPN(创建,连接,断开)
本帖最后由 fire 于 2017-4-13 10:21 编辑

最近在用VPN,所以通过易语言做了一个调用VPN的dll文件

若有需要易语言的VPN源代码,往下翻,免费提供,共同学习
VPN.dll共有5个函数:

1.创建VPN
函数名:创建VPN
参数①:名称(字符型)
返回值:1=创建成功;0=创建失败

2.连接是否存在
函数名:连接是否存在
参数①:名称(字符型)
返回值:1=存在;0=不存在


3.VPN连接
函数名:VPN连接
参数①:名称(字符型)
参数②:IP地址(字符型)
参数③:账号(字符型)
参数④:密码(字符型)
参数⑤:延时(整数型)
返回值:VPN句柄


4.连接是否在线
函数名:连接是否在线
无参数
返回值:1=在线;0=不在线


5.VPN挂断
函数名:VPN挂断
参数①:VPN句柄(整数型)
返回值:0=断开成功
  1. 功能 操作VPN(类型, VPN名称 = "", IP地址 = "", 账号 = "", 密码 = "", 延时 = 10000)
  2.     变量 文件 = 系统获取进程路径() & "VPN.dll"
  3.     变量 是否存在 = 文件是否存在(文件)
  4.     if(是否存在 == 0)
  5.         return false
  6.     end
  7.     变量 返回值
  8.     选择(类型)
  9.         条件 0
  10.         返回值 = dllcall(文件, "int", "创建VPN", "char *", VPN名称)
  11.         条件 1
  12.         返回值 = dllcall(文件, "int", "连接是否存在", "char *", VPN名称)
  13.         条件 2
  14.         返回值 = dllcall(文件, "int", "VPN连接", "char *", VPN名称, "char *", IP地址, "char *", 账号, "char *", 密码, "int", 延时)
  15.         条件 3
  16.         返回值 = dllcall(文件, "int", "连接是否在线")
  17.         条件 4
  18.         变量 句柄 = 转整型(VPN名称)
  19.         返回值 = dllcall(文件, "int", "VPN挂断","int",句柄)
  20.     结束
  21.     return 返回值
  22. 结束
  23. 功能 创建VPN(名称)
  24.     return 操作VPN(0, 名称)
  25. 结束
  26. 功能 连接是否存在(名称)
  27.     return 操作VPN(1, 名称)
  28. 结束
  29. 功能 VPN连接(名称, IP, 账号, 密码, 延时 = 10000)
  30.     return 操作VPN(2, 名称, IP, 账号, 密码, 延时)
  31. 结束
  32. 功能 连接是否在线()
  33.     return 操作VPN(3)
  34. 结束
  35. 功能 VPN挂断(句柄)
  36.     return 操作VPN(4,句柄)
  37. 结束
复制代码




VPN.e

17.57 KB, 下载次数: 640
作者: wwkiqpl    时间: 2016-5-20 14:29
RE: TC调用VP
作者: 个人神话    时间: 2016-5-20 17:03
个人神话，如果您要查看本帖隐藏内容请回复
作者: 个人神话    时间: 2016-5-20 17:18
正需要，可以增加，取拨号VPN后，获取到IP和网关等信息吗？
VPN又分PPTP 和L2tp 模式，可以设定吗？
作者: aoaoawei    时间: 2016-6-11 23:49
感谢楼主分享
作者: wjstmddlf    时间: 2016-6-12 18:44
作者: myaoao    时间: 2016-6-12 19:51
2112414321243
作者: childsdo1    时间: 2016-6-12 22:25
需要xxxx
作者: 雨碎江南    时间: 2016-6-22 15:11
   
作者: chihoutam    时间: 2016-7-12 21:01
很不错~~这个好
作者: wxhshm    时间: 2016-8-24 15:42
好东西
作者: tbmbx2017    时间: 2016-9-9 21:11
请让本宝宝看下吧。
作者: q892606522    时间: 2016-10-9 04:16
好东西啊,就不知道哪里有资源
作者: vioer    时间: 2016-10-28 01:19
看看，研究一下
作者: buycdkey    时间: 2016-11-3 01:58
是对方公司的风格
作者: jianyuanit    时间: 2016-11-7 14:38
HAODONGXI
作者: yanjin0917    时间: 2016-11-19 14:45
土土土土土土土土土土土
作者: xzhbban    时间: 2016-11-21 14:27
VPN，学习下看看
作者: 332475520    时间: 2016-11-23 16:03
1111111111111111111111111111
作者: suibian9091    时间: 2016-12-8 20:16
C调用VPN(创建,连接,断开)
作者: xw0207    时间: 2016-12-12 20:11
谢谢楼主分享！！！！！
作者: xw0207    时间: 2016-12-15 00:43
请问一下，DLL使用过程中出现这样的错误提示，如何解决？

QQ截图20161215003750.png (1.48 KB, 下载次数: 1)

QQ截图20161215003750.png
作者: wo110    时间: 2016-12-28 08:19
11111111111111111111111
作者: stone123123    时间: 2017-1-3 09:58
作者: chinaxhb    时间: 2017-1-9 16:53
敢发隐藏贴，TJJTDS啦...
:o本贴由隐藏贴回复机快速回复
作者: gkuxiang    时间: 2017-2-21 13:52
dddddddddd
作者: 13533234040    时间: 2017-2-22 15:27
看看看看看看看
作者: saina6281    时间: 2017-3-1 08:28
用VPN(创建,连接,
作者: 52399345    时间: 2017-3-1 11:11
二期
作者: 450520925    时间: 2017-3-17 19:36
vpn刚好需要 回复看看
作者: jdj888    时间: 2017-3-19 16:25
？？？？？？？？？？？？？？？？？？？
作者: 87010068    时间: 2017-3-31 21:51
作者: ephbon    时间: 2017-6-24 00:17
kokokokooooooooo
作者: mreight    时间: 2017-6-26 22:52
正需要 谢谢
作者: hwlzcy    时间: 2017-7-17 20:49
给力
作者: fuxiaojun185    时间: 2017-8-19 17:14
收拾收拾
作者: hgwwy    时间: 2017-9-19 12:33
谢谢分享~~看看
作者: du8899    时间: 2017-9-19 13:39
学习一下。调用E？？？？？？？？
作者: a110123    时间: 2017-9-28 22:09
6666666666666
作者: windgocr    时间: 2017-10-31 08:21
顶顶顶顶顶顶顶顶顶
作者: wudifatian    时间: 2017-12-5 13:17
不错，顶起。。。。。。。
作者: didiaoshizhe    时间: 2017-12-8 17:30
感谢楼主分享
作者: 250366688    时间: 2017-12-23 19:05
大牛大牛
作者: qyz    时间: 2017-12-27 09:49
TC调用VPN(创建,连接,断开) [修改]
高级模式
作者: huakeha    时间: 2018-1-1 18:14
厉害啊，这里宣传易语言的。
作者: ycydct    时间: 2018-1-6 10:15
看看vpn
作者: 嘻嘻嘻x    时间: 2018-3-27 11:13
11111111111111
作者: 离.离原上草    时间: 2018-4-20 17:22
1
作者: 16875755    时间: 2018-6-20 06:25
水水水水水水水水水水
作者: 317870889    时间: 2018-8-5 15:46
看看学习下



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1