TC官方合作论坛

标题: 倩女幽魂多窗口多线程自动打怪、捡钱、补血、自动做任务...... [打印本页]

作者: 翔林小刚 时间: 2012-2-25 20:06
标题: 倩女幽魂多窗口多线程自动打怪、捡钱、补血、自动做任务......

#include"varlist.t"
#include"auto.t"
空间倩女多开
hwnds
d=com("dm.dmsoft")
功能退出_点击()
辅助.退出()
返回真
功能结束

功能刷新_点击()
list.deleteall("List")
      varlist.clear()
//hwnds= d.EnumWindowByProcess("QQ.exe","QQ2011","",1)
  hwnds= d.EnumWindowByProcess("GacRunner.exe","倩女幽魂","",1)
//help.messagebox(hwnds)
wz
hwnd
  while(true)
wz=str.findstr(hwnds,",")
hwnd=str.strsub(hwnds,0,wz)
//help.messagebox(hwnd)

            list.addstring("List",window.getwindowcaption(convert.strtoint(hwnd,0))+"*"+hwnd)
  //  varlist.addstr(str.strcat("句柄",convert.inttostr(x)),hwnd)
  varlist.addstr(hwnd,0)
if (wz==-1)
break
else
hwnds=str.strcut(hwnds,wz+1,true)
endif
  endwhile
返回真
功能结束
功能线程任务()
bt,hwnd
bt=list.getchecktext("List")
hwnd=str.strcut(bt, str.findstr(bt,"*")+1,true)
dm.setshowerrormsg(0)
//help.messagebox("窗口大漠绑定开始")
         if (d.BindWindow(convert.strtoint(hwnd,0),"dx","dx","dx",0)==0) //,绑定
help.messagebox("窗口大漠绑定出现异常")
               else
                  // help.messagebox("窗口大漠绑定成功")
                  d.SetWindowState(convert.strtoint(hwnd,0),1)
                  auto.打怪(convert.strtoint(hwnd,0))
                        // //下接脚本内容
//                         help.sleep(3000)
// help.messagebox("执行的脚本内容1")
// help.sleep(2000)
//                      help.messagebox("执行的脚本内容2")
            endif
            // help.messagebox("窗口大漠绑定结束")
返回真
功能结束
功能开始任务_点击()
bt,hwnd
bt=list.getchecktext("List")
if (list.getcursel("List")==-1)
  help.messagebox("请在列表中选择对应标题项")
else
  hwnd=字符串.截取(bt,str.findstr(bt,"*")+1,字符串.长度(bt))
  倩女多开.判断线程(hwnd)
      endif
返回真
功能结束
function 判断线程(hwnd)
hwndthr,线程句柄
  z=  转换.字符型转整型(hwnd,0)
            if(window.iswindow(z))
                  线程句柄=varlist.state(hwnd)  //--得到存储线程句柄值
            if (线程句柄>0)
//help.messagebox("线程已经开启"+convert.inttostr(线程句柄))
  else
hwndthr = thread.beginthread("倩女多开.线程任务")
                  //  help.messagebox("新开线程"+convert.inttostr(hwndthr))
                     varlist.replace(hwnd,hwndthr)  //改变线程值
  //dm.downcpu(50)
  endif
         endif
return true
endfunction
功能结束任务_点击()
bt,hwnd
窗口句柄,hwndthr
bt=list.getchecktext("List")
if (list.getcursel("List")==-1)
  help.messagebox("请在列表中选择对应标题项")
else
  hwnd=字符串.截取(bt,str.findstr(bt,"*")+1,字符串.长度(bt))
  //窗口句柄=  转换.字符型转整型(hwnd,0)
  倩女多开.结束任务(hwnd)

//             hwndthr=varlist.state(hwnd)  //--得到存储线程句柄值
//             varlist.replace(hwnd,0)  //改变线程值
//             dm.release(hwndthr)
//  help.sleep(500)
//  thread.closethread(hwndthr)  //关闭线程
      endif
返回真
功能结束
function 结束任务(hwnd)
  hwndthr,线程句柄
  线程句柄=varlist.state(hwnd)  //--得到存储线程句柄值
            if (线程句柄==0)
//help.messagebox("线程已经关闭"+convert.inttostr(线程句柄))
  else

  hwndthr=varlist.state(hwnd)  //--得到存储线程句柄值
            varlist.replace(hwnd,0)  //改变线程值
            dm.release(hwndthr)
  help.sleep(500)
  thread.closethread(hwndthr)  //关闭线程
            help.sleep(500)
  endif
return true
endfunction

功能选择()
  bt
  bt=list.getchecktext("List")
  if (list.getcursel("List")==-1)
help.messagebox("请在列表中选择对应标题项")
  else
   return  字符串.截取(bt,str.findstr(bt,"*")+1,字符串.长度(bt))
  endif
return ""
功能结束
功能窗口顶置_点击()
if( 倩女多开.选择()!="")
窗口句柄=  转换.字符型转整型(倩女多开.选择(),0)
窗口.置顶(窗口句柄,真)
endif
返回真
功能结束

功能全开任务_点击()
hwnds= d.EnumWindowByProcess("QQ.exe","QQ2011","",1)
wz
hwnd
  while(true)
wz=str.findstr(hwnds,",")
hwnd=str.strsub(hwnds,0,wz)
                     help.messagebox(hwnd)
倩女多开.判断线程(hwnd)
                     help.sleep(1000)
  //开启线程
if (wz==-1)
  break
else
hwnds=str.strcut(hwnds,wz+1,true)
endif
endwhile
返回真
功能结束

功能全结束_点击()
hwnds= d.EnumWindowByProcess("QQ.exe","QQ2011","",1)
wz
hwnd
  while(true)
wz=str.findstr(hwnds,",")
hwnd=str.strsub(hwnds,0,wz)
倩女多开.结束任务(hwnd)

  //结束线程
if (wz==-1)
  break
else
hwnds=str.strcut(hwnds,wz+1,true)
endif
endwhile
大漠.释放(0)
      help.sleep(500)
d.UnBindWindow()

返回真
功能结束

功能销毁()
  倩女多开.全结束_点击()
返回真
功能结束

功能初始化()
倩女多开.刷新_点击()
返回真
功能结束
空间结束

作者: bocai7821 时间: 2012-2-26 14:48
代码是不是只有3分之一
没有找到
#include"varlist.t"
#include"auto.t"
的函数空间

作者: 梧桐树下雨 时间: 2012-2-26 19:52
:yun 线程没怎么看明白 LZ大概讲讲线程怎么实现的

作者: stxuhong 时间: 2012-2-27 00:13
支持你一下。。

作者: dlj369 时间: 2012-3-12 11:46
新人问下，我看的好像光有多开和线程啊，没有看到打怪的捡东西啊，呵呵，不知道对不对

作者: cyb3222996 时间: 2012-3-12 21:59
支持一下！！！

作者: yerensaojie 时间: 2012-3-21 16:17
:D额真的不全是不是楼主没有帖完整哦

作者: pacino 时间: 2012-4-19 09:38
嗯好好学习学习

作者: cyx027 时间: 2012-4-22 22:07
内容须完善

作者: ksap787523 时间: 2012-4-22 22:45
4444444444

作者: laofy 时间: 2012-5-19 17:17
不完整啊，期待楼主的完整代码

作者: jinlongzzy 时间: 2012-6-16 12:11
顶，还是不顶？我的思想进行着激烈的斗争。

作者: uucc 时间: 2012-6-25 13:49
英文的看不懂

作者: wangfq19841019 时间: 2012-7-8 22:41
贴多少看多少先

作者: 晓峰 时间: 2012-7-16 23:48
回复 1楼翔林小刚的帖子

我也没看明白。。。

作者: a524582571 时间: 2012-7-18 07:23

不错不错！！！！111

作者: Alice 时间: 2012-7-28 16:20
LZ~有源码之后该怎么做额？

作者: zxcvtu12 时间: 2012-7-29 15:33
aaaaaaaaaaaaaaaaaaaaaa

作者: zhang_583044041 时间: 2012-8-9 21:42
顶起，不错，呵呵

作者: huang120 时间: 2012-8-26 01:44
楼主，请把代买完整的发出来哦。还有能不能给个界面设计

作者: 15006663 时间: 2012-9-4 16:15
我是新手看不懂，请问这个是什么意思，怎么和QQ拉上关系了//hwnds= d.EnumWindowByProcess("QQ.exe","QQ2011","",1)

作者: 极风天下 时间: 2013-2-2 08:48

作者: 819148041 时间: 2013-3-22 21:03
回复 1楼翔林小刚的帖子

个图个热闹特

作者: liu0623 时间: 2013-4-23 13:39
提示: 作者被禁止或删除内容自动屏蔽

作者: qohqoh 时间: 2013-4-26 04:57
gsdfgsdfg

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)