网上科普有关“求指点按键精灵后台怎么制作”话题很是火热,小编也是针对求指点按键精灵后台怎么制作寻找了一些与之相关的一些信息进行分析,如果能碰巧解决你现在面临的问题,希望能够帮助到您。
//后台循环按键---------------------------------------------
点击 = WaitClick()//等待点击要抓取的窗口
//按键 = WaitKey()//等待按键
Delay 10//等待时间10毫秒
//得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
do
Delay 1000
//向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:49)按键("1")如果你会查按键的扫描码.你就
自己查出来,自己改改.如果你不会,我也没办法,我也没有时间.
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 500
loop
//后台循环左键点击
点击 = WaitClick()//等待点击要抓取的窗口
//按键 = WaitKey()//等待按键
Delay 10//等待时间10毫秒
//得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
//下面这句是得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(Hwnd)
//MsgBox "得到窗口句柄的客户区大小为:"& sRect
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
//dim MyArray
MyArray = Split(sRect, "|")
//下面这句将字符串转换成数值
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
//Msgbox "窗口客户端后台坐标系原点的前台坐标x0" & L & ",窗口客户端后台坐标系原点的前台坐
标y0" & T & ", 窗口客户端后台坐标x的最大值(宽)"& R & ",窗口客户端后台坐标y的最大值(高)" &
B
do
Delay 1000
//向后台窗口句柄(变量:Hwnd)的客户区域(坐标:0, 0)处发送一个鼠标左键单击,自己改后台坐标.
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)//后台坐标系
//Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)//用变量
//Call Plugin.Bkgnd.LeftClick(Hwnd, x-l, y-t)//(变量为前台坐标系)
Delay 500
Loop
//指定点后台点击的例子------------------------
点击 = WaitClick()//等待点击
Delay 10
//得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
GetCursorPos x, y//保存当前坐标
//下面这句是得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(Hwnd)
//MsgBox "得到窗口句柄:"& hwnd //显示句柄
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
//dim MyArray
MyArray = Split(sRect, "|")
//下面这句将字符串转换成数值
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
Do//循环开始
Delay 1000//等待1秒
Call Plugin.Bkgnd.LeftClick(Hwnd, x-l, y-t)//(变量为前台坐标系)
Loop//循环结点
//361后台找图例子----------------------------------
Hwnd = Plugin.Window.Foreground()
Call Plugin.BGCP2_02.TransformWindow(hwnd)
KMData = Plugin.bgkms6_10.KMTransform(hwnd, 0)//普通模式
//KMData = Plugin.bgkms6_10.KMTransform(hwnd, 1)//高级模式
If KMData = 0 Then
MsgBox "获得窗口数据失败",4096
EndScript
End If
Call Plugin.BGCP2_02.FindPicture(hwnd, 0, 0, 1024, 768, "D:\My Documents\My
Pictures\1.bmp", 10, 0.9, x, y)//注不能用附件中的.
If x >= 0 And y >= 0 Then
Call Plugin.bgkms6_10.MoveTo(KMData, x, y)
Delay 50
Call Plugin.bgkms6_10.LeftClick(KMData)
Delay 200
End If
Sub OnScriptExit()
Call Plugin.BGCP2_02.UnTransformWindow(hwnd)
Call Plugin.bgkms6_10.KMUntransform(KMData)
End Sub
QQ幻想世界按键精灵 自动打怪
1、打开按键精灵,或者新建一个脚本。
2、然后点击上方的抓抓。
3、此时就会出现抓抓工具,点击图像。
4、然后打开需要确定坐标的窗口,点击截屏。
5、将整个屏幕截取下来了,然后找到需要确定位置的地方,选择将坐标添加到点1,,如果有多个坐标,可以分别加入到点2,3,4,5……
6、在放大镜中可以看到点的坐标。
7、关闭抓抓,在脚本的编辑界面,点击鼠标命令。
8、可以看到刚才找到的点1,2,3……,点击插入。
9、就输入了将鼠标移动到刚才那点位置的命令了。
复制到新建脚本,启动热键可用。令 Hwnd = Window.Find(0,"QQ幻想世界")令 sRect = Window.GetClientRect(Hwnd)定义变量 MyArray令 MyArray = Split(Rect,"|")令 Ux = CLng(MyArray(0))令 Uy = CLng(MyArray(1))标记 脚本开始标记 选怪延时 32 毫秒(键盘)按 "Tab" 键, 1次延时 1000 毫秒如果点 (528 + Ux,44 + Uy) 的颜色等于 "D79D" 则 标记 JZD (键盘)按 "F10" 键, 1次 延时 1000 毫秒 (键盘)按 "F2" 键, 1次否则 跳转到标记 选怪条件结束如果点 (315 + Ux,52 + Uy) 的颜色等于 "383433" 则 跳转到标记 JZD否则条件结束延时 32 毫秒如果点 (147 + Ux,45 + Uy) 的颜色不等于 "FFFFFF" 则 (键盘)按 "2" 键, 1次否则条件结束如果点 (120,58) 的颜色不等于 "83600A" 则 (键盘)按 "1" 键, 1次条件结束(键盘)按 "Space" 键, 1次延时 500 毫秒(键盘)按 "Space" 键, 1次延时 500 毫秒(键盘)按 "Space" 键, 1次延时 500 毫秒(键盘)按 "Space" 键, 1次跳转到标记 脚本开始
关于“求指点按键精灵后台怎么制作”这个话题的介绍,今天小编就给大家分享完了,如果对你有所帮助请保持对本站的关注!
本文来自作者[褒佳怡]投稿,不代表创健号立场,如若转载,请注明出处:https://chuangjian-nb.com/cshi/202504-13351.html
评论列表(4条)
我是创健号的签约作者“褒佳怡”!
希望本篇文章《求指点按键精灵后台怎么制作》能对你有所帮助!
本站[创健号]内容主要涵盖:国足,欧洲杯,世界杯,篮球,欧冠,亚冠,英超,足球,综合体育
本文概览:网上科普有关“求指点按键精灵后台怎么制作”话题很是火热,小编也是针对求指点按键精灵后台怎么制作寻找了一些与之相关的一些信息进行分析,如果能碰巧解决你现在面临的问题,希望能够帮助...