求救关于大漠后台多开

dayangyunet

1. 变量 dm=数组(),句柄数组=数组(),线程句柄=数组()
   
2. //全局变量----------------------------------------
   
3. 功能 获取句柄(参数数组)
   
4.     变量 Dm,ltx,lty,hwnd
   
5.     hwnd=参数数组[0]
   
6.     Dm=参数数组[1]
   
7.     Dm.BindWindow(hwnd,"gdi","dx","dx",0)
   
8.     Dm.FindPic(0,0,2000,2000,获取资源路径("rc:背包.bmp"),"000000","0.9",0,ltx,lty)
   
9.     调试输出(ltx&","<y)
   
10.     Dm.MoveTo(ltx,lty)
    
11.     等待(200)
    
12.     Dm.LeftClick()
    
13.     等待(200)
    
14. 结束
    
15. 
    
16. 功能 一键启动()
    
17.     变量 线程参数=数组(),返回句柄,大小,对象,
    
18.     对象=com("dm.dmsoft")
    
19.     返回句柄=对象.EnumWindowByProcess("TianTianPlayer.exe","m_pShowWidgetWindow","",1)
    
20.     调试输出(返回句柄)
    
21.     大小=字符串分割(返回句柄,",",句柄数组)
    
22.     调试输出(大小)
    
23.     遍历(变量 i = 0; i < 大小; i++)
    
24.         线程参数[0]=句柄数组[i]
    
25.         dm[i]=com("dm.dmsoft")
    
26.         线程参数[1]=dm[i]
    
27.         线程句柄[i]=线程开启("获取句柄",线程参数)
    
28.     结束   
    
29. 结束
    
30. 
    
31. 功能 按钮0_点击()
    
32.     //这里添加你要执行的代码
    
33.     线程开启("一键启动","")
    
34. 结束
    

复制代码

代码如上,我是自己理解了写的,只知道应该是一个句柄里创建一个对象并开启一个线程.不知道是哪里写错了,这个代码无法运行

yy4363

http://bbs.tyuyan.com/thread-49436-1-1.html

2645572175