如题所述
例如数组a是问题库(你自己要先把所有问题存入数组),数组b是问题的答案库,问题和答案的下标一致,你通过找字,判断问题是数组a第几个下标的元素,然后再找相应b数组答案的字,这样就可以根据找到b数组的字(就是答案)的位置选出来。追问
能不能简单写下代码啊,大神
追答你自己都会找字了,我就写逻辑吧
//首先定义数组,这里我假如有10个问题,
Dim a(9),b(9)
a(0)="安史之乱历史长久" //不需要把所有文字都写出,只要能区分出是哪个问题即可。
//a(1)到a(9)你自行写完,这就就是我前面说的,把问题存在一个数组,组成问题库。
b(0)="唐代宗" //其他b(1)到b(9)对应a(1)到a(9)的答案。
//下面找问题,分别找a数组的字符,如果找到,就可以根据数组下标知道是第几个问题
m=-1 //初始化数值,到下面你就明白这个初始化的作用了
For i=0 To 9
dm_ret = dm.FindStr(0,0,2000,2000,a(0),"颜色自己写",1.0,x,y)
If x >= 0 Then //如果找到对应的字
m=i //记录是第几个问题
Exit For
End
If
Next
//上面m的值是记录了第几个问题,下面找答案的位置。
If m>=0 Then //如果已经找到问题
dm_ret = dm.FindStr(0,0,2000,2000,b(m),"颜色自己写",1.0,x,y) //找对应答案的位置
If x>0 Then //如果找到答案,下面的操作你随意
MoveTo x,y
LeftClick 1
End If
End If
怎么提取题库呢
追答你到底会不会按键精灵,按道理你会找字了,按键精灵语法基础应该是没问题的,我不是跟你说了吗,存在数组里面,数组明白吗?写程序要先学算法,不会算法,那么程序水平还没入门,建议你先学算法。
追问好的,谢谢。
找字我会,就是怎么用题库来选择这个答案,我没思路。。
找字我会,就是怎么用题库来选择这个答案,我没思路。。
追答你把每个问题取特征关键字放到记事本1行,制作字库时把这几个字制作成1个(组)字。问题出现时,循环取出记事本的每一行去屏幕上找,找到之后取设置好的对应的答案
追问能给写个取出笔记本去查找字的代码吗,找到第一行再去找第二行。题库有很多题怎么解决
追答既然你有题库,站到记事本就好了,管他多少题呢