用按键精灵写了个百姓网脚本，但是有个小BUG，求大神指点一二 - 『移动安全讨论求助区』
- 吾爱破解 - LCG - LSG |安卓破解|病毒分析|破解软件|www.52pojie.cn
后使用快捷导航没有帐号？
只需一步，快速开始
请完成以下验证码
请完成以下验证码
查看: 1282|回复: 9
用按键精灵写了个百姓网脚本，但是有个小BUG，求大神指点一二
阅读权限10
发帖求助前要善用【】功能，那里可能会有你要找的答案；
求助软件脱壳或者破解思路时，请务必在主题帖中描述清楚你的分析思路与方法，否则会当作求脱求破处理；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类改成【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人。
小白照着视频第一次编写，所以代码很烂，大神们见谅。代码如下
Dim intX,intY
Dim 同城=ReadUIConfig (&同城交友&)
Dim 话术=ReadUIConfig (&话术&)
//数字需要用到cint强制转化
Dim 循环次数=CInt (ReadUIConfig (&循环次数&))
Dim 引粉性别=ReadUIConfig (&下拉框1&)
Call main ()//主程序入口
/***********主体***********/
Function main ()
& & Call 功能选择()
End Function
Function 功能选择()
/*如果勾选了同城交友，那么就call分支里的同城交友功能*/
& & If 同城 = True Then
& && &&&Call 同城交友()
& & End If
End Function
/************分支****************/
Function 同城交友()
&&Delay 1000
& & Call 引粉性别区分()
& & & & & &
& && &&&Call 单次推送话术()
& & & & & &
& & /*控制循环次数*/& & & &
& && &&&i = i + 1
& && &&&If i = 循环次数 Then
& && && && &Exit Do
& && &&&End If
& & & & & &
End Function
Function 单次推送话术()
& &Delay 1000
& & Call 从信息列表页点击一条信息()
& & Delay 5000
& & Call 点击私信按钮()
& & Delay 2000
& & If 判断是否重复发送过信息并进行处理() = 1 Then
& && &&&Call 发送过信息并进行处理()
& & End If
& & Delay 2000
& & Call 点击信息输入框()
& & Delay 1500
& & Call 录入话术()
& & Delay 1500
& & Call 点击发送按钮()
& & Delay 1500
& & Call 聊天页返回()
& & Delay 1500
& & Call 个人信息详情页返回()
& & Delay 3000
& & Swipe 290,343,261,186,3000
& & Delay 3000
& & /*一个轮回完成*/
End Function
/*****************引粉性别******************/
Function 引粉性别区分()
& & If 引粉性别 = 0 Then
& && &&&Call 选择不限()
& & ElseIf 引粉性别 = 1 Then
& && &&&Call 选择男性()
& && &&&Call 选择女性()
& & End If
End Function
Function 选择不限()
& & Delay 1000
& & Call 点击性别()
& & Delay 1000
& && &&&Delay 2000
& & & & & & & &
& && &&&KeepCapture
& && &&&FindPic 1,40,538,372,&Attachment:xbbuxianpng.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX,intY
& && && && &TracePrint &点击到了目标人物&
& && && && &Exit Do //退出死循环
& && &&&Else
& && && && &Swipe 224, 343, 224, 186, 5000//找不到这张图片就上翻
& && &&&End If
& && &&&ReleaseCapture
/*用i来监控查找次数，如果查找10次还没有点击的话，就call 错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &没有点击到目标人物--继续寻找&
End Function
Function 选择男性()
& & Delay 1000
& & Call 点击性别()
& & Delay 1000
& && &&&Delay 2000
& & & & & & & &
& && &&&KeepCapture
& && &&&FindPic 1,40,538,372,&Attachment:xbnansheng.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX,intY
& && && && &TracePrint &点击到了男性&
& && && && &Exit Do //退出死循环
& && &&&Else
& && && && &Swipe 224, 343, 224, 186, 5000//找不到这张图片就上翻
& && &&&End If
& && &&&ReleaseCapture
/*用i来监控查找次数，如果查找10次还没有点击的话，就call 错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &没有点击到男性--继续寻找&
End Function
Function 选择女性()
& & Delay 1000
& & Call 点击性别()
& & Delay 1000
& && &&&Delay 2000
& & & & & & & &
& && &&&KeepCapture
& && &&&FindPic 1,40,538,372,&Attachment:xbnvshengsheng.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX,intY
& && && && &TracePrint &点击到了女性&
& && && && &Exit Do //退出死循环
& && &&&Else
& && && && &Swipe 224, 343, 224, 186, 5000//找不到这张图片就上翻
& && &&&End If
& && &&&ReleaseCapture
/*用i来监控查找次数，如果查找10次还没有点击的话，就call 错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &没有点击到女性--继续寻找&
End Function
Function 点击性别()
& && &&&Delay 2000
& & & & & & & &
& && &&&KeepCapture
& && &&&FindPic 0,0,0,0,&Attachment:xingbie.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX,intY
& && && && &TracePrint &点击到了性别&
& && && && &Exit Do //退出死循环
& && &&&Else
& && && && &Swipe 224, 343, 224, 186, 5000//找不到这张图片就上翻
& && &&&End If
& && &&&ReleaseCapture
/*用i来监控查找次数，如果查找10次还没有点击的话，就call 错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &没有点击到性别--继续寻找&
End Function
/*已自带排除广告功能*/
Function 从信息列表页点击一条信息()
& && &&&Delay 2000
& & & & & & & &
& && &&&KeepCapture
& && &&&FindPic 0,38,538,342,&Attachment:nansheng.png|Attachment:nvsheng.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX,intY
& && && && &TracePrint &点击到了目标人物&
& && && && &Exit Do //退出死循环
& && &&&Else
& && && && &Swipe 224, 343, 224, 186, 5000//找不到这张图片就上翻
& && &&&End If
& && &&&ReleaseCapture
/*用i来监控查找次数，如果查找10次还没有点击的话，就call 错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &没有点击到目标人物--继续寻找&
End Function
/*点击私信按钮，有四个不同的图片，加上即可*/
Function 点击私信按钮()
& && &&&Delay 1000
& & & & & & & &
& && &&&KeepCapture
& && &&&FindPic 1,850,538,957,&Attachment:sixin1.png|Attachment:sixin2.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX,intY
& && && && &TracePrint &点击到了私信按钮&
& && && && &Exit Do //退出死循环
& && &&&End If
& && &&&ReleaseCapture
/*用i来监控查找次数，如果查找10次还没有点击的话，就call 错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &没有点击到私信按钮--继续寻找&
End Function
Function 点击信息输入框()
& && &&&Delay 1000
& & & & & & & &
& && &&&KeepCapture
& && &&&FindPic 1,800,538,958,&Attachment:shurukuang.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX,intY
& && && && &TracePrint &点击到了信息输入框&
& && && && &Exit Do //退出死循环
& && && &&&
& && &&&End If
& && &&&ReleaseCapture
/*用i来监控查找次数，如果查找10次还没有点击的话，就call 错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &没有点击到信息输入框--继续寻找&
End Function
Function 录入话术()
& & InputText 话术
End Function
Function 点击发送按钮()
& && &&&Delay 1000
& & & & & & & &
& && &&&KeepCapture
& && &&&FindPic 1,720,537,958,&Attachment:fasong.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX,intY
& && && && &TracePrint &点击到了发送按钮&
& && && && &Exit Do //退出死循环
& && && &&&
& && &&&End If
& && &&&ReleaseCapture
/*用i来监控查找次数，如果查找10次还没有点击的话，就call 错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &没有点击到发送按钮--继续寻找&
End Function
Function 聊天页返回()
& && &&&Delay 1000
& && &&&KeepCapture
& && &&&FindPic 2,42,532,119,&Attachment:liaotianyefanhui.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX, intY
& && && && &TracePrint&&&点击到聊天页返回图标：&&intX&&,&&intY
& && && && &Exit Do //退出DO死循环& && && && &
& && &&&End If
& && &&&ReleaseCapture
& && &/*我用I来监控查找次数，如果到达10次还没法点击的话。 就CALL错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &还找不到聊天页返回图标，---&继续寻找中&& && &
End Function
Function 个人信息详情页返回()
& && &&&Delay 1000
& && &&&KeepCapture
& && &&&FindPic 2,40,533,109,&Attachment:xinxixiangqingyefanhuianniu.png&,&,0.9,intX,intY
& && &&&If intX & -1 And intY & -1 Then
& && && && &Tap intX, intY
& && && && &TracePrint&&&点击到个人信息详情页返回按钮：&&intX&&,&&intY
& && && && &Exit Do //退出DO死循环& && && && &
& && &&&End If
& && &&&ReleaseCapture
& && &/*我用I来监控查找次数，如果到达10次还没法点击的话。 就CALL错误处理*/
& && &&&i = i + 1
& && &&&If i = 10 Then
& && && && &Call 错误处理()
& && && && &Exit Do
& && &&&End If
& && &&&TracePrint &还找不到个人信息详情页图标，---&继续寻找中&& && &
End Function
Function 判断是否重复发送过信息并进行处理()
& & KeepCapture
& & FindMultiColor 0,0,0,0,&AC9EF8-101010&,&-10|8|AFA2F8-|-5|ADA0F8-|1|6644FF-|7|E0E0F3-,0.9,intX,intY
& & If intX & -1 And intY & -1 Then
& && &&&判断是否重复发送过信息并进行处理 = 1
& && &&&TracePrint &已经发送过信息 & //表示已经发送过信息，执行返回命令
& && &&&判断是否重复发送过信息并进行处理 = 0
& && &&&TracePrint &没有发送过&
& & End If
& & ReleaseCapture
End Function
Function 发送过信息并进行处理()
& & Call 聊天页返回()
& & Delay 2000
& & Call 个人信息详情页返回()
& & Delay 3000
& & Swipe 290, 343, 261, 186, 3000//返回到人物列表，向上滑动一个人继续
& & Delay 3000
& & Call 单次推送话术()
End Function
/******共用函数*******/
Function 错误处理()
End Function
BUG情况：可以正常运行五六次，但是之后就会从个人信息详情页退出之后不再上滑了，而是又直接跳到点击私信按钮了。中间的几个步骤都自动跳过了。各位大大烦请指点一二
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
有没有换台电脑试试，我之前做过一次脚本也是这样，一台机子很正常，另一台运行一会就自己停止了
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限40
当年也用按键精灵写
后来折腾了六个月后发现
1，收费太贵，弄个月卡一天没用，按天收费
2，再有生成的脚本太不稳定了，长时间使用占资源太多
所以现在改成ahk来写，自己用delphi写了个辅助ahk编程的工具，目前用着还凑合。
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限25
小白，看不懂
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
看不懂 去论坛 发表 问问。 某精 论坛
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
看不懂 去论坛 发表 问问。 某精 论坛
不懂 某是什么意思
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
当年也用按键精灵写
后来折腾了六个月后发现
1，收费太贵，弄个月卡一天没用，按天收费
大神有相关教程吗？我也是偶然发现的一个视频才跟着学的，不过按键精灵免费的吖，怎么还收费呢
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
有没有换台电脑试试，我之前做过一次脚本也是这样，一台机子很正常，另一台运行一会就自己停止了
安卓版的，用模拟器，应该和电脑没关系吧
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
你做的这个源码看起来很干净，为什么 错误处理()这个函数里面不用写任何数值啊？
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
整个流程写的没什么问题，按键 采用Swipe语法滑动屏幕会造成误差，建议用紫猫的插件里面滑动方法试试
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子分类或者标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
免责声明：吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。
( 京ICP备号 | 京公网安备 87号 )
Powered by Discuz!
Comsenz Inc.23题写到一半不会写了、还有24题要怎么证明？求大神指点！_百度知道
23题写到一半不会写了、还有24题要怎么证明？求大神指点！
我有更好的答案
23T较简单，自己先想想。24T
有：大前提：由柯西不等式，(A1²+B1²)(A2²+B2²)大于等于(A1A2+B1B2)²。小前提：A1为a，A2为1，B1为b，B2为1。结论(a²+b²)
大于等于更号2/2(a+b)。再对后面两个式子以此类推后累加就行。
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。商务合作电话
求大神指点
点击查看更多关于求大神指点的帖子31-50条
总有一个人知道你问题的答案
共解决 &8,091,371 &个问题(人去月无聊)
第三方登录：求大神指点16题怎么写_百度知道
求大神指点16题怎么写
我有更好的答案
答案是根号三吗。。。不是很sure
答案是±✔3
那个负数是怎么算的？
应该是我的图没画好，还有另一种情况就是斜率为负数。。。我在做一下
嗯嗯😊
也可以这样。。。我觉得你应该会算了
就是上面我画的简图这种情况，斜率是负值但是B在A上方。你可以看我一开始写的那种方法，画出准线，你应该知道抛物线上的一点到准线的距离是相等的吧。。。然后运用相似三角形求出边长，然后斜率就可以用Δy/Δx求出来了，也就是直角三角形的那两个边。。。你应该知道斜率k等于倾斜角的正切值吧。。。
。。。。这样讲你还不懂的话我就没办法了qwq，多去翻翻书看看资料，熟悉一下抛物线的性质!多做题然后搜集同类型的题目，你会发现圆锥曲线有套路的，我先睡为敬(ভ_ ভ) ރ
采纳率：90%
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}