|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
试了半天,加入线程点击开始没有一点反映 ,把线程去掉 ,虽然可以用了 ,但是界面卡住 .
#import "ts.tssoft" ts
空间 天使无双
//定义默认空间
整型 intX,intY,hwnd,模式
字符型 path,s
逻辑型 是否成功
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
循环(1==1)
辅助.等待(400)
ts.FindPic(0,0,2000,2000,"111.bmp","000000",0.9,0,intX,intY)
如果(intX>>0)
ts.KeyPress(49)
否则
ts.KeyPress(9)
如果结束
循环结束
返回 真
功能结束
功能 逻辑型 按钮0_点击()
//这里添加你要执行的代码
hwnd = ts.FindWindowByProcess("client.exe","","电信服务器")
模式=ts.BindWindow(hwnd,"dx","dx","dx",101)
if(模式==1)
help.messagebox("绑定成功")
else
help.messagebox("绑定失败")
endif
返回 真
功能结束
|
|