按键精灵找图找色、多线程、循环判断等实用的小技巧和源代码
按键精灵找图找色、多线程、循环判断等实用的小技巧和源代码
TNEKY天空学习
按键精灵多线程判断界面是否卡死。以及多线程使用注意事项:思路:先设置共享变量，线程检测如果入过10如果10秒之后，判断界面还是在同一初，就改变共享变量的值；停止整个脚本。Dim id,valueid = thread.start(findcolor1)Thread.SetShareVar(&是否卡死&,false)Do
Delay 1000
TracePrint &主线程正在运行中……&
If Thread.GetShareVar(&是否卡死&) = true Then
TracePrint &检测到界面卡死！！&
End ifLoopTracePrint &界面卡死，结束整个脚本！&Function findcolor1()
Dim c1,c2,s
c1 = GetPixelColor(176, 110)
Delay 1000
c2 = GetPixelColor(176, 110)
If c1 && c2 Then
TracePrint &颜色改变,界面变化&
c1 = GetPixelColor(176, 110)
TracePrint &颜色没有改变，界面没有变化！&,s
If s &= 10 Then
TracePrint &界面卡住了！！&
Thread.SetShareVar &是否卡死&, true
LoopEnd Function按键精灵实现远程控制脚本【源代码】思路:首先判断是否连接网络，否则停止脚本。读取某一网页，判断是否有这个字符，有则停止脚本。按键精灵广告话术保存在数组里，实现随机发送思路:把广告语保存在数组里，利用随机数 InputText 输出。
本文仅代表作者观点，不代表百度立场。系作者授权百家号发表，未经许可不得转载。
TNEKY天空学习
百家号 最近更新：
简介: 理想，能给天下不幸者以欢乐。
作者最新文章Linkbutton(玛丽)
看完之后如果还有些地方不能把握，可以参考经验片，程序是死的，人脑是活的====================================================================&准备工作 1. 游戏截图一张.....（必然的） 2.按键精灵...（这不是废话么），这里我用的是按键精灵8 3.如果看不懂我也没办法了，我认为我写的够清楚了有了以上2样东西，我们就可以实现一切功能了，这里为了体现多线程的含义，就拿摸猪做个例子吧！原代码等下附上 ---------------------------------------------------如何制作按键精灵需要的图片------------------------------------------------------------------------------ 这里是重中之中~~做不好图，在好的源码也不认识！！！！根据例行要求，当然是准备游戏截图一样了，图在下面
=730) window.open('/attachment/Mon__239313_bf42efaf27ce8b8.jpg');" onload="if(this.width>'730')this.width='730';" >因为摸的是药草，所以我们把图片放大8背后（这里用WINDOWS自带的画图工具便可）截取需要的图片应该是这个样子的 =730) window.open('/attachment/Mon__b74e0bc862a18.jpg');" onload="if(this.width>'730')this.width='730';" >然后咱们用铅笔工具把周围都涂上其他的颜色（4个顶点颜色必须一样），这样呢，程序就会把背景色当成透明色，方便找到&阳光药草&这4个子就变成这个样子了 =730) window.open('/attachment/Mon__bc3aab.jpg');" onload="if(this.width>'730')this.width='730';" >然后我们将改好的图片 另存为24位BMP图像变可因为不同的电脑，不同的系统，图片显示的可能不一样，所以授人以鱼不如授人以渔为了方便大家吸收，特地找来了一张GIF图片，帮助大家吸收抓图部分=730) window.open('/attachments/vczE49T1w7S92A==_3q8VUumQXvr7.gif');" onload="if(this.width>'730')this.width='730';" >做图部分=730) window.open('/attachments/vczE49T1w7TWxg==_kjy0UDmngnoU.gif');" onload="if(this.width>'730')this.width='730';" >----------------------------------------------------------------代码部分--------------------------------------------------------------------------------------------因为是摸猪，我希望摸完猪后通过图片来识别草，并且拿起来，所以这里咱们要做的图不只一张，这里笔者也不一一举例了，大家按照上面的方法做图便可......有了图，接下来的当然就是代码部分，这里我要谈谈帖子开头便引入的多线程概念Q&AQ：什么是多线程？A：在一个程序中，这些独立运行的程序片断叫作“线程”（Thread），利用它编程的概念就叫作“多线程处理”。Q：多线程处理有什么好处？A：程序的运行速度可能加快！拿我们这个帖子的找图为例，大家是希望我们的程序找完一张在接着找另外一张图呢？还是希望我们的程序同时找多张图片呢？可是这里，我们的图片高达5张多.......答案很明显，同时找多张图片的效率要快的多......这里为了让大家知道多线程在按键精灵中的用法，我写了个简单的小例子BeginThread ms1&&&&&&BeginThread ms2Sub ms1&&MsgBox &线程1&End SubSub ms2&&MsgBox &线程2&End Sub这段代码相信大家都看的懂吧，就是让程序弹出2个对话框 分别是“线程1”&&“线程2”为了体现多线程的好处，我们在看看这段代码不用多线程的写法Call ms1Call ms2Sub ms1&&MsgBox &线程1&End SubSub ms2&&MsgBox &线程2&End Sub大家可以把这2段代码复制进按键精灵，运行一下，我们可以看到，多线程处理的代码，对话框时同时弹出来的而，普通的代码运行则是先弹出“线程1” 等我们点了【确定】按钮再弹出“线程2”下面谈谈找图的函数FindPic 0,0,,&Attachment:\基础药草.bmp&,0.7,intX,intY&&&&&& ----&这句话的意思是让程序找指定图片If intX & 0 And intY & 0 Then&&&&&&&&&&&&&&----&如果找到intX,intY的值都是大于0的，不然是-1，所以这里判断找到图了没KeyDown &Alt&, 1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ----&Delay 500&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&找MoveTo intX,intY&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 到MoveR 10,10&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 图Delay 200&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&后的LeftClick 1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&一系列KeyUp &Alt&, 1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&操作&&&&&&&&&&&&&&&---End If------------------------------------------------------------例子的思路---------------------------------------------------------------------------------------------功能很简单： 摸猪完了以后，把掉在地上的草捡起来.................思路：因为摸一次只会掉1种草，于是我们让程序同时找多种草，如果有一种就捡起来下面我把我写的代码放出Hwnd = Plugin.Window.Find(0, &洛奇&)Plugin.Window.Active(Hwnd)//激活洛奇窗体Delay 100Dim jx,jy,number//准备开始脚本，请将鼠标指向猪的位置&GetCursorPos jx,jy//获得猪的坐标,因为脚本开始先鼠标指向了猪，获得鼠标的坐标就是获得了猪的坐标number = inputBox(&输入要摸的次数后，按回车等待3秒开始摸猪&)For numberDelay 3700Call 开始摸猪Delay 3000Call 多线程找图NextMessageBox &请注意给猪或则牛补蓝&Sub Selectcao1//找基础药草FindPic 0,0,,&Attachment:\基础药草.bmp&,0.7,intX,intYIf intX & 0 And intY & 0 ThenKeyDown &Alt&, 1Delay 500MoveTo intX,intYMoveR 10,10Delay 200LeftClick 1KeyUp &Alt&, 1End IfEnd SubSub Selectcao2//找血红药草FindPic 0,0,,&Attachment:\血红药草.bmp&,0.7,intX,intYIf intX & 0 And intY & 0 ThenKeyDown &Alt&, 1Delay 500MoveTo intX,intYMoveR 10,10Delay 200LeftClick 1KeyUp &Alt&, 1ElseEnd IfEnd SubSub Selectcao3//找魔法药草FindPic 0,0,,&Attachment:\魔法药草.bmp&,0.7,intX,intYIf intX & 0 And intY & 0 ThenKeyDown &Alt&, 1Delay&&500MoveTo intX,intYMoveR 10,10Delay&&200LeftClick 1KeyUp &Alt&, 1End IfEnd SubSub selectcao4//找白色药草FindPic 0,0,,&Attachment:\白色药草.bmp&,0.7,intX,intYIf intX & 0 And intY & 0 ThenKeyDown &Alt&, 1Delay 500MoveTo intX,intYMoveR 10,10Delay 200LeftClick 1KeyUp &Alt&, 1End IfEnd SubSub selectcao5//找阳光药草FindPic 0,0,,&Attachment:\阳光药草.bmp&,0.6,intX,intYIf intX & 0 And intY & 0 ThenKeyDown &Alt&, 1Delay 500MoveTo intX,intYMoveR 10,10Delay 200LeftClick 1KeyUp &Alt&, 1End IfEnd Sub// 这里把多线程操作封装在了一个子程序里Sub 多线程找图 BeginThread Selectcao1 BeginThread Selectcao2 BeginThread Selectcao3 BeginThread Selectcao4 BeginThread Selectcao5End SubSub 开始摸猪 MoveTo jx,jy Delay 500 LeftClick 1End Sub-----------------------------------------------------------------------温馨提示-----------------------------------------------------------------经过本人试验，多线程操作对于按键精灵来说有一定的缺陷，我们尽量不要用多线程处理对键盘进行一些操作，不然会出BUG看帖回帖是美德！谢谢[ 此帖被浅笑在 15:10重新编辑 ]
推倒你们=650) window.open('/small/c323ed55tw1e3xenjehlnj20dw07vmxe.jpg');" onload="if(this.width>'650')this.width='650';if(this.height>'150')this.height='150';" >
卖汤团(玛丽)
SF下- -希望全自动摸猪喂蓝捡草早日上市 =wwwww=
歪币:+1(浅笑) 其实不难的- -，只是我不想去写....因为有 ..
+久里山井戸+=650) window.open('/mypoco/myphoto//1.png');" onload="if(this.width>'650')this.width='650';if(this.height>'150')this.height='150';" >
视屏版就好了，谢楼主[ 通过手机发表 ]
看到这字我以为老s……按键8对多线程的处理还是有不少问题 继续等新版
这样就可以全自动割捡羊毛了0.0
Linkbutton(玛丽)
引用第5楼于 14:24发表的&&:这样就可以全自动割捡羊毛了0.0但是羊必须卡好 -，-
推倒你们=650) window.open('/small/c323ed55tw1e3xenjehlnj20dw07vmxe.jpg');" onload="if(this.width>'650')this.width='650';if(this.height>'150')this.height='150';" >
ToTdddd(玛丽)
有意思。。。可以用来检淘金，，，
你猜(克莉斯特)
mark 慢慢看
清晨(伊文)
学习了 我一直想做一个按键全自动摸草的脚本 但是水平太低一直没能做出来 T&& T
感谢楼主分享
&|- YY新手教室
&|- YY大冒险
&|- 旧帖查阅
洛奇英雄传
☜_人形公馆_☞
页游手游区
&|- 事务所
版主会议室
&|- 大杂烩
&|- 自曝区
&|- 日记屋
&|- 水星球
&|- YY秀创作交流版
&|- YY秀舞台
&|- 原创屋
原创故事版
&|- 跳蚤市场
&|- 洛奇讨论版
>> 洛奇分区
玛丽交易区
&|- 鲁拉里
鲁拉里交易区
伊文交易区
潘妮交易区书友最值得收藏的网络小说书库...