TC调用VPN(创建,连接,断开)

fire

最近在用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. 结束

复制代码

游客，如果您要查看本帖隐藏内容请回复

wwkiqpl

RE: TC调用VP

个人神话

个人神话，如果您要查看本帖隐藏内容请回复

个人神话

正需要，可以增加，取拨号VPN后，获取到IP和网关等信息吗？
VPN又分PPTP 和L2tp 模式，可以设定吗？

aoaoawei

感谢楼主分享

wjstmddlf

myaoao

2112414321243

childsdo1

需要xxxx

雨碎江南

   

chihoutam

很不错~~这个好