TC官方合作论坛

标题: 为什么写这么短的代码软件会奔溃啊 [打印本页]
作者: qq306414664    时间: 2016-6-12 22:41
标题: 为什么写这么短的代码软件会奔溃啊
  1. 变量 线程ID,ts = 插件("ts.tssoft"),窗口句柄,循环开关

  3. //从这里开始执行
  4. 功能 执行()
  5.     //从这里开始你的代码
  6. 结束
  7. //启动_热键操作
  8. 功能 启动_热键()
  9.     变量 内容
  10.     循环开关 = 真
  11.     内容=浏览框获取文本("浏览框0")
  12.     调试输出("浏览框地址"&内容)
  13.     进程打开(内容,真)
  14.     ts.SetPath(获取资源路径("rc:"))
  15.     进入游戏()
  16.     查找窗口()
  17.     输入账号()
  18.     线程ID=线程开启("执行","")
  19. 结束

  21. //终止热键操作
  22. 功能 终止_热键()
  23.     循环开关 = 假
  24.     线程关闭(线程ID)
  25. 结束

  27. 功能 打开文件_初始化()
  28.     //这里添加你要执行的代码
  29.     变量 ret=注册插件("rc:TSPlug.dll",真)
  30.     如果(ret)
  31.         调试输出("插件注册成功")
  32.     结束
  33.    
  34. 结束
  35. 功能 查找窗口()
  36.     循环(循环开关)
  37.         窗口句柄 = ts.FindWindow("DHXYFreeMainFrame","大话西游2免费版")
  38.         调试输出("窗口句柄"&窗口句柄)
  39.         如果(窗口句柄>0)
  40.             ts.MoveWindow(窗口句柄,0,0)
  41.             跳出
  42.         结束
  43.         
  44.     结束
  45.    
  46.    
  47. 结束
  48. 功能 进入游戏()
  49.     变量 intX,intY
  50.     ts.FindWindow("#32770","大话西游2免费版欢迎页")
  51.     循环(循环开关)
  52.         
  53.         ts.FindPic(0,0,2000,2000,"进入游戏.bmp","000000",0.9,0,intX,intY)
  54.         如果(intX >= 0 && intY >= 0)
  55.             //ts.EnableRealMouse(1,20,30)
  56.             ts.MoveTo(intX+318,intY-77)
  57.             ts.LeftClick()
  58.             跳出
  59.         否则
  60.             调试输出("没有找到进入游戏")
  61.         结束
  62.     结束
  63.    
  64. 结束
  65. 功能 输入账号()
  66.     变量 路径,账号,账号数组,密码
  67.    
  68.     路径=获取资源路径("rc:账号.ini")
  69.     账号数组 = 文件读取内容(路径)
  70.     //账号数组 = 读文件返回数组(路径, "\n")
  71.    
  72.    
  73.     变量 retarr
  74.     字符串分割(账号数组,"---",retarr)
  75.     循环(循环开关)
  76.         账号 = retarr[0]
  77.         密码 = retarr[1]
  78.         调试输出("账号"&retarr[0])
  79.         调试输出("密码"&retarr[1])
  80.         跳出
  81.     结束
  82.    
  83.     变量 intX,intY
  84.     循环(循环开关)
  85.         
  86.         ts.FindPic(0,0,2000,2000,"登录游戏.bmp","000000",0.9,0,intX,intY)
  87.         如果(intX >= 0 && intY >= 0)
  88.             ts.EnableRealMouse(1,20,30)
  89.             ts.MoveTo(intX+109,intY-108)
  90.             ts.LeftClick()
  91.             键盘按键(8,25)
  92.             等待(1000)
  93.             
  94.             ts.KeyPressStr(账号,20)
  95.             
  96.             
  97.             
  98.             
  99.         结束
  100.     结束
  101.    
  102.    
  103.    
  104.    
  105.    
  106. 结束
复制代码


作者: cjxdn    时间: 2016-6-12 23:05
    进入游戏()
    查找窗口()
    输入账号()

都用线程开启
你调用的子功能 里面如果有等待 或循环  ,不用线程开启界面会卡死
作者: danlan123    时间: 2016-6-13 00:13
楼上+1
作者: tan0360    时间: 2016-6-14 19:46
请优化你的代码 把找字找图 封装一下 调用 给予返回 。。这样写更节省 空间 代码量。
作者: 懒懒兔    时间: 2016-6-16 05:58
等待()在刷新页面用得太少了。



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