马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 刷分de人 于 2015-9-19 22:54 编辑
本帖最后由 刷分de人 于 2015-9-19 22:11 编辑
代码如下
变量 hw,j,线程ID,dm,hwnd
//从这里开始执行
功能 执行()
变量 dm_ret
//从这里开始你的代码
dm.Setpath(获取资源路径("rc:"))
dm=com("dm.dmsoft")
等待(100)
绑定()
等待(100)
键盘发送字符串("hello world")
等待(1000)
解绑()
线程关闭("执行","")
结束
//启动_热键操作
功能 启动_热键()
变量 a=0,dm_ret, hwnds=数组("j")
hwnds= dm.EnumWindow(0, "记事本", "", 1 + 4 + 8 + 16)
等待(100)
var n = strsplit(hwnds,",",hw)
遍历(变量 i = 0; i < n; i++)
hwnd=hw[a]
等待(100)
线程ID=线程开启("执行","")
a=a+1
等待(100)
结束
结束
功能 绑定()
变量 dm_ret
等待(300)
dm_ret=dm.BindWindow(hwnd,"normal","normal","windows",0)
等待(2000)
如果(dm_ret>0)
调试输出("绑定成功")
否则
调试输出("绑定失败")
结束
结束
//终止热键操作
功能 终止_热键()
解绑()
结束
功能 魔域测试_初始化()
//这里添加你要执行的代码
注册大漠插件()
结束
功能 注册大漠插件()
变量 版本
如果(注册插件(获取资源路径("rc:dm.dll"),真))
调试输出("大漠插件注册成功")
dm=com("dm.dmsoft")
版本=dm.ver()
调试输出("当前大漠插件版本:"&版本)
否则
调试输出("大漠插件注册失败")
结束
结束
功能 解绑()
变量 dm_ret
dm_ret = dm.UnBindWindow()
如果(dm_ret>0)
调试输出("成功解绑")
结束
结束
经测试调试输出显示绑定成功,但是不知道为何输入的字符都是集中在一个记事本里面,没能达到我想要的每个记事本输入一串字符的作用,实在是不知道什么原因特来求助。获取的记事本的数量是准确的,搞不懂啊 |