为什么写这么短的代码软件会奔溃啊

qq306414664

1. 变量 线程ID,ts = 插件("ts.tssoft"),窗口句柄,循环开关
   
2. 
   
3. //从这里开始执行
   
4. 功能 执行()
   
5.     //从这里开始你的代码
   
6. 结束
   
7. //启动_热键操作
   
8. 功能 启动_热键()
   
9.     变量 内容
   
10.     循环开关 = 真
    
11.     内容=浏览框获取文本("浏览框0")
    
12.     调试输出("浏览框地址"&内容)
    
13.     进程打开(内容,真)
    
14.     ts.SetPath(获取资源路径("rc:"))
    
15.     进入游戏()
    
16.     查找窗口()
    
17.     输入账号()
    
18.     线程ID=线程开启("执行","")
    
19. 结束
    
20. 
    
21. //终止热键操作
    
22. 功能 终止_热键()
    
23.     循环开关 = 假
    
24.     线程关闭(线程ID)
    
25. 结束
    
26. 
    
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

    进入游戏()
    查找窗口()
    输入账号()

都用线程开启
你调用的子功能 里面如果有等待 或循环  ,不用线程开启界面会卡死

danlan123

楼上+1

tan0360

请优化你的代码 把找字找图 封装一下 调用 给予返回 。。这样写更节省 空间 代码量。

懒懒兔

等待()在刷新页面用得太少了。