按键精灵多窗口同步
发布网友
发布时间：2022-04-23 05:48
共2个回答
热心网友
时间：2023-09-21 11:51
Call 注册大漠
Dimenv 环境变量句柄
//环境变量,线程里面要用到.要定义为环境变量
ID句柄字符串 = ""
//****************************** 检测按键,动作 ***************************************
do
Call Plugin.Msg.Tips("按Insert键绑定,按Delete键解绑")
Key = WaitKey()
// 等待用户按任何键
// 下面是Insert键,绑定鼠标指向的窗口的线程
If Key = 45 Then
环境变量句柄 = dm.GetMousePointWindow()
// 鼠标指向的窗口
// 先判断,这个句柄是否在绑定.如果绑定过.不再重复绑定这个窗口
位置 = Instr(ID句柄字符串, 环境变量句柄)
//Instr函数,作用是:返回"环境变量句柄"在 "ID句柄字符串"中 第一次出现的位置。没出现就是位置=0
// 如果位置=0 就绑定,预防重复绑定
TracePrint 位置
TracePrint ID句柄字符串
If 位置 = 0 Then
//
线程ID=BeginThread(多线程)
// 多线程
// 按一次Home键,就绑定一个窗口多开
句柄 = CStr(环境变量句柄)
ID = CStr(线程ID)
// CStr函数是把整数转换成字符串类型
ID句柄字符串 = 句柄 + "|" + ID + "|" + ID句柄字符串
//
Call Plugin.Msg.Tips("已绑定,一个窗口")
//
Else
Call Plugin.Msg.Tips("窗口已经绑定过了,请不要重复绑定")
Delay 2500
End If
//
//
//########################################################
// 下面是按Delete键,停止鼠标指向的窗口的线程
ElseIf Key = 46 Then
鼠标指向的句柄 = dm.GetMousePointWindow()
// TracePrint ID句柄字符串
位置 = Instr(ID句柄字符串, 鼠标指向的句柄)
//Instr函数,作用是:返回"环境变量句柄"在 "ID句柄字符串"中 第一次出现的位置。没出现就是位置=0
// 如果位置=0 证明这个窗口当前没有绑定,预防没绑定就解绑
TracePrint 位置
TracePrint ID句柄字符串
If 位置 > 0 Then
数组 = Split(ID句柄字符串, 鼠标指向的句柄)
ID = 数组(1)
数组2 = Split(ID, "|")
ID2 = 数组2(1)
// TracePrint ID2
StopThread ID2
// @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
// 下面是把停止的线程的ID和句柄,从ID句柄字符串去掉
TracePrint ID句柄字符串
删除数组 = Split(ID句柄字符串, 鼠标指向的句柄)
左边 = 删除数组(0)
ID3= ID2+"|"
删除数组2 = Split(ID句柄字符串, ID3)
右边 = 删除数组2(1)
ID句柄字符串 = 左边 + 右边
TracePrint ID句柄字符串
//
// @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Call Plugin.Msg.Tips("已解绑,一个窗口")
Else
Call Plugin.Msg.Tips("窗口都没绑定过,你解绑什么嗯,想下标越界么")
Delay 2500
End If
End If
Delay 1500
// 适当延迟,避免连按键
Call Plugin.Msg.Tips("")
Loop
//
//
//****************************** 多线程程序 ***************************************
Sub 多线程
set dm = createobject("dm.dmsoft")
//↑创建“一个对象”
// dm_ret = dm.SetDict(0,"c:\test_game\dm_soft.txt")
//字库
Call 绑定()
//下面是你要编写的程序
Do
dm. KeyPress 81
// 输入文字Q
//
Delay 1000
Loop
End Sub
//
//
//
//****************************** 注册大漠 ***************************************
sub 注册大漠
need_ver = "3.1225B"
PutAttachment "c:\test_game","*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("c:\test_game\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
set dm = nothing
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 c:\test_game\dm.dll /s"
set ws=nothing
Delay 1200
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
messagebox "请关闭程序,重新打开本程序再尝试"
endscript
end if
end if
//上面是注册大漠
// dm_ret = dm.SetDict(0, "c:\test_game\dm_soft.txt")
//字库
End Sub
Sub 绑定()
hwnd = 环境变量句柄
dm_ret = dm.BindWindow( hwnd, "gdi2", "windows", "windows",0)
//绑定窗口
//
If dm_ret=0 Then
//判断上面是否获取到句柄
MessageBox "错误;请把鼠标移到游戏窗口内，再启动脚本"
End If
// dm.DownCpu 50
dm_ret = dm.SetPath("c:\test_game\")
//设置全局路径,设置了此路径后,所有接口调用中,相关的文件都相对于此路径. 比如图片,字库等.< /SPAN >
//设定附件的路径,以后找图命令里面就没必要添加路径了
End Sub
Sub OnScriptExit()
dm.UnBindWindow
End Sub
热心网友
时间：2023-09-21 11:52
