TC官方合作论坛

标题: 谁帮忙把按键精灵的脚本转成成TC的 [打印本页]

作者: 老鼠上了猫    时间: 2015-3-10 23:41
标题: 谁帮忙把按键精灵的脚本转成成TC的
如题,小弟新手,看了几个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


作者: fuxiaojun185    时间: 2015-3-10 23:47
变量 a,hang
a = 0
Do
    a=a+1
如果(a==125)
        a=1
否则
FindPic 17,829,282,978,"c:\question\" & a & ".bmp",1,intX,intY
如果l(intX > 0 && intY > 0)
  辅助.等待( 100)
word = Plugin.File.ReadFileEx("C:\answer.txt")
辅助.等待( 100)
hang = 字符串.分割(word, "|",hang)
辅助.等待( 100)
SayString hang(a-1)
辅助.等待( 100)
KeyPresss "Enter", 1
作者: fuxiaojun185    时间: 2015-3-10 23:57
SayString hang(a-1)
辅助.等待( 100)
KeyPresss "Enter", 1
下面2个 应该tc的文件.输入,辅助.读配置,具体你试下
作者: 今非    时间: 2015-3-11 12:19
自己动手丰衣足食
作者: 老鼠上了猫    时间: 2015-3-11 19:26
fuxiaojun185 发表于 2015-3-10 23:57
SayString hang(a-1)
辅助.等待( 100)
KeyPresss "Enter", 1

朋友,语法错误耶
作者: fuxiaojun185    时间: 2015-3-18 00:28
老鼠上了猫 发表于 2015-3-11 19:26
朋友,语法错误耶:

括号中多了空格了
作者: fuxiaojun185    时间: 2015-3-18 00:29
老鼠上了猫 发表于 2015-3-11 19:26
朋友,语法错误耶:

括号中多了空格了




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