Question

怎么在VB中调用按键精灵的插件，请晨风仔细说说

Answer 1

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

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