【综合教程】关闭指定弹窗，延迟最佳加法，内循环的妙用，子程序变量传递 - 新手专区 - 按键精灵论坛 - Powered by Discuz!
我的图书馆
【综合教程】关闭指定弹窗，延迟最佳加法，内循环的妙用，子程序变量传递 - 新手专区 - 按键精灵论坛 - Powered by Discuz!
本帖隐藏的内容//下面是VBS的方法
Set WSHShell=CreateObject("Wscript.Shell")intMsg=WSHShell.Popup ("提示内容",多少秒后关闭,"弹窗的标题",vbOKOnly)
复制代码//下面这个是获取句炳按回车的方法，放到弹出窗口之后的地方
DoHwnd = Plugin.Window.Find(0, "弹窗的标题")If Hwnd & 0 Then//如果发现弹窗Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//通过按下回车键关闭窗口End IfDelay 500Loop Until Hwnd & 0复制代码//如不知道放哪里也可以用这个代码，多线程获取句炳关闭，放到程序最上面，不过这个会比较占资源
BeginThread 关闭
Sub 关闭()
Hwnd = Plugin.Window.Find(0, "弹窗的标题")
If Hwnd & 0 Then//如果发现弹窗
Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//同上
End Sub复制代码你是否遇到过脚本卡的情况呢，询问论坛的老鸟怎么解决，都在说加延迟，那么你知道延迟加在哪里的效果最好吗？那么回复下吧
本帖隐藏的内容
& & Delay 300 //这里的延迟最重要，这是整个循环的核心，所以这里必须上延迟，补上延迟和延迟100毫秒的效果是差很远的
& & FindColor 0,0,00FF",intX,intY//找色一
& & If intX & 0 And intY & 0 Then&
& && &&&//很多人都往这个位置加延迟，其实这里没有多大效果
& && &&&MoveTo intX, intY
& && &&&LeftClick 1
& && &&&//这里是加延迟的好地方，如果脚本在这里执行延迟，那么整个循环会暂时停止，所以想要脚本稳定，就必须在这里上50-150之间的延迟
& & End If
& & //这个位置是找色二的开始，建议50就够了
& & FindColor 0,0,00FF",intX,intY//找色一
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intX, intY
& && &&&LeftClick 1&&//同上
& & End If
Wend复制代码//下面看这个书写脚本错误的例子，前面是循环，后面是子程序的调用，这个脚本开始执行没问题，但是后面会奔溃//这是因为每次调用一次子程序都会占用一段内存来保存未执行的部分(弹出对话框的部分被保存),所以内存占用会越来越多最终导致崩溃
& & Call 子程序
loop& && && && && &&
Sub 子程序
& & Call 子程序a //调用子程序a
& & MessageBox("1")
Sub 子程序a
& & MessageBox("2")
End Sub复制代码//这个大家应该重视下，下面可以通过延迟的方法很好的解决这个问题
& & Delay 300
& & Call 子程序
loop& && &&&
Sub 子程序
& & Delay 300
& & Call 子程序a //调用子程序a
& & MessageBox ("1")
& & Delay 50
Sub 子程序a
& & Delay 300
& & MessageBox ("2")
& & Delay 50
End Sub复制代码//调用上面的代码发现CPU明显下降你是否遇到过要脚本循环做某事，然后如果某事做成，循环结束继续循环做其他事情，想必大家都在用调用子程序来达到目的吧，下面的内循环妙用可以很好解决这个问题
本帖隐藏的内容
Sub 内循环
& & While a = 0 //执行这个循环
& && &&&Delay 300
& && &&&FindColor 0,0,00FF",intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && && && &MoveTo intX, intY
& && && && &LeftClick 1&&//条件成立退出循环
& && && && &Delay 50
& && && && &a =1
& && &&&End If
& & Delay 500
& & While a = 1//执行这个循环
& && &&&Delay 300
& && &&&FindColor 0,0,00FF",intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && && && &MoveTo intX, intY
& && && && &LeftClick 1&&//条件成立退出循环
& && && && &Delay 50
& && && && &a = 2
& && &&&End If
& & Delay 500
& & While a = 2//执行这个循环
& && &&&Delay 300
& && &&&FindColor 0,0,00FF",intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && && && &MoveTo intX, intY
& && && && &LeftClick 1&&//条件成立退出循环
& && && && &Delay 50
& && && && &a = 3
& && &&&End If
End Sub复制代码怎样方法是不是很新颖呢？你是否遇到过当条件成立时，所做的动作都是一样的？比如找到色或者图片执行的动作，都是移动点击或者按下键盘吗?如果一个一个来写会不会很麻烦呢？现在学会了子程序的变量传递就可以很好解决这个问题!{:4_111:}下面看看普通的写法：
本帖隐藏的内容
FindColor 0,0,00FF",intX,intY
If intX & 0 And intY & 0 Then
& & MoveTo intX, intY
& & LeftClick 1
FindColor 0,0,00FF",intX,intY
If intX & 0 And intY & 0 Then
& & MoveTo intX, intY
& & LeftClick 1
FindColor 0,0,00FF",intX,intY
If intX & 0 And intY & 0 Then
& & MoveTo intX, intY
& & LeftClick 1
FindColor 0,0,00FF",intX,intY
If intX & 0 And intY & 0 Then
& & MoveTo intX, intY
& & LeftClick 1
Loop复制代码这样的写法是不是非常长而且容易出错呢?但是细心我们可以发现，每次找到图片都是移动到指定位置然后点击，因此我们可以这样来写。
FindColor 0,0,45",intX,intY
If intX & 0 And intY & 0 Then
Call 子程序变量传递(intX,intY)
Sub 子程序变量传递(a,b)
MoveTo a,b
LeftClick 1
End Sub复制代码这样是不是很节俭了呢？好了教程就到这里，感谢回复查看
TA的推荐TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&[转]&[转]&
喜欢该文的人也喜欢有没有什么方法可以把循环里面的数据保存在一个变量中？ _ 会员专区 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.6软件大小：62.5M更新时间：09-27
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 307|回复: 1
x=1For 15A = Plugin.IEwz.WBKDH_GetText(&TD[& & X & &]&)X = X + 14Next其中A里面的数据每循环一次结果是不一样的，我知道可以保存到一个文本中再读取，但是感觉不太好，所以想问下是否可以将结果用&, 连接起来放在一个变量里。。。
按 键 工 程 师·兼 职
按键X开拓者勋章最先体验按键精灵X，且提交有效反馈的奖励勋章过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章抗战胜利70周年勋章抗战胜利70周年活动的专属勋章单身汪勋章单身贵族的专属勋章按键14周年庆纪念勋章按键14周年庆纪念勋章（360天）按键学院按键学院专属勋章，按键学院学员或文章被院刊收入可领取幸运草勋章（永久）商业小精灵限时活动勋章。马年勋章（360天） 马年纪念勋章（360天）月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励天使勋章天使一样的用户按键明星按键明星勋章黄金之翼黄金之翼勋章举报达人长期举报不良帖子活动狂人论坛活动狂人骨灰级按键用户3年以上的按键论坛用户按键精灵开发者6级可通过提升认证等级来升级勋章：龙年勋章（360天）龙年纪念勋章（360天）十周年勋章（360天）十周年纪念勋章兔年勋章（360天）兔年纪念勋章(360天)论坛GG按键论坛男性用户勋章发帖高手鼓励积极回复，但注意不要灌水哦爱心大使积极帮助新手（可向管理员进行申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章实习版主按键论坛的实习版主专属勋章按键元老资深按键用户的尊贵荣誉勋章管理人员按键论坛的管理团队专属勋章
A = Plugin.IEwz.WBKDH_GetText(&TD[& & X & &]&)
X = X + 14
自命不凡，其实很落魄个人QQ:让我静静想一想 曾经的过往有过精彩也有过感伤迷惘不管是平静与匆忙 苦闷或欢畅总有份期盼在我的身旁时光不停流逝会让我疯狂也让我更坚强您所在的位置：&>&&>&&>& > 按键精灵怎么用? 按键精灵循环设置教程站_软件教程
按键精灵怎么用? 按键精灵循环设置教程站_软件教程
12:08:20　　来源：14498下载　　次阅读
　　 　　　　
大家都在看
正在嫩九门面，竞技场是一个玩野
《王者荣耀》中的曹操可是一位吸
我温柔的陷阱夏以沫小说免费阅读
咖播直播上的直播节目真的是相当
FGO最新卫星英灵表，卫星从者还有求助：如何使每次循环都输入不同的定义变量，其他内容不变，大神！ _ 综合讨论 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.6软件大小：62.5M更新时间：09-27
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 260|回复: 3
按键精灵开发者1级可通过提升认证等级来升级勋章：
求助：如何使每次循环都输入不同的定义变量，其他内容不变，大神 ------------------------------------------------------------------------------------------------------------------------------UserVar Q1=1111111 &QQ帐号&UserVar Q2=2222222 &QQ帐号&UserVar Q3=3333333 &QQ帐号&
.//用户定义变量第N个//-------------下列内容循环N次------------For NMoveTo X, YSayString Q1MoveTo X+10, X+20LeftClick 1
Next//-------------上述内容循环N次------------
按键精灵开发者4级可通过提升认证等级来升级勋章：
dim QQ(2)QQ(0)=&1111&Q(1)=&2222&QQ(2)=&3333&For i=0 to 2 step 1MoveTo X, YSayString QQ(i)MoveTo X+10, X+20LeftClick 1Next
按键精灵开发者1级可通过提升认证等级来升级勋章：
学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键会员（月）按键会员绑定账号后自动赠送按键精灵开发者4级可通过提升认证等级来升级勋章：
UserVar Q1=1111111 &QQ帐号&
UserVar Q2=2222222 &QQ帐号&
UserVar Q3=3333333 &QQ帐号&
ncreasing=0
increasing=increasing+1
MoveTo X, Y
SayString Q1
TracePrint Eavl(&Q& & increasing)
MoveTo X+10, X+20
LeftClick 1}