如题,小弟新手,看了几个TC的教程,没搞明白,教程太少了,最好多出几个典型的脚本范例。麻烦大虾帮忙写下tc的脚本,谢谢。
按键精灵源码:
Dim a,hang
a = 0
Do
a=a+1
If a=125 Then
a=1
End If
FindPic 17,829,282,978,"c:\question\" & a & ".bmp",1,intX,intY
Loop Until intX > 0 And intY > 0
Delay 100
word = Plugin.File.ReadFileEx("C:\answer.txt")
Delay 100
hang = split(word, "|")
Delay 100
SayString hang(a-1)
Delay 100
KeyPresss "Enter", 1