VB怎样像按键精灵一样全屏找图
QMDispatch.dll在按键精灵8.0中找不到,在网上下载一个,注册时说LoadLibrary("E:\WINDOWS\system32\QMDispatch.dl...
QMDispatch.dll在按键精灵8.0中找不到, 在网上下载一个,注册时说 LoadLibrary("E:\WINDOWS\system32\QMDispatch.dll")失败-找不到指定的模块。
家里装了按键精灵8.0可以用VB找图,代码如下:
Option Explicit
Private Declare Function FindPic Lib "QMDispatch" () As Long
Private Sub Command1_Click()
Dim pos As Long
Dim QMDispatchObj As Object
Set QMDispatchObj = CreateObject("QMDispatch.QMFunction")
pos = QMDispatchObj.FindPic(0, 0, 1280, 1024, "D:\111.bmp", 0.5)
MsgBox Int(pos / 8192) 'X左边
MsgBox pos Mod 8192 'Y左边
End Sub
但是代码每次找图都会运行一个按键精灵。
我运行一次按键精灵8以后再使用以上代码就出现“部件要求挂起”就不能再找图了。
求VB全屏找图代码,最好不要引用QMDispatch.dll。如果好用的话再追你20分 展开
家里装了按键精灵8.0可以用VB找图,代码如下:
Option Explicit
Private Declare Function FindPic Lib "QMDispatch" () As Long
Private Sub Command1_Click()
Dim pos As Long
Dim QMDispatchObj As Object
Set QMDispatchObj = CreateObject("QMDispatch.QMFunction")
pos = QMDispatchObj.FindPic(0, 0, 1280, 1024, "D:\111.bmp", 0.5)
MsgBox Int(pos / 8192) 'X左边
MsgBox pos Mod 8192 'Y左边
End Sub
但是代码每次找图都会运行一个按键精灵。
我运行一次按键精灵8以后再使用以上代码就出现“部件要求挂起”就不能再找图了。
求VB全屏找图代码,最好不要引用QMDispatch.dll。如果好用的话再追你20分 展开
4个回答
展开全部
安装按键精灵8,然后运行按键精灵8,最小化就OK
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
DLL选错了,换一个吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询