千丝海阁

今天一早打开办公室电脑，在整理电脑里的一些资料，该删的个人程序删，该留的工作文档留。直到发现按键精灵这个东西的存在，想来这个东西很多人都知道用途了，tiandi也就不细说了，起初这东西并不支持后台操作，所以不太适合做外挂，之后也不知道什么版本开始，开始慢慢支持后台绑定事件了，不过tiandi用官方的一直感觉不灵活，终于找到一个叫大漠插件的东西，这东西并不仅仅用于按键精灵，但是已经足够用按键精灵方便的写出各式各样的外挂了。

本文只做标记之用，方便自己以后再次用到的时候查阅，代码上不会有过多的解释，不过按键精灵的代码够简单的，大漠插件的说明文档网上也比比皆是，不明之处还请google之。

[Script]
need_ver = "2.1151"
PutAttachment "c:\temp", "*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"

Call Plugin.RegDll.Reg("c:\temp\dm.dll") 
set dm = createobject("dm.dmsoft")
ver = dm.Ver()

set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
    // 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析
    endscript
End If

//end if
//这里设置插件基本目录

dm.SetPath "c:\temp"

// 获取句柄

hwnd = dm.GetMousePointWindow()
// 绑定，模式多选，参见大漠插件说明
dm_ret = dm.BindWindow(hwnd, "gdi", "windows2", "windows", 0)

delay 1000
//截图判定绑定模式
//dm_ret = dm.Capture(0,0,2000,2000,"screen.bmp") 

sRect = Plugin.Window.GetWindowRect(Hwnd)   
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串   
dim MyArray   
MyArray = Split(sRect, "|")   
//下面这句将字符串转换成数值   
W1 = Clng(MyArray(0)) : H1 = Clng(MyArray(1))   
W2 = Clng(MyArray(2)) : H2 = Clng(MyArray(3))

//do something here

EndScript