按键精灵如何实现后台指定坐标点击左键 【按键精灵】后台找色 如何实现:某坐标点不等于某色那么执行鼠...

\u6309\u952e\u7cbe\u7075\u5982\u4f55\u5b9e\u73b0\u540e\u53f0\u67d0\u4e2a\u7a97\u53e3\u67d0\u4e2a\u4f4d\u7f6e\u70b9\u51fb\u5de6\u952e

Hwnd = Plugin.Window.MousePoint()
\u5148\u8981\u5f97\u5230\u8981\u70b9\u51fb\u7a97\u53e3\u7684\u53e5\u67c4\uff0c\u518d\u7ed9\u70b9\u51fb\u7684\u5750\u6807
Call Plugin.Bkgnd.LeftClick(Hwnd, 100, 100)

GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 832,274)If GetColor "0000FF" Then MessageBox "" dm.moveTo 832,274 //\u6b64\u5904\u4f7f\u7528\u5927\u6f20\u63d2\u4ef6\u6a21\u62df\u9f20\u6807\u79fb\u52a8 dm.LeftClick //\u4f7f\u7528\u5927\u6f20\u63d2\u4ef6\u6a21\u62df\u9f20\u6807\u6309\u952eEnd If\u5982\u4e0a\u4ee3\u7801

\u6216\u8005\u76f4\u63a5\u8fd9\u6837\u5199\u4e5f\u884c
If \u989c\u8272="1" Then'\u5982\u679c\u989c\u8272\u4e0d\u7b49\u4e8e1\u5219\u6267\u884c\u5927\u6f20\u9f20\u6807832,274\u70b9\u51fb\u547d\u4ee4
Else
dm.moveTo 832,274
dm.LeftClick
End If

给我Q 我教你做
下面是一个QQ种地游戏的后台点击源码。获取鼠标指定窗口,获取鼠标位置,并后台点击4*6=24个点。在画图软件中可以测试,仅供参考。

Hwnd = Plugin.Window.MousePoint()
//调用插件得到鼠标停留窗口句柄,结果返回给变量hwnd
Rect = Plugin.Window.GetClientRect(Hwnd)
//调用插件根据窗口句柄得到当前客户区坐标数据,结果返回给变量Rect
MyArray = Split(Rect , "|" , -1 , 1)
//以"|"这个条件来分割字符串rect,结果返回数组MyArray()
//在这里这个字符串rect分割后有4个数组元素,它们分别是:
//MyArray(0)=客户区左上角X坐标
//MyArray(1)=客户区左上角Y坐标
//MyArray(2)=客户区宽度
//MyArray(3)=客户区高度
UserVar hang=6 "种几行"
UserVar lie =4 "种几列"
NxAdd = 24.81
NyAdd = 12.95
GetCursorPos x, y
x = x - MyArray(0)
y = y - MyArray(1)
Nx = x
Ny = y
temp=0
While temp < hang
For lie
Call Plugin.Bkgnd.LeftClick(Hwnd ,Nx, Ny)
Nx = int(round(Nx + NxAdd+0.6,1))
Ny = int(round(Ny - NyAdd,1))
Next
temp = temp + 1
Nx = int(round(x + NxAdd * temp+0.4,1))
Ny = int(round(y + NyAdd * temp+0.6,1))
Wend
EndScript

//指定点后台点击的例子------------------------
点击 = 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//循环结点

→_→我i只是完成个任务。你说的可能可以录制下来然后→_→

  • 鎸夐敭绮剧伒濡備綍瀹炵幇鍚庡彴鎸囧畾鍧愭爣鐐瑰嚮宸﹂敭?
    绛旓細//鎸囧畾鐐瑰悗鍙扮偣鍑鐨勪緥瀛---鐐瑰嚮 = WaitClick()//绛夊緟鐐瑰嚮Delay 10//寰楀埌榧犳爣鎸囧悜鐨勭獥鍙e彞鏌凥wnd = Plugin.Window.MousePoint()GetCursorPos x, y//淇濆瓨褰撳墠鍧愭爣//涓嬮潰杩欏彞鏄緱鍒扮獥鍙e彞鏌勭殑瀹㈡埛鍖哄ぇ灏 sRect = Plugin.Window.GetClientRect(Hwnd) //MsgBox "寰楀埌绐楀彛鍙ユ焺锛"& hwnd //鏄剧ず鍙...
  • 鎸夐敭绮剧伒浠涔瀹炵幇鐐规寚瀹氬悗鍙绐楀彛鐨鍧愭爣
    绛旓細鍏堝彇寰楀鎴峰尯鍙ユ焺锛岀劧鍚庢妸绐楀彛绉诲姩鍒板睆骞曞锛岀敤鍚庡彴榧犳爣鍗曞嚮鍙互瀹炵幇鐐瑰嚮鍚庡彴绐楀彛鐨勫潗鏍銆//寰楀埌褰撳墠鏈鍓嶉潰鐨勭獥鍙e彞鏌 Hwnd1 = Plugin.Window.Foreground()//寰楀埌榧犳爣鎸囧悜鐨勭獥鍙e彞鏌 Hwnd2 = Plugin.Window.MousePoint()//绉诲姩绐楀彛鍒(x1, y1)浣嶇疆锛岀獥鍙e鏌愬潗鏍囩偣 Call Plugin.Window.Move(Hwnd1, x1,...
  • 濡備綍鍋氫竴涓(鍚庡彴杩愯鐨 鍥哄畾鍧愭爣浣嶇疆 榧犳爣宸﹂敭鍗曞嚮,鑷姩杩炵偣鍣 鑴氭湰...
    绛旓細鍏堟妸榧犳爣鍙戝埌闇瑕佽繍琛岃剼鏈殑杞欢涓婏紝杩愯鑴氭湰锛屼箣鍚庡氨鍙互鍚庡彴杩愯浜锛屽墠鎻愭槸杞欢鏀寔鎸夐敭绮剧伒鍚庡彴 (Hwnd, 0, 0)閲岄潰2涓0浠h〃X.Y鍧愭爣锛岃嚜宸辫幏鍙 1000鏄1000姣(1绉)锛屾牴鎹嚜宸辫姹備慨鏀
  • 濡備綍鍋氫竴涓(鍚庡彴杩愯鐨 鍥哄畾鍧愭爣浣嶇疆 榧犳爣宸﹂敭鍙屽嚮,鑷姩杩炵偣鍣 鑴氭湰...
    绛旓細瑕佽嚜鍔ㄨ幏鍙栧悗鍙扮偣鍑绘椂鐨勫潗鏍,蹇呴』鐢ㄤ竴涓彃浠,鍙361绐楀彛鎻掍欢澧炲己鐗,浣犺嚜宸卞幓鎸夐敭绮剧伒璁哄潧涓嬭浇,鍚﹀垯涓嬮潰鐨勮剼鏈槸鏃犳硶杩愯鐨 鏈変簡鎻掍欢鍚,榧犳爣绉诲姩鍒伴渶瑕佺偣鍑荤殑浣嶇疆,鎸変笅鐑敭鍚姩,灏辫浜 Plugin h=Window.MousePoint()VBSCall GetCursorPos(x,y)Plugin WindowEx3.ScreenToClient(h,x,y)Rem 寰幆 Plugin Bkg...
  • 鎬庝箞鐢鎸夐敭绮剧伒鍚庡彴鎿嶄綔?
    绛旓細1銆侀鍏堟墦寮鎸夐敭绮剧伒锛岀偣鍑绘柊寤猴紱2銆侀夋嫨鍏ㄩ儴鍛戒护-鎻掍欢鍛戒护-Window 绐楀彛鎻掍欢-MousePoint锛岀劧鍚庣偣鍑绘彃鍏ユ鍛戒护鏄敤鏉ヨ幏寰楅紶鏍囨墍鎸囧悜浣嶇疆鐨勭獥鍙e彞鏌勶紱3銆佽幏鍙栧埌绐楀彛鍙ユ焺涔嬪悗鎴戜滑灏卞彲浠ュ鐩爣绐楀彛杩涜鎿嶄綔浜嗭紝姣斿娴嬭瘯鍚戣浜嬫湰涓寜涓婤AIDU杩欏嚑涓敭锛4銆侀夋嫨鎻掍欢鍛戒护-Bkgnd 鍚庡彴鎻掍欢-keypress 妯℃嫙鎸夐敭 锛堟鍛戒护...
  • 鎸夐敭绮剧伒鎬庝箞鍦鍚庡彴鐐榧犳爣鍟?
    绛旓細1銆丏o//寰幆寮濮嬶紝Delay 1000//绛夊緟1绉掞紝鐐瑰嚮 = WaitClick()//绛夊緟鐐瑰嚮 Delay 10锛//寰楀埌榧犳爣鎸囧悜鐨勭獥鍙e彞鏌 Hwnd = Plugin.Window.MousePoint()锛2銆丟etCursorPos x, y//淇濆瓨褰撳墠鍧愭爣锛孋all Plugin.Bkgnd.LeftClick(Hwnd, x, y)//鍚庡彴鐐瑰嚮锛孡oop//寰幆缁撶偣銆鎸夐敭绮剧伒鏄竴娆炬ā鎷熼紶鏍囬敭鐩樺姩浣滅殑...
  • 姹傛暀鎸夐敭绮剧伒楂樻墜,濡備綍鍒涘缓涓鍚庡彴榧犳爣鐐瑰嚮鏌鍧愭爣鐨勮剼鏈
    绛旓細'鑾峰彇绐楀彛鍙ユ焺 hWnd = Plugin.Window.Foreground()'鍚戠獥鍙e彂閫侀紶鏍囧乏鍑绘秷鎭 Call Plugin.Bkgnd.LeftClick(hWnd,18,56)
  • 姹傛暀鎸夐敭绮剧伒8鍚庡彴榧犳爣绉诲姩鍧愭爣闂
    绛旓細鎸夐敭绮剧伒8鍚庡彴榧犳爣鍧愭爣锛屾槸鏍规嵁绐楀彛鍙ユ焺鏉ョ殑銆傛瘡娆℃墦寮涓涓獥鍙e緱鍒扮殑鍙ユ焺鏄笉鍚岀殑銆傦紙濡傜綉椤垫父鎴忥級寰楀埌绐楀彛鍙ユ焺鐨勫悓鏃讹紝鍙互寰楀埌绐楀彛鐨勫乏涓婅鍧愭爣鍊笺傚埄鐢ㄢ滄姄鎶撯濆緱鍒板睆骞曞潗鏍囧硷紝鍑忓幓绐楀彛宸︿笂瑙掑潗鏍囧肩殑鏁板硷紝褰撶劧寰楀埌鐨勫氨鏄紶鏍囧湪鍚庡彴绐楀彛鐨勫潗鏍囦簡銆備妇涓緥瀛愶細Hwnd = Plugin.Window.MousePoint() /...
  • 鎸夐敭绮剧伒鍚庡彴绐楀彛鍧愭爣鑾峰彇鏂规硶鍜屽悗鍙伴紶鏍囧懡浠ゆ眰楂樻墜瑙g瓟銆
    绛旓細鎸夐敭绮剧伒鍚庡彴榧犳爣鐐瑰嚮鎿嶄綔鍓嶉潰蹇呴』瑕佸姞鍚庡彴绉诲姩榧犳爣璇彞銆侰all Plugin.Bkgnd.MoveTo(aaaa, 391, 404)Call Plugin.Bkgnd.LeftClick(aaaa, 391, 404)涓ゅ彞蹇呴』涓璧凤紝鎵嶄笉浼氬嚭閿欙紝杩樻湁锛屽墠鍙伴紶鏍囦細褰卞搷鍚庡彴鎿嶄綔锛屽洜姝ゅ敖閲忛伩鍏嶇獥鍙f椿鍔ㄦ椂闅忎究鍦ㄧ獥鍙e唴绉诲姩榧犳爣銆
  • 鎴戞兂鐭ラ亾鎸夐敭绮剧伒9鍚庡彴鑾峰緱榧犳爣褰撳墠鍧愭爣浣嶇疆鐨勫姙娉曘傛渶濂藉啓涓剼鏈琠鐧惧害...
    绛旓細GetCursorPos x, y 鍛戒护鍚嶇О锛 GetCursorPos 寰楀埌榧犳爣浣嶇疆鍧愭爣 鍛戒护鍔熻兘锛 寰楀埌褰撳墠榧犳爣鎵鍦ㄧ殑浣嶇疆鍧愭爣 鍛戒护鍙傛暟锛 鍙傛暟1 鏁存暟鍨嬶紝杩斿洖x鍧愭爣 鍙傛暟2 鏁存暟鍨嬶紝杩斿洖y鍧愭爣 杩欎釜鏄墠鍙 璨屼技 鍚庡彴 杩樻病鏈 鑾峰緱 榧犳爣鍧愭爣鐨 鍔熻兘 鍙兘 鍚庡彴 绉诲姩 鏄庢槑鍚庡彴 榧犳爣 瀹為檯涓 鏄病鏈夐紶鏍 鐨 鎬庝箞 鑾峰緱 ...
  • 扩展阅读:按键精灵手机版下载 ... 按键精灵怎么改为后台 ... 怎么设置后台永久运行 ... 按键精灵自动挂机脚本 ... 按键精灵脚本怎么换成后台 ... 按键精灵过第三方检测 ... 按键精灵怎么后台键盘 ... 按键精灵指定窗口后台 ... 按键精灵怎么制作手机脚本 ...

    本站交流只代表网友个人观点,与本站立场无关
    欢迎反馈与建议,请联系电邮
    2024© 车视网