游戏找图全屏可用, 但窗口化1280X720后就不能用, 希望大大... - TC官方合作论坛

变量 ts=插件("ts.tssoft")
功能開始_点击()
//这里添加你要执行的代码
变量路径=ts.SetPath(获取资源路径("rc:"))
等待(1000)
变量 hwnd=ts.GetMousePointWindow()
变量 ts_A=ts.SetWindowState(hwnd,1)
变量 ts_B=ts.BindWindow(hwnd,"dx","dx","dx",0)
等待(200)
变量线程句柄
线程句柄 = 线程开启("採集","")
调试输出("线程句柄: "& 线程句柄)
结束

功能採集()
循环(真)
      //这里添加你要执行的代码
      变量 intX,intY,索引1
      索引1=ts.FindPic(400,261,943,610,"01.bmp","000000",0.5,0,intX,intY)
      等待(100)
      调试输出("索引1: " & 索引1)
      如果(intX >=0 && intY >=0)
         ts.KeyPress(49)
      否则
         等待(100)
      结束
      变量索引2
      索引2=ts.FindPic(400,261,943,610,"02.bmp","000000",0.5,0,intX,intY)
      等待(100)
      调试输出("索引2: " & 索引2)
      如果(intX >=0 && intY >=0)
         ts.KeyPress(50)
      否则
         等待(100)
      结束
      变量索引3
      索引3=ts.FindPic(400,261,943,610,"03.bmp","000000",0.5,0,intX,intY)
      等待(100)
      调试输出("索引3: " & 索引3)
      如果(intX >=0 && intY >=0)
         ts.KeyPress(51)
      否则
         等待(100)
      结束
      变量索引4
      索引4=ts.FindPic(400,261,943,610,"04.bmp","000000",0.5,0,intX,intY)
      等待(100)
      调试输出("索引4: " & 索引4)
      如果(intX >=0 && intY >=0)
         ts.KeyPress(52)
      否则
         等待(100)
      结束
结束
返回真
结束

功能停止_点击()
//这里添加你要执行的代码
线程关闭("线程句柄")
等待(1000)
ts.UnBindWindow()
等待(1000)
退出()
返回真
结束