鼠标移动脚本

① 按键精灵 编写脚本 如何让鼠标移动

鼠标移动 move 例如50,80 deplay 48000 鼠标移动 move 例如90,100 deplay 48000 然后套个循环

② 按键精灵设置鼠标移动脚本

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

③ 按键精灵怎么做鼠标滚轮上下滚的脚本就是鼠标的中键

按键精灵设置脚本方法：

//如果滚动量为正,向上滚动;否则向下滚动，MouseWheel 1。

//把鼠标滚轮向上滚动1格。

MouseWheel -1。

//把鼠标滚轮向下滚动1格。

按键精灵是一款模拟鼠标键盘动作的软件。通过制作脚本，可以让按键精灵代替双手，自动执行一系列鼠标键盘动作。

按键精灵简单易用，不需要任何编程知识就可以作出功能强大的脚本。只要在电脑前用双手可以完成的动作，按键精灵都可以替代完成。

软件功能：

1.网络游戏中可使用按键精灵制作脚本，实现自动打怪，自动补血，自动说话等。

2.办公族可用按键精灵自动处理表格间数据的转换，自动调整文档格式、文章排版，自动收发邮件等。

3.利用按键精灵实现定时自动打开检验网页链接，文献检索，收集资料等重复操作。

4.任何只要在电脑前用双手可以完成的电脑操作都可以替代完成。

④ 按键精灵9后台脚本鼠标移动问题

后台操作的时候 你鼠标不能移动到执行脚本的窗口内 否则会造成鼠标错位

也有可能是执行脚本的窗口不支持后台鼠标点击 你可以尝试按下再弹起

Hwnd=Plugin.Window.MousePoint()'这个获取鼠标指向窗口命令最好不用

Hwnd=Plugin.Window.Foreground()

Do
CallPlugin.Bkgnd.LeftDown(Hwnd,828,652)
Delay100
CallPlugin.Bkgnd.LeftUp(Hwnd,828,652)
Delay500
CallPlugin.Bkgnd.LeftDown(Hwnd,803,681)
Delay100
CallPlugin.Bkgnd.LeftUp(Hwnd,803,681)
Delay500
CallPlugin.Bkgnd.LeftDown(Hwnd,803,681)
Delay100
CallPlugin.Bkgnd.LeftUp(Hwnd,803,681)
Delay500
Loop

⑤ 按键精灵后台鼠标移动和点击脚本怎么制作。

具体代码如下:
PutAttachment "d:\p", "*.*"

//获取窗口句柄
Hwnd = Plugin.Window.MousePoint()
//获取窗口客户区左上角坐标
sRect = Plugin.Window.GetClientRect(Hwnd)
xyArray = Split(sRect, "|", - 1 , 1)
dx = xyArray(0)
dy = xyArray(1)

//转移窗口
KMData = Plugin.bgkms6_10.KMTransform(hwnd, 0)

//Plugin.BGCP2_02.TransformWindow 参数1

//加载图片
tu = Plugin.BGCP2_02.LoadBMP("d:\p\4.bmp")
tu1 = Plugin.BGCP2_02.LoadBMP("d:\p\12.bmp")
Do
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 3000
For 60
Call Plugin.BGCP2_02.FindPicture(hwnd, 0, 0, 1024, 768 ,tu(0), 30, 0.9, ipX, ipY)
If ipX > 0 And ipY > 0 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Delay 1000
Call Plugin.BGCP2_02.FindPicture(hwnd, 0, 0, 1024, 768 ,tu1(0), 30, 0.9, intX, intY)
If intX > 0 And intY > 0 Then
Call Plugin.bgkms6_10.MoveTo(KMData, intX, intY) //
Delay 1000
call Plugin.bgkms6_10.LeftClick (KMData) //这里后台点击鼠标左击没反应,是不是那地方写错了?
Delay 200
End If
End If
//End If
Next
Delay 100
Loop
Sub OnScriptExit
//释放转移窗口
Call Plugin.BGCP2_02.UnTransformWindow(Hwnd)
call Plugin.bgkms6_10.KMUntransform (KMData)
End Sub

⑥ 按键精灵后台鼠标移动和点击脚本怎么制作

先获取要后台操作的窗口句柄，然后调用后台命令进行点击。

参考以下代码：

Hwnd=Plugin.Window.Find(0,"无标题-记事本")
CallPlugin.Bkgnd.LeftClick(Hwnd,100,200)

⑦ 关于按键精灵鼠标移动脚本的问题 下面是我的脚本代码

hwnd
=
plugin.window.mousepoint()
这条命令可以得到窗口句柄，但是如果需要移动鼠标的话后台运行坐标和前台是不一样的

⑧ 按键精灵鼠标移动和点击脚本

你可以录制一个，然后改一下
下面的是循环1000次，你可以改一下
到时候你可以在外面设置F10是开启，F12是暂停

For 1000
Delay 50
MoveTo 702, 520
LeftClick 1
Delay 50
MoveTo 722, 537
LeftClick 1
Next

⑨ 求会写按键精灵脚本的大神，需要写个鼠标自动移动点击的脚本

按键精灵后面的版本我都没用了，我用的是9.55版本，不会出现那种情况，不过，如果按键精灵热键会影响脚本执行时间，你可以换一个方法，写下面代码While
True
Key=WaitKey()
If
Key=48
Then
For
i=1
To
10
KeyPress
65,1
NextWend脚本启版动热键不用设1，你先启动脚本，然后每按一次数字1，就会马权上按10个a。