倩女幽魂多窗口多线程自动打怪、捡钱、补血、自动做任务......

翔林小刚

#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()
        
返回 真
功能结束

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

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

qohqoh

gsdfgsdfg

819148041

回复 1楼翔林小刚的帖子

个图个热闹 特

极风天下

15006663

我是新手看不懂，请问这个是什么意思，怎么和QQ拉上关系了//hwnds= d.EnumWindowByProcess("QQ.exe","QQ2011","",1)

huang120

楼主，请把代买完整的发出来哦。还有能不能给个界面设计

zhang_583044041

顶 起，不 错，呵 呵

zxcvtu12

aaaaaaaaaaaaaaaaaaaaaa

Alice

LZ~有源码之后该怎么做额？