TC官方合作论坛

标题: 写的vpn 大家看看源码请教一些问题 [打印本页]
作者: tianmenghuan    时间: 2015-9-24 01:09
标题: 写的vpn 大家看看源码请教一些问题
本帖最后由 tianmenghuan 于 2015-10-13 08:18 编辑

下面是我写的代码 现在我想添加一个功能 怎么实时输出cmd的命令？
还有就是怎么样才可以隐藏vpn的连接窗口  (也就是说不打开网络连接里面的vpn连接窗口来运行 代码应该怎么谢 )我的必须要打开这个窗口才可以的
[hide=d99999]变量 线程ID
//从这里开始执行
变量  ret,ret1,ret2,账号,密码
变量  父窗口句柄,子窗口句柄,子窗口句柄个数,子窗口句柄数组,子窗口类型,返回查找句柄,常规窗口句柄

功能 查找子窗口句柄(handle,类名)
    子窗口句柄 = 枚举窗口(父窗口句柄,3)
   
    子窗口句柄个数 = 字符串分割(子窗口句柄,"|",子窗口句柄数组)
   
    遍历(变量 i = 0; i < 子窗口句柄个数; i++)
        子窗口类型 = 窗口获取类名(子窗口句柄数组)
        如果(子窗口类型==类名)
            如果(返回查找句柄 == 0)
                返回查找句柄 = 子窗口句柄数组
            否则
                返回查找句柄 = 返回查找句柄&"|"&子窗口句柄数组
            结束  
        结束
    结束
    返回 返回查找句柄
   
结束

功能 获取ip地址()
    变量 内容 = http获取页面源码("http://www.yiqun.info/page/testvpn.html","utf-8")
    调试输出(内容)
    文件创建("d:\\1.txt","rw")
    调试输出("已创建")
    等待(100)
    变量 fd = 文件打开("d:\\1.txt","rw")
    如果(fd>0)
        文件写入字符(fd,内容)
        调试输出(fd)  
    结束
    文件关闭(fd)
    //    变量 ret,ret1,ret2,账号,密码
    ret = 文件读指定行("d:\\1.txt",53)
    调试输出(ret)
    等待(100)
    ret1=字符串移除(ret,22,真)
    调试输出(ret1)
    等待(100)
    ret2=字符串移除(ret1,13,假)
    调试输出(ret2)
    等待(100)
    编辑框设置文本("编辑框0",ret2)   
    ret = 文件读指定行("d:\\1.txt",55)
    账号=字符串截取(ret,4,13)
    调试输出(账号)
    等待(100)
    编辑框设置文本("编辑框1",账号)
    ret = 文件读指定行("d:\\1.txt",56)
    密码=字符串截取(ret,4,9)
    调试输出(密码)
    等待(100)
    编辑框设置文本("编辑框2",密码)
结束
功能 按键属性()
    父窗口句柄=窗口查找("连接 VPN 连接")
    窗口激活(父窗口句柄)
    调试输出(父窗口句柄)
    等待(100)
    子窗口句柄 = 查找子窗口句柄(父窗口句柄,"Button")
    调试输出(子窗口句柄)
    等待(100)
    子窗口句柄个数 = 字符串分割(子窗口句柄,"|",子窗口句柄数组)
    调试输出("个数:"&子窗口句柄个数)
    等待(100)
    调试输出(子窗口句柄数组)
    等待(100)
    窗口提交按键(子窗口句柄数组[7],79)
    等待(2000)
结束
功能 输入ip()
   
    父窗口句柄=窗口查找("VPN 连接 属性")
    窗口激活(父窗口句柄)
    调试输出("属性窗口:"&父窗口句柄)
    等待(100)
    常规窗口句柄=窗口查找子窗口(父窗口句柄,"常规")
    调试输出("常规窗口: "&常规窗口句柄)
    等待(100)
    子窗口句柄 = 查找子窗口句柄(常规窗口句柄,"Edit")
    调试输出("ip窗口: "&子窗口句柄)
    等待(100)
    子窗口句柄个数 = 字符串分割(子窗口句柄,"|",子窗口句柄数组)
    调试输出(子窗口句柄个数)
    等待(100)
    调试输出(子窗口句柄数组)
    等待(100)
    窗口提交字符串(子窗口句柄数组[8],ret2)
    等待(1000)
结束
功能 按键确定输入的ip()
    父窗口句柄=窗口查找("VPN 连接 属性")
    窗口激活(父窗口句柄)
    调试输出("属性窗口:"&父窗口句柄)
    等待(100)
    子窗口句柄 = 查找子窗口句柄(父窗口句柄,"Button")
    调试输出("确定窗口: "&子窗口句柄)
    等待(100)
    子窗口句柄个数 = 字符串分割(子窗口句柄,"|",子窗口句柄数组)
    调试输出(子窗口句柄个数)
    等待(100)
    调试输出(子窗口句柄数组)
    等待(100)
    窗口提交按键(子窗口句柄数组[12],13)
    等待(1000)
结束
功能 输入帐号密码()
   
    父窗口句柄=窗口查找("连接 VPN 连接")
    窗口激活(父窗口句柄)
    等待(100)
    调试输出("连接窗口:"&父窗口句柄)
    等待(100)
    子窗口句柄 = 查找子窗口句柄(父窗口句柄,"Edit")
    调试输出("帐号窗口"&子窗口句柄)
    等待(100)
    子窗口句柄个数 = 字符串分割(子窗口句柄,"|",子窗口句柄数组)
    调试输出(子窗口句柄个数)
    等待(100)
    调试输出(子窗口句柄数组)
    等待(100)
    窗口提交字符串(子窗口句柄数组[2],账号)
    等待(100)
    窗口提交字符串(子窗口句柄数组[4],密码)
    等待(100)
    窗口提交字符串(子窗口句柄数组[6],"")
    等待(100)
结束
功能  按键连接()
   
    父窗口句柄=窗口查找("连接 VPN 连接")
    窗口激活(父窗口句柄)
    等待(100)
    调试输出("连接窗口:"&父窗口句柄)
    等待(100)
    子窗口句柄 = 查找子窗口句柄(父窗口句柄,"Button")
    调试输出("连接 "&子窗口句柄)
    等待(100)
    子窗口句柄个数 = 字符串分割(子窗口句柄,"|",子窗口句柄数组)
    调试输出("个数:"&子窗口句柄个数)
    等待(100)
    调试输出(子窗口句柄数组)
//    编辑框设置文本("编辑框3",返回查找句柄&子窗口句柄数组)
    等待(100)
    窗口提交按键(子窗口句柄数组[29],67)
    等待(100)
结束


功能 执行()
    获取ip地址()
    按键属性()
    输入ip()
    按键确定输入的ip()
    输入帐号密码()
    按键连接()
结束

功能 启动_热键()
    线程ID=线程开启("执行","")
结束

//终止热键操作
功能 终止_热键()
    线程关闭(线程ID)
结束

做个些改进 大家给下意见
功能 获取相关信息(内容)
    账号 = 获取源码信息(内容,"用户：","<br />")
    密码 = 获取源码信息(内容,"密码：","<br />")
    ip = 获取源码信息(内容,"服务器：<span>","</span><br />")
    调试输出("相关信息:\n账号:"&账号&"\n密码:"&密码&"\n服务器IP:"&ip)
结束

//获取源码开始内容和结束内容之间信息
功能 获取源码信息(源码内容,开始内容,结束内容)
    //定义变量
    变量 开始位置,结束位置,开始内容长度,返回信息

    //获取开始位置
    开始位置=字符串查找(源码内容,开始内容)
    调试输出("开始位置："&开始位置)

    //获取结束位置
    结束位置=字符串查找(源码内容,结束内容,开始位置)
    调试输出("结束位置:"&结束位置)

    //获取开始内容长度
    开始内容长度 = 字符串长度(开始内容)
    返回信息 = 字符串截取(源码内容,开始位置+开始内容长度,结束位置)

    返回 返回信息
结束



[/hide]


作者: 言术    时间: 2015-9-24 06:24
Kankan
作者: asd2250    时间: 2015-9-24 08:36
1111111111111111111111
作者: asd2250    时间: 2015-9-24 08:36
1111111111111111111111
作者: 东月山    时间: 2015-9-24 09:46
这东西找了好久勒,谢谢!!
作者: lidongxu    时间: 2015-9-24 10:15
看看
作者: 个人神话    时间: 2015-9-24 10:44
用批处理连接VPN 百度 “批处理 vpn”
作者: tianmenghuan    时间: 2015-9-24 11:57
个人神话 发表于 2015-9-24 10:44
用批处理连接VPN 百度 “批处理 vpn”

大神 百度上的看的不明白 啊  就给了一段代码 在TC上怎么使用呢
作者: yy4363    时间: 2015-9-24 15:31
面是我写的代码 现在我想添加一个功能 就是自动判断是否连接成功 如果没有连接成功 弹出消息 进行重新连接
还有就是怎么样才可以隐藏vpn的连接窗口  (也就是说不打开网络连接里面的vpn连接窗口来运行 代码应该怎么谢 )我的必须要打开这个窗口才
作者: 个人神话    时间: 2015-9-24 15:46
首先，你看得懂批处理吗？
系统自带一个软件
执行 exe VPN名字 VPN用户名 VPN密码
就能自动连接了，不用打开窗口
作者: 个人神话    时间: 2015-9-24 17:42
取IP和密码
查询正则怎么使用，用正则来取，很快的，你这个写入文件，在读文件，如果频繁的话，效率很慢的
作者: tianmenghuan    时间: 2015-9-24 17:43
个人神话 发表于 2015-9-24 17:42
取IP和密码
查询正则怎么使用，用正则来取，很快的，你这个写入文件，在读文件，如果频繁的话，效率很慢的 ...

正则还没搞明白
作者: 个人神话    时间: 2015-9-24 17:53
那可以以用户名为例
//下面是代码片段
用户：feiyu3242<br />

字符串搜索“用户：”位置1
字符串搜索“<br />”位置2
然后字符串截取（位置1，位置2）
就出用户名了
作者: tianmenghuan    时间: 2015-9-24 19:29
个人神话 发表于 2015-9-24 17:53
那可以以用户名为例
//下面是代码片段
用户：feiyu3242

但是他是有两个同样用户名和密码 这个怎么处理？我开始也也想这样的
作者: 个人神话    时间: 2015-9-24 23:16
你不是只取一个账号密码就行了吗？密码是固定的。如果你想匹配多个，只能学习正则
作者: tianmenghuan    时间: 2015-9-24 23:38
个人神话 发表于 2015-9-24 23:16
你不是只取一个账号密码就行了吗？密码是固定的。如果你想匹配多个，只能学习正则 ...

我先试试
作者: tianmenghuan    时间: 2015-9-25 00:10
个人神话 发表于 2015-9-24 23:16
你不是只取一个账号密码就行了吗？密码是固定的。如果你想匹配多个，只能学习正则 ...

大神这个源码里面是有两组账号和密码的 我字符串查找位置一个是第一组的位置 一个是第二组的位置 字符串截取字符为空 这个怎么解决？
作者: tianmenghuan    时间: 2015-9-25 00:30
本帖最后由 tianmenghuan 于 2015-9-25 01:13 编辑
个人神话 发表于 2015-9-24 23:16
你不是只取一个账号密码就行了吗？密码是固定的。如果你想匹配多个，只能学习正则 ...

大神 说错了 是源码里面要查找的字符串有多个 想要的不是第一个字符串的那个位置 怎么办
大神已经解决  现在能说下批处理吗？
作者: 个人神话    时间: 2015-9-25 07:43
tianmenghuan 发表于 2015-9-25 00:30
大神 说错了 是源码里面要查找的字符串有多个 想要的不是第一个字符串的那个位置 怎么办
大神已经解决  现 ...

你对的cmd命令知道多少？用TC执行简单的CMD命令可以了吗？
作者: tianmenghuan    时间: 2015-9-25 07:51
个人神话 发表于 2015-9-25 07:43
你对的cmd命令知道多少？用TC执行简单的CMD命令可以了吗？

百度上可以查到cmd命令大全
作者: 个人神话    时间: 2015-9-25 09:02
tianmenghuan 发表于 2015-9-25 07:51
百度上可以查到cmd命令大全

查到有，和你能使用是一个不同的问题。你先试试用TC执行dir读取C盘目录结果看看行不行再继续教你。
作者: huakeha    时间: 2015-9-26 09:42
what is you mean?
作者: tianmenghuan    时间: 2015-9-26 09:45
huakeha 发表于 2015-9-26 09:42
what is you mean?

能说中文不？
作者: tianmenghuan    时间: 2015-9-26 22:03
个人神话 发表于 2015-9-24 10:44
用批处理连接VPN 百度 “批处理 vpn”

命令("rasdial \"VPN 连接\" "&账号&" "&密码,假)
这样操作怎么更改ip呢
作者: wang17615716    时间: 2015-9-27 10:03
cfbfcghfghfghfgh
作者: wang17615716    时间: 2015-9-27 10:03
cfbfcghfghfghfgh
作者: wang17615716    时间: 2015-9-27 10:03
cfbfcghfghfghfghfghfghfghfg
作者: 个人神话    时间: 2015-9-27 12:52
tianmenghuan 发表于 2015-9-26 22:03
命令("rasdial \"VPN 连接\" "&账号&" "&密码,假)
这样操作怎么更改ip呢

更改IP 的操作是写配置文件，介绍这个命令的有提到那个文件的，另外再推荐一个试用VPN，这个这几天我测试发现网址已经不能访问了
作者: 5142465    时间: 2015-9-27 20:54
1
fg1b

3
作者: 5142465    时间: 2015-9-27 20:54
444340
作者: 菜刀    时间: 2015-9-27 22:34
kankan
作者: 菜刀    时间: 2015-9-27 22:35
kankan
作者: tianmenghuan    时间: 2015-9-27 23:01
个人神话 发表于 2015-9-27 12:52
更改IP 的操作是写配置文件，介绍这个命令的有提到那个文件的，另外再推荐一个试用VPN，这个这几天我测试 ...

已经做好连接 现在是怎么判断是否连接上了
作者: tianmenghuan    时间: 2015-9-27 23:01
个人神话 发表于 2015-9-27 12:52
更改IP 的操作是写配置文件，介绍这个命令的有提到那个文件的，另外再推荐一个试用VPN，这个这几天我测试 ...

已经做好连接 现在是怎么判断是否连接上了
作者: 个人神话    时间: 2015-9-28 15:52
tianmenghuan 发表于 2015-9-27 23:01
已经做好连接 现在是怎么判断是否连接上了

执行命令有返回信息的，那个测试VPN的我在家访问不了了，还有推荐的吗？
作者: tianmenghuan    时间: 2015-9-28 18:37
个人神话 发表于 2015-9-28 15:52
执行命令有返回信息的，那个测试VPN的我在家访问不了了，还有推荐的吗？ ...

还有一个 但是我弄不了 上面有个滑动解锁
作者: 个人神话    时间: 2015-9-28 22:11
tianmenghuan 发表于 2015-9-28 18:37
还有一个 但是我弄不了 上面有个滑动解锁

速度发布出来
作者: 597148721    时间: 2015-9-28 23:54
不知道牛不牛
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: 420130    时间: 2015-9-29 15:34
看看、
作者: tianmenghuan    时间: 2015-9-30 14:47
个人神话 发表于 2015-9-28 22:11
速度发布出来

大神 看看你写的代码呗  批处理vpn的
作者: 332475520    时间: 2015-9-30 19:12
我只想说楼主这不叫VPN     楼主去学下在来发帖吧
作者: tianmenghuan    时间: 2015-9-30 20:00
332475520 发表于 2015-9-30 19:12
我只想说楼主这不叫VPN     楼主去学下在来发帖吧

大神 你写个让看看呗
作者: jianxitt    时间: 2015-9-30 21:07
111111111111
作者: yanjin0917    时间: 2015-10-1 21:00
000000000000000000000000000
作者: rjsvictor    时间: 2015-10-1 21:39
回复查看！！
作者: justme    时间: 2015-10-2 18:09
不就是宽带拨号吗
作者: 153798846    时间: 2015-10-5 21:55
111111111111111111111111111111111
作者: lvtc    时间: 2015-10-6 01:29
看看
作者: lgs540807    时间: 2015-10-7 22:52
4524503245
作者: c724211922    时间: 2015-10-8 00:49
学习一下
作者: haugdon    时间: 2015-10-8 11:19
可以
作者: chendechun00    时间: 2015-10-8 19:12
参观膜拜
作者: 15131240422    时间: 2015-10-10 01:55
3244234234
作者: 15131240422    时间: 2015-10-10 01:55
3244234234
作者: 15131240422    时间: 2015-10-10 01:55
3244234234
作者: yjbdmc    时间: 2015-10-10 07:06
kkkkkkkkkkkkkkkkkkk
作者: jushunhe    时间: 2015-10-11 19:07
大家看看源码请教一些问题
作者: skliza40628    时间: 2015-10-12 18:28
..........
作者: 490931721    时间: 2015-10-12 21:26
作者: 490931721    时间: 2015-10-12 21:26
作者: 898563961    时间: 2015-10-15 15:47
kk看看
作者: maotcmao    时间: 2015-10-17 20:09
...............................
作者: qwer677    时间: 2015-10-20 18:30
淡淡的淡淡的淡淡的淡淡的淡淡
作者: lw8808    时间: 2015-10-21 01:35
klanksafdas df sd
作者: cx100115963    时间: 2015-10-21 20:09
感到翻跟斗翻跟斗
作者: pkeee    时间: 2015-10-23 00:10
222222222222222222222222222
作者: 2115748    时间: 2015-10-23 10:51
看看
作者: qwe1063422121    时间: 2015-10-23 13:56
.........
作者: wpql512    时间: 2015-10-24 17:37
111111111
作者: vclass    时间: 2015-10-26 09:52
恢复回复恢复
作者: aoaoawei    时间: 2015-11-2 21:55
感谢楼主分享
作者: somyyy    时间: 2015-11-9 01:05
看看
作者: 西早令页    时间: 2015-11-9 17:03
谢谢分享！
作者: xie0080    时间: 2015-11-9 20:17
uqv9uqv9uqv9uqv9
作者: xia3264024    时间: 2015-11-11 17:26
11111111111111111
作者: 39413100    时间: 2015-11-17 02:12
xuexi,,,,,,,,,
作者: bb622553    时间: 2015-11-17 04:24
感谢哒哒
作者: lp781004    时间: 2015-11-22 21:08
我要看看
作者: woshisheiwo4    时间: 2015-11-23 13:36
看看
作者: hujing617    时间: 2015-11-24 14:15
jjjsjjsjsjjs
作者: zhoulanqiao    时间: 2015-11-28 16:34
6541gb5f45g4f
作者: sutuan1106    时间: 2015-12-12 06:16
作者: 12522    时间: 2015-12-14 01:58
hhha1
作者: lzq91514    时间: 2015-12-20 09:52
,,,,,,
作者: 一杯水    时间: 2015-12-20 17:07
···········
作者: 184706356    时间: 2015-12-21 02:00
学习学习学习
作者: swzhu369    时间: 2015-12-26 22:54
看下效果如何~
作者: sd172240    时间: 2016-1-12 14:13
收藏了。谢谢楼主分享
作者: jackiecn111    时间: 2016-1-12 22:50
看看
作者: dt12319    时间: 2016-1-13 08:11
钱钱钱钱钱钱钱钱钱
作者: maochao    时间: 2016-1-15 21:36
101010
作者: tjkd001    时间: 2016-4-7 12:08
111111111111111111111111111111



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