按键精灵数组array
答：dim 简化,命中记录0,命中记录1,命中记录2,命中记录3,命中记录4,命中记录5,次数 命中记录0=0 次数 = 0 i = 1 For 6 简化=array(命中记录0,命中记录1,命中记录2,命中记录3,命中记录4,命中记录5)简化(次数)=简化(次数)+i TracePrint 简化(次数)i=i+1 Next 每循环一次 简化(次数)的值都+...
答：你也可以按如下方式写即可：'【比较数组内的数】'数组a = array(5, 6, 7, 8,7,8,9,0,12,45,57,8,7,45,23,23,121,12,34,654,7)'比较大小 (数组a) '比较数组内的数就方便，直接把数字名字写上即可'【直接比较数字】'比较大小 ("214,23,245,436,547,345")...
答：【评论内容fun】：在编写【评论】时，如果你的评论内容只有一条，那么可以直接写入sub，如果你想实现内容有多条，每次评论时随机抽取一条，可以将评论内容写入array（即数组），在调用时取随机数作为array的索引值，调用该索引的内容作为【评论文本】举例：Function 评论内容 dim arr_text, arr_index arr...
答：UserVar shuzu="1,3,45,5,2,34,5,6,7"dim a(3,3)i=0 m=0 n=0 MyArray = Split(shuzu, ",")For 3 For 3 a( n,m)=MyArray(i)m=m+1 i=i+1 EndFor m=0 n=n+1 EndFor
答：Text = Plugin.File.ReadFileEx("d:\新建 文本文档 (2).txt")//文档位置你自己改，QQ帐号跟密码一句一行。dim MyArray MyArray = Split(Text, "|")If UBound(MyArray)>=0 Then i=0 For UBound(MyArray)/2 Call Lib.API.运行程序("C:\Program Files\Tencent\QQ\Bin\QQ.exe")//QQ位置...
答：dim a a=Array("1","2","3","4","5","6")
答：//定义两个数组数组1 = array("A", "B", "C")数组2 = array("1", "2", "3")Do For i = 0 To UBound(数组1) For j = 0 To UBound(数组2) TracePrint 数组1(i) & 数组2(j) Delay 200 Next Next Loop ...
答：所以你应该拿MyArray(i)来用。括号里面的i代表数组下标，如果你懂数组那么这里就简单了，如果不懂就建议去好好学习一下，因为以后很多时候都会用到 。 简单点说 MyArray(0)代表它找到的第一个符合要求的窗口句柄。MyArray(1)是第2个，依次类推。你把TracePrint MyArray(i)这句加到for循环里面就...
答：还可以这样写，如果是这样，应该就是告诉了这个数组的规律，可以一直写下去，或者在用的时候在定义它的数量，
答：Hwnd = Plugin.Window.MousePoint()GetCursorPos x, y//保存当前坐标 //下面这句是得到窗口句柄的客户区大小 sRect = Plugin.Window.GetClientRect(Hwnd)//MsgBox "得到窗口句柄："& hwnd //显示句柄 //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串 //dim MyArray MyArray = Split(...
网友评论：
章雄13064972661：
按键精灵 数组 -
14401张典
： '例子1--在按键精灵内直接重定义数组 Dim AR(),i i=10 Redim AR(i) MessageBox UBound(AR)'例子2 -- 在按键精灵内错误的写法: Function 子函数() Dim AR(),i //删除此行代码可解决 i=9 Redim AR(i) MessageBox UBound(AR) End Function'例子3 -- 在VBS块内执行标准VBS语句 VBSBegin dim i i=7 call abc(i)sub abc(i) dim a() redim a(i) msgbox UBound(a) end sub VBSEnd
章雄13064972661：
按键精灵IfColor颜色判断太多,后面的比前面的慢怎么办 -
14401张典
： 对你的代码做了两处修改,一个是把while wend循环改为do loop循环,因为while循环需要判断循环条件,而do loop不判断循环条件,另外是把大多数else语句去掉,只保留最后一个作为例外情况处理 Do IfColor 844,170,＂5EAB25＂,0 Then ...
章雄13064972661：
你好,关于按键精灵问题? -
14401张典
： 按照个人习惯,一般会把【点赞】做一个sub,【评论】做一个sub,当然嫌麻烦也可以写在一起.【随机点赞】:在call【点赞】之前,取一个【0-99】的随机数,然后将该随机数与标准值进行对比,做if条件分支,条件满足则call【点赞】.举例...
章雄13064972661：
按键精灵手机助手 如何取数组中最大的一个值? -
14401张典
： 自定义函数: 思路:定义【临时变量】为零,逐个遍历数组元素进行对比,若取出元素大于【临时变量】则【临时变量】=取出元素,反之不做任何操作,继续遍历,以此得出最大值.功能:获取数组的最大值 参数:被遍历的数组 返回值:最...
章雄13064972661：
按键精灵比较一组数字的大小?比如,a=1:b=2:c=3:d=4?
14401张典
： 用比较呗!不过,若要简单的话,你这变量最好是数组,就可以用一个简单的循环去比较了.你这样多个不同变量的话......写个字函数给你,也行,你看下,自己...
章雄13064972661：
按键精灵 redim数组 -
14401张典
： Dim b(100) 定义了数组的大小.之后不可更改.dim b()这样定义动态数组.在没有定义大小之前无法使用.
章雄13064972661：
按键精灵是不是不能这样定义数组 -
14401张典
： dim a a=Array(＂1＂,＂2＂,＂3＂,＂4＂,＂5＂,＂6＂)
章雄13064972661：
我要做一个按键精灵打多图的程序,求大婶~! -
14401张典
： 如果你只是要找多图,可以用数组.比如: a=array(＂Attachment:\bj.bmp＂,＂Attachment:\11.bmp＂, ＂Attachment:\22.bmp＂,＂Attachment:\33.bmp＂,)Do For n = 0 To UBound(a) FindPic 0,0,1024,768,a(n),0.9,intX,intY If intX > 0 And intY > 0 ...
章雄13064972661：
按键精灵,怎么我给c赋值了数组变量,怎么没有的?第8行没有输出 -
14401张典
： Dim aa = array(2, 3, 5, 8)应该是先定义变量A.然后将一个数组赋值给变量 A.要定义一个数组,一般需要先定义这个数组的下标.比如dim a(2).如果要定义一个动态数组,用的时候要用ReDim定义数组的下标.不然无法使用.
章雄13064972661：
按键精灵找到图片后对应图片操作 -
14401张典
： Dim 图片组,按键组,intX,intY图片组 = array(＂Attachment:\图1.bmp＂, ＂Attachment:\图2.bmp＂, ＂Attachment:\图3.bmp＂, ＂Attachment:\图4.bmp＂)'把图片路径写入数组内按键组 = array(65, 66, 67, 68)'对应ABCD键码,具体可以自...
