TC官方合作论坛

标题: 求大神门指引前台多开 [打印本页]

作者: 1111111qqq 时间: 2014-10-21 13:52
标题: 求大神门指引前台多开
我想问下游戏不支持后台我能前台多开能控制吗怎么控制用枚举吗？

作者: 路仙水翁 时间: 2014-10-21 16:16
有收获，谢谢分享

作者: 这论坛不错 时间: 2014-10-21 16:58
大漠的例子：

hwnds = dm.EnumWindow(0,"QQ三国","",1+4+8+16)

hwnds = split(hwnds,",")

if ubound(hwnds) <> 2 then

messagebox "没发现3个窗口"

endscript

end if

// 这里初始化临界区

dm.InitCri

// 分别开启3个线程控制每个窗口

BeginThread entry(clng(hwnds(0))
BeginThread entry(clng(hwnds(1))

BeginThread entry(clng(hwnds(2))

do

delay 1000

loop

endscript

sub entry(hwnd)

TracePrint "句柄:"&hwnd

set dm = createobject("dm.dmsoft")

dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)

do

Call 接任务()

Call 打怪()

Call 交任务()

loop

end sub

Sub接任务()

// 激活和取消激活必须成对调用. 否则脚本会卡死

call 激活窗口()

//  这里就是接任务代码.这里只是一个例子，实际中不可能整个接任务代码都被保护起来,那样太低效了.

call 取消激活窗口()

End Sub

Sub 打怪()

// 激活和取消激活必须成对调用. 否则脚本会卡死

call 激活窗口()

//  这里就是打怪代码

call 取消激活窗口()

End Sub

Sub 交任务()

// 激活和取消激活必须成对调用. 否则脚本会卡死

call 激活窗口()

//  这里就是交任务代码

call 取消激活窗口()

End Sub

Sub 激活窗口()

do

   if dm.EnterCri() = 1 then

      exit do

   end if

   delay 100

loop

dm.SetWindowState hwnd,12

delay 500

End Sub

Sub 取消激活窗口()

dm.LeaveCri

End Sub

Sub OnThreadExit()

dm.UnBindWindow

end Sub

作者: 1111111qqq 时间: 2014-10-21 19:56

这论坛不错发表于 2014-10-21 16:58
大漠的例子：

hwnds = dm.EnumWindow(0,"QQ三国","",1+4+8+16)

哥哥啊英文一个也没弄懂啊汗我研究下

作者: q273814 时间: 2014-10-23 09:16

1111111qqq 发表于 2014-10-21 19:56
哥哥啊英文一个也没弄懂啊汗我研究下

他发的按键的语法

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