【院刊】-【201410期】如何循环点击无规律的坐标呢？ _ 学院院刊

查看: 24441\|回复: 90	[技术交流] 【院刊】-【201410期】如何循环点击无规律的坐标呢？ [复制链接]

果兒

组别初中三年级
UID2220985
帖子396
精华0
鲜花522 朵
铜币2506 个
银币334 个
在线时间480
注册时间2013-10-27

1^#

字体大小: t T

发表于 2014-10-24 14:59 | |只看楼主

如何循环点击无规律的坐标呢？

需要点击的坐标点没有规律？怎么办呢？坐标值没有规律，我们就无法用变量代替它进行变化，那是不是意味着，我要点击10个点，就要重复写十行代码呢？想让咱重复写代码？门儿都没有！锵锵锵，小编这里分享一个好用的方法，咱一起来看看~~

思路分析

1、 把我们要点击的坐标点都放到一个字符串变量中，例如：
字符串 = "345,56>214,36>77,88>89,21>39,78>11,20>67,34>80,51>13,63"

复制代码

2、 写一个函数Sub StrToArr(字符串)用来转换分割字符串里的坐标。
咱们看这个字符串，它一共有9个坐标，分别用>这个符合分割开。
"345,56>214,36>77,88>89,21>39,78>11,20>67,34>80,51>13,63"
用split分割函数分割字符串，并且保存到数组arrx里：arrX = Split(字符串, ">")

3、 分割好字符串之后，arrx里存放的数据情况如下：
arrx(0)=345,56
arrx(1)=214,36
arrx(2)=77,88
arrx(3)=89,21
arrx(4)=39,78
arrx(5)=11,20
arrx(6)=67,34
arrx(7)=80,51
arrx(8)=13,63

4、 分割好字符串之后，arry里存放的数据情况如下：
arrx(0)=345,56 分割之后： arry(0)=345 arry(1)=56
arrx(1)=214,36 分割之后： arry(0)=214 arry(1)=36
arrx(2)=77,88 分割之后： arry(0)=77 arry(1)=88
arrx(3)=89,21 分割之后： arry(0)=89 arry(1)=21
以此类推……

我们需要使用二维数组来记录： ArrMap(UBound(arrX),UBound(arrY))
ArrMap二维数组，第一维的元素个数是分割 "> "这个符号的个数，即：坐标个数。
第二维的元素个数是分割 "， "这个符号的个数，即：x坐标和y坐标

看表格更加直观：

分割 "> " arrX(0-8)
分割 ", " arry(0) x坐标
分割 ", " arry(1) y坐标
345,56
ArrMap(0,0) =345

ArrMap(0,1) =56
214,36
ArrMap(1,0) =214

ArrMap(1,1) =36
77,88
ArrMap(2,0) =77

ArrMap(2,1) =88
89,21
ArrMap(3,0) =89

ArrMap(3,1) =21
39,78
ArrMap(4,0) =39

ArrMap(4,1) =78
11,20
ArrMap(5,0) =11

ArrMap(5,1) =20
67,34
ArrMap(6,0) =67

ArrMap(6,1) =34
80,51
ArrMap(7,0) =80

ArrMap(7,1) =51
13,63
ArrMap(8,0) =13
ArrMap(8,1) =63

5、调用Sub StrToArr(字符串) 分割坐标，循环点击坐标点。

代码

字符串 = "345,56>214,36>77,88>89,21>39,78>11,20>67,34>80,51>13,63"
Call StrToArr(字符串)
For i = 0 To UBound(ArrMap, 1)
MoveTo arrmap(i, 0), arrmap(i, 1)
TracePrint arrmap(i, 0)& ","&arrmap(i, 1)
LeftClick 1
Next
Sub StrToArr(字符串)
Dim i, j, arrX, arrY
arrX = Split(字符串, ">")
For i = 0 To UBound(arrX)
arrY = Split(arrX(i), ",")
For j = 0 To UBound(arrY)
If j = 0 and i = 0 Then
Redim ArrMap(UBound(arrX),UBound(arrY))
End If
ArrMap(i, j) = arrY(j)
next
Next
End Sub

复制代码

注意：
If j = 0 and i = 0 Then
Redim ArrMap(UBound(arrX),UBound(arrY))
End If
这里为什么要在j和i都等于0的时候，定义数组ArrMap的维数和元素个数呢？
因为当j=0 and i=0 的时候，循环才刚刚开始，而二维数组必须要定义才能使用，所以我们需要在循环开始的时候定义，并且，只定义一次。

方法二

字符串 = "345,56>214,36>77,88>89,21>39,78>11,20>67,34>80,51>13,63"
坐标 = Split(字符串, ">")
For i = 0 To UBound(坐标)
Execute "MoveTo " & 坐标(i)
MsgBox 坐标(i)
Next

复制代码

这里使用了vbs的 Execute语句：执行一个或多个指定的语句。
将Moveto 坐标(i) 直接转换为可执行语句，
是一种简单暴-力的解决方法，大赞！
特别感谢 神梦科技 童鞋无私的分享了这个方法，鼓掌~~

如果童鞋们对于本帖里的内容有疑问或者建议，欢迎跟帖讨论~~

: 您所在的用户组无法下载或查看附件

本文由按键学院提供技术支持
2个月学会赚大钱的脚本
按键学院10月实战班卷土来袭

已有2评分我要评分查看所有评分

本主题由超级版主瑞祥幽冥狼于 2022/5/2 20:54:00 执行审核帖子操作

按键学院免费交流群：376122403

按键学院招生计划
按键学院系统教程

回顶部

发送短消息 UID 3669300 帖子 96 精华 0 鲜花 0 朵铜币 269 个银币 0 个性别在线时间 1400 注册时间 2015-12-27 最后登录 2016-08-05 查看公共资料搜索主题搜索帖子 hellofage hellofage 组别小学五年级 UID3669300 帖子96 精华0 鲜花0 朵铜币269 个银币0 个在线时间1400 注册时间2015-12-27	2^# 字体大小: t T 发表于 2016-08-03 10:03 \| \|只看该用户


	回顶部

发送短消息 UID 3864212 帖子 92 精华 0 鲜花 0 朵铜币 242 个银币 160 个性别在线时间 6460 注册时间 2016-04-13 最后登录 2017-11-12 查看公共资料搜索主题搜索帖子 13857755164 13857755164 组别小学五年级 UID3864212 帖子92 精华0 鲜花0 朵铜币242 个银币160 个在线时间6460 注册时间2016-04-13 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	3^# 字体大小: t T 发表于 2016-10-29 15:13 \| \|只看该用户高房价房管局


	回顶部

发送短消息 UID 4185870 帖子 478 精华 0 鲜花 -2 朵铜币 883 个银币 -2 个性别在线时间 11320 注册时间 2016-10-29 最后登录 2017-04-10 376003598 查看公共资料搜索主题搜索帖子 zh2151011 zh2151011 组别高中一年级 UID4185870 帖子478 精华0 鲜花-2 朵铜币883 个银币-2 个在线时间11320 注册时间2016-10-29	4^# 字体大小: t T 发表于 2016-11-01 17:21 \| \|只看该用户电位器的


	回顶部

发送短消息 UID 3791944 帖子 161 精华 0 鲜花 0 朵铜币 431 个银币 0 个性别在线时间 3040 注册时间 2016-03-05 最后登录 2018-02-10 查看公共资料搜索主题搜索帖子 15559598678 组别初中一年级 UID3791944 帖子161 精华0 鲜花0 朵铜币431 个银币0 个在线时间3040 注册时间2016-03-05	5^# 字体大小: t T 发表于 2016-11-01 19:15 \| \|只看该用户


	回顶部

发送短消息 UID 3012400 帖子 8 精华 0 鲜花 0 朵铜币 27 个银币 0 个性别在线时间 120 注册时间 2015-01-16 最后登录 2016-11-06 12345 查看公共资料搜索主题搜索帖子 juranke juranke 组别幼儿园 UID3012400 帖子8 精华0 鲜花0 朵铜币27 个银币0 个在线时间120 注册时间2015-01-16	6^# 字体大小: t T 发表于 2016-11-06 21:55 \| \|只看该用户我看看，谢谢，谢谢了，呵呵呵呵


	回顶部

发送短消息 UID 3511812 帖子 120 精华 0 鲜花 -2 朵铜币 254 个银币 -2 个性别在线时间 1660 注册时间 2015-10-09 最后登录 2017-04-19 查看公共资料搜索主题搜索帖子江枫羽组别小学六年级 UID3511812 帖子120 精华0 鲜花-2 朵铜币254 个银币-2 个在线时间1660 注册时间2015-10-09	7^# 字体大小: t T 发表于 2016-11-08 23:51 \| \|只看该用户


	回顶部

发送短消息 UID 4173109 帖子 84 精华 0 鲜花 1 朵铜币 443 个银币 -2 个性别在线时间 1780 注册时间 2016-10-21 最后登录 2019-04-03 357533332 查看公共资料搜索主题搜索帖子 lc85926142 lc85926142 组别小学四年级 UID4173109 帖子84 精华0 鲜花1 朵铜币443 个银币-2 个在线时间1780 注册时间2016-10-21 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	8^# 字体大小: t T 发表于 2016-11-11 15:50 \| \|只看该用户


	回顶部

发送短消息 UID 4200594 帖子 73 精华 0 鲜花 3 朵铜币 439 个银币 0 个性别在线时间 1960 注册时间 2016-11-08 最后登录 2017-07-10 298290 查看公共资料搜索主题搜索帖子 peacesiyu peacesiyu 组别小学四年级 UID4200594 帖子73 精华0 鲜花3 朵铜币439 个银币0 个在线时间1960 注册时间2016-11-08	9^# 字体大小: t T 发表于 2016-11-17 19:58 \| \|只看该用户如何循环点击无规律的坐标呢？


	回顶部

发送短消息 UID 3934972 帖子 106 精华 0 鲜花 0 朵铜币 263 个银币 0 个性别在线时间 4640 注册时间 2016-05-24 最后登录 2017-07-04 查看公共资料搜索主题搜索帖子 448020037 448020037 组别小学五年级 UID3934972 帖子106 精华0 鲜花0 朵铜币263 个银币0 个在线时间4640 注册时间2016-05-24	10^# 字体大小: t T 发表于 2016-11-23 20:28 \| \|只看该用户


	回顶部

发送短消息 UID 2046181 帖子 357 精华 0 鲜花 24 朵铜币 939 个银币 30 个性别在线时间 9200 注册时间 2013-08-01 最后登录 2024-03-01 759947931 查看公共资料搜索主题搜索帖子 fkldl fkldl 组别初中三年级 UID2046181 帖子357 精华0 鲜花24 朵铜币939 个银币30 个在线时间9200 注册时间2013-08-01	11^# 字体大小: t T 发表于 2016-11-24 00:59 \| \|只看该用户好象有用啊


	回顶部

发送短消息 UID 4190551 帖子 125 精华 0 鲜花 0 朵铜币 180 个银币 0 个性别在线时间 2960 注册时间 2016-11-01 最后登录 2017-02-05 469772668 查看公共资料搜索主题搜索帖子 zz_blizzard zz_blizzard 组别小学六年级 UID4190551 帖子125 精华0 鲜花0 朵铜币180 个银币0 个在线时间2960 注册时间2016-11-01	12^# 字体大小: t T 发表于 2016-11-25 16:18 \| \|只看该用户 dfsdaffhjkyu878o9


	回顶部

发送短消息 UID 3171763 帖子 22 精华 0 鲜花 0 朵铜币 70 个银币 0 个性别在线时间 720 注册时间 2015-04-03 最后登录 2017-06-13 查看公共资料搜索主题搜索帖子大连土豆大连土豆组别幼儿园 UID3171763 帖子22 精华0 鲜花0 朵铜币70 个银币0 个在线时间720 注册时间2015-04-03	13^# 字体大小: t T 发表于 2016-12-13 23:48 \| \|只看该用户来学习的，看看


	回顶部

发送短消息 UID 3714905 帖子 110 精华 0 鲜花 -1 朵铜币 210 个银币 -1 个性别在线时间 4620 注册时间 2016-01-20 最后登录 2017-04-23 1092348847 查看公共资料搜索主题搜索帖子 elunevenus elunevenus 组别小学六年级 UID3714905 帖子110 精华0 鲜花-1 朵铜币210 个银币-1 个在线时间4620 注册时间2016-01-20	14^# 字体大小: t T 发表于 2016-12-23 00:00 \| \|只看该用户欢迎常来帮助


	回顶部

发送短消息 UID 470828 帖子 46 精华 0 鲜花 0 朵铜币 128 个银币 160 个性别在线时间 1440 注册时间 2010-07-27 最后登录 2017-01-15 110398385 查看公共资料搜索主题搜索帖子 kfyniriu kfyniriu 组别小学二年级 UID470828 帖子46 精华0 鲜花0 朵铜币128 个银币160 个在线时间1440 注册时间2010-07-27 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	15^# 字体大小: t T 发表于 2016-12-23 00:38 \| \|只看该用户 R哈哈哈哈哈


	回顶部

发送短消息 UID 2864836 帖子 32 精华 0 鲜花 -1 朵铜币 69 个银币 59 个性别在线时间 320 注册时间 2014-11-10 最后登录 2017-03-13 594470882 查看公共资料搜索主题搜索帖子 a540969928 a540969928 组别小学二年级 UID2864836 帖子32 精华0 鲜花-1 朵铜币69 个银币59 个在线时间320 注册时间2014-11-10 按键精灵开发者3级可通过提升认证等级来升级勋章：rz.anjian.com	16^# 字体大小: t T 发表于 2016-12-25 18:40 \| \|只看该用户 hhhhhhhhhhhhhhhhhhhhhhhhhj


	回顶部

发送短消息 UID 2927135 帖子 12 精华 0 鲜花 0 朵铜币 22 个银币 0 个性别在线时间 140 注册时间 2014-12-08 最后登录 2016-12-27 12345 查看公共资料搜索主题搜索帖子 ak47ok ak47ok 组别幼儿园 UID2927135 帖子12 精华0 鲜花0 朵铜币22 个银币0 个在线时间140 注册时间2014-12-08	17^# 字体大小: t T 发表于 2016-12-26 18:26 \| \|只看该用户每次回帖、谢谢！辛苦了。学习


	回顶部

发送短消息 UID 1722173 帖子 78 精华 0 鲜花 -2 朵铜币 160 个银币 -2 个性别在线时间 2960 注册时间 2013-04-06 最后登录 2017-04-03 164826421 查看公共资料搜索主题搜索帖子 ajieloveme ajieloveme 组别小学四年级 UID1722173 帖子78 精华0 鲜花-2 朵铜币160 个银币-2 个在线时间2960 注册时间2013-04-06	18^# 字体大小: t T 发表于 2016-12-29 07:21 \| \|只看该用户


	回顶部

发送短消息 UID 2689791 帖子 146 精华 0 鲜花 0 朵铜币 2349 个银币 24 个性别在线时间 1380 注册时间 2014-08-18 最后登录 2018-01-09 12345 查看公共资料搜索主题搜索帖子 laoye1968 laoye1968 组别小学六年级 UID2689791 帖子146 精华0 鲜花0 朵铜币2349 个银币24 个在线时间1380 注册时间2014-08-18	19^# 字体大小: t T 发表于 2017-01-20 16:28 \| \|只看该用户【院刊】-【201410期】如何循环点击无规律的坐标呢？


	回顶部

发送短消息 UID 4005733 帖子 193 精华 0 鲜花 -2 朵铜币 393 个银币 0 个性别在线时间 2840 注册时间 2016-07-08 最后登录 2018-02-24 查看公共资料搜索主题搜索帖子 q1393395940 组别初中一年级 UID4005733 帖子193 精华0 鲜花-2 朵铜币393 个银币0 个在线时间2840 注册时间2016-07-08 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	20^# 字体大小: t T 发表于 2017-01-28 21:51 \| \|只看该用户
	[img]http://i.WoTuLa.com/msn.png[/img]

	回顶部

上一主题| 下一主题

[技术交流] 【院刊】-【201410期】如何循环点击无规律的坐标呢？ [复制链接]