set dm = createobject("dm.dmsoft")
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 位置
If 位置 = 0 Then
//
线程ID=BeginThread(多线程)
// 多线程
// 按一次Home键,就绑定一个窗口多开
句柄 = CStr(环境变量句柄)
ID = CStr(线程ID)
// CStr函数是把整数转换成字符串类型
ID句柄字符串 = 句柄 + "|" + ID + "|" + ID句柄字符串
//
Call Plugin.Msg.Tips("已绑定,一个窗口")
//
TracePrint ID句柄字符串
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 位置
If 位置 > 0 Then
数组 = Split(ID句柄字符串, 鼠标指向的句柄)
ID = 数组(1)
数组2 = Split(ID, "|")
ID2 = 数组2(1)
// TracePrint ID2
StopThread ID2
// @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
// 下面是把停止的线程的ID和句柄,从ID句柄字符串去掉
删除句柄和ID = 鼠标指向的句柄 & "|" & ID2 & "|"
字符串 = split(ID句柄字符串, 删除句柄和ID)
ID句柄字符串 = 字符串(0) + 字符串(1)
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 绑定()
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 **criptExit()
dm.UnBindWindow
End Sub |
[复制链接]
/2 
发表于 2014-5-1 14:57:54
