|
发表于 2013-2-24 08:00:39
|
显示全部楼层
#include"varlist.t"
空间 多窗体同步
dm=com("dm.dmsoft")
hwnd,keycode
//********************************//
//***********线程任务**************//
//********************************//
功能 beginsomething()
//多窗体同步.register() //注册绑定
辅助.消息框(转换.整型转字符型(keycode))
循环(真)
k=键盘.等待按键()
辅助.等待(100)
如果(k!=118)
// dm.KeyPress(k)
超级键盘.按键(k,10)
辅助.等待(20)
如果结束
循环结束
返回 真
功能结束
//********************************//
//***********开始按钮**************//
//********************************//
功能 start_点击()
循环 (真)
keycode=键盘.等待按键()
辅助.等待(500)
如果(keycode==118)
//hwnd=dm.GetMousePo整型Window()
窗口.鼠标所在窗口句柄()
h=线程.开启("多窗体同步.beginsomething")
varlist.addstr(h)
否则
多窗体同步.beginsomething()
如果结束
循环结束
返回 真
功能结束
//********************************//
//***********退出按钮**************//
//********************************//
功能 exit_点击()
//多窗体同步.free()
多窗体同步.closeThead()
辅助.退出()
返回 真
功能结束
//********************************//
//********注册绑定*********//
//********************************//
功能 register()
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)
辅助.等待(20)
如果 (dm_ret==0)
辅助.消息框("大漠绑定失败")
辅助.退出()
如果结束
返回 真
功能结束
//********************************//
//********大漠解除绑定*********//
//********************************//
功能 free()
// dm.UnBindWindow()
辅助.等待(500)
返回 真
功能结束
//********************************//
//********窗体销毁方法*********//
//********************************//
功能 destroy()
多窗体同步.exit_点击()
返回 真
功能结束
//********************************//
//********关闭多线程*********//
//********************************//
功能 closeThead()
str=varlist.返回str()
wz
循环(真)
wz=字符串.查找字符串(str,"|")
线程.关闭(字符串.截取(str,0,wz))
辅助.等待(200)
如果 (wz==-1)
跳出
否则
str=字符串.移除(str,wz+1,真)
如果结束
循环结束
返回 真
功能结束
空间结束 |
|