TC官方合作论坛

 找回密码
 立即注册
楼主: 610761555
打印 上一主题 下一主题

[功能] 【开源】▇▇多线程控制台框架式/带界面/换游戏也不愁▇▇

  [复制链接]
531#
发表于 2015-5-19 15:16:20 | 只看该作者
111111111111
回复 支持 反对

使用道具 举报

532#
发表于 2015-5-22 15:03:20 | 只看该作者
这个控制台不错
回复 支持 反对

使用道具 举报

533#
发表于 2015-5-24 14:52:02 | 只看该作者
#import "dm.dmsoft" DM
namespace DTWS
int x,y,z,xc1,xc2,xc3
bool K
function bool start()
int xh,cd//序号,长度
string ckj,hwnd
ckj=window.classenumwindow("MainWnd class of ArkEngine")
xh=1
while(xh<=3)
    hwnd=str.strsub(ckj,0,str.findchar(ckj,124))
    varlist.addintid(xh,convert.strtoint(hwnd))
    xh=xh+1
    cd=str.strleng(hwnd)
    ckj=str.strcut(ckj,cd+1,true)
endwhile
return true
endfunction
function bool a()
int zg,nl,sm//找怪,内力,生命
x=varlist.getintid(1)
DM.BindWindow(x,"dx","dx","dx",0)
DM.KeyPress(9)
while(true&&K)
    zg=DM.CmpColor(303,58,"bd0000-000000",0.9)
    if(zg==0)
        DM.KeyPress(49)//大漠按键1
        help.sleep(1000)
        DM.KeyPress(50)//大漠按键2
        help.sleep(1000)
        sm=DM.CmpColor(209,58,"db0000-000000",0.9)
        if(sm!=0)
            DM.KeyPress(51)//大漠按键3
        endif
        help.sleep(1000)
        nl=DM.CmpColor(211,74,"0049bd-000000",0.9)
        if(nl!=0)
            DM.KeyPress(52)//大漠按键4
        endif
        zg=DM.CmpColor(303,58,"bd0000-000000",0.9)
        if(zg==0)
            continue
        endif
    endif
DM.KeyPress(9)   
endwhile
DM.UnBindWindow()
return true
endfunction
function bool b()
int zg,nl,sm//找怪,内力,生命
y=varlist.getintid(2)
DM.BindWindow(y,"dx","dx","dx",0)
DM.KeyPress(9)
while(true&&K)
    zg=DM.CmpColor(303,58,"bd0000-000000",0.9)
    if(zg==0)
        DM.KeyPress(49)//大漠按键1
        help.sleep(1000)
        DM.KeyPress(50)//大漠按键2
        help.sleep(1000)
        sm=DM.CmpColor(209,58,"db0000-000000",0.9)
        if(sm!=0)
            DM.KeyPress(51)//大漠按键3
        endif
        help.sleep(1000)
        nl=DM.CmpColor(211,74,"0049bd-000000",0.9)
        if(nl!=0)
            DM.KeyPress(52)//大漠按键4
        endif
        zg=DM.CmpColor(303,58,"bd0000-000000",0.9)
        if(zg==0)
            continue
        endif
    endif
DM.KeyPress(9)   
endwhile
DM.UnBindWindow()
return true
endfunction
function bool c()
int zg,nl,sm//找怪,内力,生命
z=varlist.getintid(3)
DM.BindWindow(z,"dx","dx","dx",0)
DM.KeyPress(9)
while(true&&K)
    zg=DM.CmpColor(303,58,"bd0000-000000",0.9)
    if(zg==0)
        DM.KeyPress(49)//大漠按键1
        help.sleep(1000)
        DM.KeyPress(50)//大漠按键2
        help.sleep(1000)
        sm=DM.CmpColor(209,58,"db0000-000000",0.9)
        if(sm!=0)
            DM.KeyPress(51)//大漠按键3
        endif
        help.sleep(1000)
        nl=DM.CmpColor(211,74,"0049bd-000000",0.9)
        if(nl!=0)
            DM.KeyPress(52)//大漠按键4
        endif
        zg=DM.CmpColor(303,58,"bd0000-000000",0.9)
        if(zg==0)
            continue
        endif
    endif
    DM.KeyPress(9)
endwhile
DM.UnBindWindow()
return true
endfunction
function bool button0_click()
DTWS.start()
K=true
xc1=thread.beginthread("DTWS.a")
xc2=thread.beginthread("DTWS.b")
xc3=thread.beginthread("DTWS.c")
return true
endfunction
function bool exit_click()
K=false
help.messagebox("谢谢使用,程序将在2秒后退出")
help.sleep(2500)
thread.closethread(xc1)
thread.closethread(xc2)
thread.closethread(xc3)
help.exit()
return true
endfunction
endnamespace
回复 支持 反对

使用道具 举报

534#
发表于 2015-5-26 10:59:39 | 只看该作者
学习学习
回复

使用道具 举报

535#
发表于 2015-5-26 20:43:13 | 只看该作者
打字撒发生
回复 支持 反对

使用道具 举报

536#
发表于 2015-5-26 20:59:12 | 只看该作者
看看
回复

使用道具 举报

537#
发表于 2015-5-27 13:14:58 | 只看该作者
```````````````````````````````````````
回复 支持 反对

使用道具 举报

538#
发表于 2015-5-31 15:58:13 | 只看该作者
有用 顶一个
回复 支持 反对

使用道具 举报

539#
发表于 2015-5-31 20:24:32 | 只看该作者
上浏览框的小图标,添加到资源即可
回复 支持 反对

使用道具 举报

540#
发表于 2015-6-5 18:13:18 | 只看该作者
我来看一看,我都iOS爱豆iOS爱多少风帆股份
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-9-18 21:30 , Processed in 0.119545 second(s), 19 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表