多线程传递参数方法

q88999

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))  hwnds能正常传递到这里，只是传递不到子线程下面，求解
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)   //参数传递不到这里的hwnd  求解

do

    Call 接任务()

    Call 打怪()

    Call 交任务()

loop

end sub

ouyanglaile

得修改下,你直接复制按键的代码过来,肯定是有问题的

q88999

ouyanglaile 发表于 2018-8-31 09:38
得修改下,你直接复制按键的代码过来,肯定是有问题的

我就是按键的脚本，求帮解决一下

笨点

一直传递下去就可以 检查一下代码

suhao

你这个代码怎么似曾相似，按键精灵？

q88999

笨点 发表于 2018-8-31 10:05
一直传递下去就可以 检查一下代码

就是按上面的，一直能传递到启动线程那里，一到子线程参数马上变了，

笨点

q88999 发表于 2018-8-31 10:17
就是按上面的，一直能传递到启动线程那里，一到子线程参数马上变了，

按键的你看下是不是共享变量的问题