来个大腿帮忙改改呗。

qq411605443

小白跟着官方教程做了一个前台的，后来想改成后台多开真是无从下手。
于是跟一个人要了一个源码，照葫芦画瓢的将自己想要的东西塞在里面。
最后果不其然的失败了，求一个大腿帮忙看看。

1. //我的思路流程
   
2. //鼠标放在游戏窗口,按F1,这个窗口进入后台托管状态.
   
3. //托管状态:开始循环后台找图,找到开始则点击开始,找到筹码则点击筹码,找到坐标的颜色符合则进入牌力判定
   
4. //牌力判定:根据找图跟取色判定牌力分,牌力分大于19或者等于2,则提示好牌,播放提示音.终止此窗口托管状态.
   
5. //否则寻找过牌与放弃按钮,找到则点击,优先点击过牌,没有过牌点击放弃.
   
6. //通过F1进入托管状态的窗口一直循环,直到提示好牌终止.
   
7. 
   
8. 空间 九九托管
   
9. sz=数组[7],jz=数组[7],对象=数组[7]
   
10. 
    
11. 功能 启动()//开启
    
12.     jb=窗口.鼠标所在窗口句柄(),i=0
    
13.     if(窗口.类名(jb)!="AfxWnd70u")
    
14.         返回 假
    
15.     endif
    
16.     辅助.等待(100)
    
17.     for(i=0;i<6;i++)
    
18.         如果(jb==sz[i])
    
19.             跳出
    
20.         否则
    
21.             如果(sz[i]==null)
    
22.                 对象[i]=com("dm.dmsoft")
    
23.                 jz[i]=线程.扩展开启("九九托管.打牌",i,"九九托管.解绑",i)
    
24.                 sz[i]=jb  
    
25.                 跳出
    
26.             如果结束
    
27.         如果结束
    
28.     endfor
    
29. 功能结束
    
30. 
    
31. 功能 停止()//关闭
    
32.     jb=窗口.鼠标所在窗口句柄()
    
33.     for(i=0;i<6;i++)
    
34.         如果(jb==sz[i])
    
35.             a=0
    
36.             个数=列表框.得到个数("列表框0")
    
37.             循环(a<个数)
    
38.                 if(jb==列表框.获得文本("列表框0",a))
    
39.                     列表框.删除文本("列表框0",a)
    
40.                 endif
    
41.                 a=a+1            
    
42.             循环结束
    
43.             线程.关闭(jz[i])
    
44.             辅助.蜂鸣(1000,200)  
    
45.             sz[i]=null
    
46.             jz[i]=0
    
47.             辅助.等待(1000)
    
48.             跳出
    
49.         如果结束
    
50.     endfor
    
51. 功能结束
    
52. 
    
53. 功能 解绑(i)
    
54.     dm=对象[i]
    
55.     dm.UnBindWindow()
    
56. 功能结束
    
57. 
    
58. 功能 打牌(i)
    
59.     dm=对象[i],x,y
    
60.     hwnd=窗口.鼠标所在窗口句柄()
    
61.     if(dm.BindWindow(hwnd,"gdi","windows3","normal",0)==0)
    
62.         辅助.消息框("绑定失败")
    
63.         返回 真
    
64.     endif
    
65.     列表框.插入文本("列表框0",hwnd,0)
    
66.     辅助.蜂鸣(1000,200)
    
67.     dm.SetShowErrorMsg(0)
    
68.     系统.设置路径(系统.获取程序路径()&"\\pic")
    
69.     循环(真)
    
70.         变量 发牌完毕,同花分,一号牌,二号牌
    
71.         dm.MoveTo(5,5)
    
72.         dm.LeftClick()
    
73.         dm.FindPic(533,462,933,697,"rc:开始.bmp|rc:筹码.bmp","000000",0.9,0,x,y)
    
74.         如果(x>0)
    
75.             dm.MoveTo(x,y)
    
76.             辅助.等待(5)
    
77.             dm.LeftClick()
    
78.             dm.LeftClick()
    
79.             编辑框.设置文本("编辑框0","等待发牌")
    
80.         如果结束
    
81.         牌框=dm.GetColor(538,452)
    
82.         如果(牌框==#000000)
    
83.             辅助.等待(50)
    
84.             dm.FindPic(470,438,552,494,"rc:同花条.bmp","000000",0.9,0,x,y)
    
85.             如果(x> 0)
    
86.                 同花分=9
    
87.             如果结束
    
88.             牌力0=dm.GetColor(501,446)
    
89.             如果(牌力0==#43EE11)
    
90.                 一号牌=10
    
91.             如果结束
    
92.             如果(牌力0==#00A2E8)
    
93.                 一号牌=0
    
94.             如果结束
    
95.             如果(牌力0==#FF7F27)
    
96.                 一号牌=1
    
97.             如果结束
    
98.             如果(牌力0==#A349A4)
    
99.                 一号牌=11
    
100.             如果结束
     
101.             牌力1=dm.GetColor(544,448)
     
102.             如果(牌力1==#43EE11)
     
103.                 一号牌=10
     
104.             如果结束
     
105.             如果(牌力1==#00A2E8)
     
106.                 一号牌=0
     
107.             如果结束
     
108.             如果(牌力1==#FF7F27)
     
109.                 一号牌=1
     
110.             如果结束
     
111.             如果(牌力1==#A349A4)
     
112.                 一号牌=11
     
113.             如果结束
     
114.             牌分=同花分+一号牌+二号牌
     
115.             编辑框.设置文本("编辑框1",牌分)
     
116.             如果(牌分>19||牌分==2)
     
117.                 ID = 辅助.播放("rc:BackGround.wav")
     
118.                
     
119.                 辅助.消息框("好牌!")
     
120.                
     
121.                 辅助.停止播放(ID)
     
122.                 跳出           //这里应该怎么停止循环操作？？？？？？
     
123.             否则
     
124.                 dm.FindPic(605,633,679,666,"rc:弃牌.bmp","000000",0.9,0,x,y)
     
125.                 如果(x> 0)
     
126.                     dm.FindPic(333,633,412,666,"rc:让牌.bmp","000000",0.9,0,x,y)                  
     
127.                     dm.MoveTo(x,y)
     
128.                     辅助.等待(5)
     
129.                     dm.LeftClick()
     
130.                     dm.LeftClick()
     
131.                     编辑框.设置文本("编辑框0","已经让牌/弃牌")     //如果不可以让牌,这里点击弃牌.
     
132.                     
     
133.                 否则
     
134.                     辅助.消息框("找不到弃牌")
     
135.                 如果结束
     
136.             如果结束
     
137.         如果结束
     
138.         
     
139.     循环结束
     
140.    
     
141. 功能结束
     
142. 
     
143. 功能 初始化()
     
144.     是否注册=辅助.是否注册("dm.dmsoft")
     
145.     如果(!是否注册)
     
146.         是否成功=辅助.注册插件(系统.获取程序路径()&"\\pic\\dm.dll",真)
     
147.         
     
148.         如果(是否成功)
     
149.             
     
150.             
     
151.         否则
     
152.             
     
153.             辅助.消息框("插件注册失败","提示")
     
154.             
     
155.         如果结束
     
156.     else
     
157.         dm=com("dm.dmsoft")
     
158.         if(dm.Ver()!="3.1233")
     
159.             辅助.注册插件(系统.获取程序路径()&"\\pic\\dm.dll",假)
     
160.             辅助.消息框("插件更新,请重新打开软件")
     
161.         endif
     
162.     如果结束
     
163.     线程.开启("九九托管.检测","")
     
164. 功能结束
     
165. 
     
166. 功能 检测()
     
167.     dm=com("dm.dmsoft")
     
168.     循环(真)
     
169.         ii=0
     
170.         个数=列表框.得到个数("列表框0")   
     
171.         循环(ii<个数)
     
172.             if(!窗口.是否存在(列表框.获得文本("列表框0",ii)))
     
173.                 jb=列表框.获得文本("列表框0",ii)
     
174.                 for(i=0;i<7;i++)
     
175.                     如果(jb==sz[i])
     
176.                         a=0
     
177.                         个数=列表框.得到个数("列表框0")
     
178.                         循环(a<个数)
     
179.                             if(jb==列表框.获得文本("列表框0",a))
     
180.                                 列表框.删除文本("列表框0",a)
     
181.                             endif
     
182.                             a=a+1            
     
183.                         循环结束
     
184.                         线程.关闭(jz[i])
     
185.                         辅助.蜂鸣(1000,200)  
     
186.                         sz[i]=null
     
187.                         jz[i]=0
     
188.                         辅助.等待(1000)
     
189.                         goto 结束
     
190.                     如果结束
     
191.                 endfor
     
192.             endif
     
193.             ii=ii+1            
     
194.         循环结束
     
195. 结束:
     
196.         辅助.等待(1000)
     
197.         
     
198.     循环结束
     
199. 功能结束
     
200. 
     
201. 功能 热键0_热键()
     
202.     线程.开启("九九托管.启动","")
     
203. 功能结束
     
204. 
     
205. 功能 热键1_热键()
     
206.     线程.开启("九九托管.停止","")
     
207. 功能结束
     
208. 
     
209. 空间结束
     

复制代码

qq411605443

而且自动没运作，手动鼠标点击还不好使了。。。 无语