|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 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=断开成功
- 功能 操作VPN(类型, VPN名称 = "", IP地址 = "", 账号 = "", 密码 = "", 延时 = 10000)
- 变量 文件 = 系统获取进程路径() & "VPN.dll"
- 变量 是否存在 = 文件是否存在(文件)
- if(是否存在 == 0)
- return false
- end
- 变量 返回值
- 选择(类型)
- 条件 0
- 返回值 = dllcall(文件, "int", "创建VPN", "char *", VPN名称)
- 条件 1
- 返回值 = dllcall(文件, "int", "连接是否存在", "char *", VPN名称)
- 条件 2
- 返回值 = dllcall(文件, "int", "VPN连接", "char *", VPN名称, "char *", IP地址, "char *", 账号, "char *", 密码, "int", 延时)
- 条件 3
- 返回值 = dllcall(文件, "int", "连接是否在线")
- 条件 4
- 变量 句柄 = 转整型(VPN名称)
- 返回值 = dllcall(文件, "int", "VPN挂断","int",句柄)
- 结束
- return 返回值
- 结束
- 功能 创建VPN(名称)
- return 操作VPN(0, 名称)
- 结束
- 功能 连接是否存在(名称)
- return 操作VPN(1, 名称)
- 结束
- 功能 VPN连接(名称, IP, 账号, 密码, 延时 = 10000)
- return 操作VPN(2, 名称, IP, 账号, 密码, 延时)
- 结束
- 功能 连接是否在线()
- return 操作VPN(3)
- 结束
- 功能 VPN挂断(句柄)
- return 操作VPN(4,句柄)
- 结束
复制代码
|
-
-
VPN.e
17.57 KB, 下载次数: 669, 下载积分: 金币 -1 个
评分
-
查看全部评分
|