请按键精灵高手帮下忙，谢谢了

不可以是的Shape1 Shape2 在这里是鼠标的特征码(好像就是当前鼠标的句柄) 你可以抓取鼠标的特征码 在"抓点抓色"窗口上按Ctrl+alt+Q (或WE)抓取当前鼠标的特征码

Dim i,n

Dim x(2),y(2)

i=0

n=0

VBSCall GetCursorPos(x(i),y(i))

While i<2

//设置延时，2分钟内5次

Delay 120000/5

//这里用绝对值函数，使i在0与1之间互相转化

i=Abs(i-1)

VBSCall GetCursorPos(x(i),y(i))

If x(0)=x(1) and y(0)=y(1)

n=n+1

Else

n=0

EndIf

//上面的IF语句里比较最近两次鼠标坐标，只要一有变化则计数器n清0

//当连续5次鼠标无变化时，则执行

If n>4

MoveTo 450,350

Delay 5

LeftClick 1

n=0

EndIf

EndWhile

把上面的粘贴到按键精灵里会睇得更清楚。

其实无必要比较完5次啦，只要比较最近两次有无变化就行了。如果确实要看比较5次的脚本，那可以有如下程序（上下两个脚本效果一样）：

Dim i,n

Dim x(5),y(5)

i=0

While i<5

Delay 120000/5

VBSCall GetCursorPos(x(i),y(i))

n=0

While n<i

//这个循环用来比较数组内的数值

If x(n)=x(i) and y(n)=y(i)

If n=3

MoveTo 450,350

Delay 5

LeftClick 1

i=-1

//这里初始化i，就可以不断循环检测

EndIf

n=n+1

Else

i=-1

EndIf

EndWhile

i=i+1

EndWhile

大漠注册代码如下，你不懂没关系，反正按键精灵这段代码注册，是不会错的。这个注册你要注意版本号，我的大漠是31233，所以我后面的判断是ver <> "31233"，假设你的是其他版本，你要改成其他的。

Call Register_dm

Sub Register_dm

Set ws=createobject("WscriptShell")

wsrun "regsvr32 atldll /s"

Set ws=nothing

PutAttachment "", "dmdll"

PutAttachment "\Plugin", "RegDlldll"

Call PluginRegDllReg("\dmdll")

Delay 100

Set dm = createobject("dmdmsoft")

ver = dmVer()

If ver <> "31233" then

Set dm = nothing

Set ws=createobject("WscriptShell")

wsrun "regsvr32 \dmdll /s"

Set ws=nothing

Delay 300

Set dm = createobject("dmdmsoft")

Delay 100

ver = dmVer()

If ver <> "31233" then

Verify = 60

//下面这两行是一句，按键精灵里面写成一行。

MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dmGetBasePath() & Chr(10) & "请关闭程序,重新打开本程序再尝试"

End if

End If

End Sub

创建大漠对象，就是一句话，就是这句：Set dm = createobject("dmdmsoft")

之后就可以用大漠插件里面的函数了，如果是线程，必须每个线程创建一个大漠。这句话的意思是，在线程里面，每个线程都要在前面写一句 Set dm = createobject("dmdmsoft")

至于后台，那就是绑定，大漠帮助文件里面有一个后台设置的内容，你看那里有详细讲，至于后台用哪种方式比较好，效果行不行，这就不确定了，这要你自己测试才知道（有时候，大漠那么多模式都不合适的），要是这样，你就想其他办法咯。

以上就是关于请按键精灵高手帮下忙，谢谢了全部的内容，包括:请按键精灵高手帮下忙，谢谢了、按键精灵，侦测鼠标变形后点击一下左键、大漠插件后台鼠标如何 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！