按键精灵后台插件问题

你看大漠说明文档。大漠是采用com接口调用，调用代码采用标准VBS语法。下面是大漠帮助文档的一段原文：
从2.1118B版本之后，大漠插件将禁止释放到Plugin目录，以避免一系列升级产生的BUG！
同时，也禁止用Plugin方式来调用插件，那个方式也是非常不安全的.
请大家严格按照vbs的语法来使用插件.

这是我写的一个游戏的单开挂机脚本中自动补血补篮代码，也是大漠对象写的。用的多线程后台脚本。大漠对象绑定模式分为前台模式和后台模式。后台绑定模式有很多种，到底哪一种有效，需要你自己测试，不同游戏是不一样的。

Dim dm,ver
Set dm = createobject("dm.dmsoft")
ver = dm.ver()
TracePrint ver
If ver = "" Then
MsgBox "dm对象创建失败,请重新注册大漠插件"
EndScript
End If

Dimenv thread1
Dimenv thread2
Dimenv hwnd

hwnd = dm.GetMousePointWindow()
Delay 200
Dim dm_set
dm_set = dm.bindwindowex(hwnd, "gdi2", "windows", "windows","dx.public.fake.window.min",0)
//后台绑定,主线程与支线程的绑定模式必须一致
Delay 1000
thread1=BeginThread(buyao(140,40,"55ff88",113,1100)) //补红线程
Delay 200
thread2=BeginThread(buyao(107,50,"33bbff",121,5500)) //补蓝线程
Delay 200

//加一个死循环，防止主线程脚本结束
do while true
delay 5000
loop

Sub buyao(x1,y1,color,keycode,delaytime) //补红或者补篮，采用参数传递
Dim dm,dm_set
Set dm = createobject("dm.dmsoft")
dm_set = dm.bindwindowex(hwnd, "gdi2", "windows", "windows","dx.public.fake.window.min",0)
Delay 1500
Rem begin
Dim refer
refer = dm.CmpColor(x1,y1,color, 1.0)
Delay 200
If refer = 1 Then
dm.KeyPress keycode
Delay delaytime
Else
Delay 500
End if
Goto begin
End Sub
Sub OnScriptExit()
dm_set = dm.UnBindWindow()
End Sub

自己看她的帮助文档，写的很详细了

用天使插件吧,TC论坛上面的天使插件,满好用的,也是后台功能,强烈建议楼主去看看.

大漠插件不在对外更新了,寻求其他插件吧,我们把它养肥了,不管咱们了.