/开始按钮_点击操作
功能 开始_点击()
结束
//退出按钮_点击操作
功能 退出_点击()
退出()
结束
变量 dm=数组() //定义个大漠对象全局数组
变量 hwnd=数组() //定义个多开窗口句柄全局数组
变量 i=0 //定义数组下标
变量 t_ID=数组() //定义线程id数组
变量 path //路径
功能 t_Run(j) //多开执行线程
path=获取资源路径("rc:")
dm[j]=插件("dm.dmsoft")//创建大漠对象,放到dm数组中
dm[j].SetPath(path)//
hwnd[j]=dm[j].GetMousePointWindow()
var dm_ret = dm[j].BindWindowEx(hwnd[j],"dx","dx","dx",0)
等待(3000)
t_Main(j) //线程主函数,功能就放这个函数里面实现,随便大家怎么写
结束
功能 t_Main(j)
//这里写你要实现的功能,比如在记事本里面输出数字
结束
功能 启动_热键()
var index = 数组值查找(hwnd,-1,1)//启动时判定窗口句柄数组是否有停止标识,如果有则直接以此标识位开启线程, -1 为我们定义的停止标识
if(index!=-1)
t_ID[index]=线程开启("t_Run",index) 启动线程并且把该线程的线程id放到 线程id数组中
等待(2000)
else
t_ID[i]=线程开启("t_Run",i)//如果没有则增加一个下标开启线程
等待(2000)
i=i+1
end
return 0
结束
功能 终止_热键()
var end_hwnd=窗口获取鼠标所在句柄()//获取鼠标指向窗口需要停止的窗口句柄
var index = 数组值查找(hwnd,end_hwnd,1)//查找开启的窗口句柄中是否有要停止的值返回所在数组下标
hwnd[index]=-1 //将数组中的句柄值设置为-1,方便开启的时候取用
线程关闭(t_ID[index])//根据下标关闭线程
dm[index].UnBindWindow()//根据下标解除绑定
return 0
结束
|