TC官方合作论坛

 找回密码
 立即注册
查看: 447|回复: 6
打印 上一主题 下一主题

[问题] 谁帮忙把按键精灵的脚本转成成TC的

[复制链接]
跳转到指定楼层
楼主
发表于 2015-3-10 23:41:57 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
如题,小弟新手,看了几个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

回复

使用道具 举报

沙发
发表于 2015-3-10 23:47:19 | 只看该作者
变量 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
回复 支持 反对

使用道具 举报

板凳
发表于 2015-3-10 23:57:16 | 只看该作者
SayString hang(a-1)
辅助.等待( 100)
KeyPresss "Enter", 1
下面2个 应该tc的文件.输入,辅助.读配置,具体你试下
回复 支持 反对

使用道具 举报

地板
发表于 2015-3-11 12:19:38 | 只看该作者
自己动手丰衣足食
回复 支持 反对

使用道具 举报

5#
 楼主| 发表于 2015-3-11 19:26:29 | 只看该作者
fuxiaojun185 发表于 2015-3-10 23:57
SayString hang(a-1)
辅助.等待( 100)
KeyPresss "Enter", 1

朋友,语法错误耶
回复 支持 反对

使用道具 举报

6#
发表于 2015-3-18 00:28:58 | 只看该作者

括号中多了空格了
回复 支持 反对

使用道具 举报

7#
发表于 2015-3-18 00:29:02 | 只看该作者

括号中多了空格了
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-9-23 15:28 , Processed in 0.190470 second(s), 23 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表