今日头条bytedance 算法工程师
代码框架是网上随便找的一个
然后自己瞎改了改，非常完美
除了关闭的时候，得自己用任务管理器来关以外，好像没啥问题了……
如果设定了自动全部拾取的话，那就直接把拾取这个位置瞎填一个 比较合理的位置就好了，让鼠标点空气也是兹瓷的……
只能前台挂机。
成品下载地址：
Event Form1.Button1.Click
//设置重新垂钓标记
While (true)
Rem 重新垂钓
//鼠标移动到&垂钓&
Cx = Form1.InputBox1.Text
Cy = Form1.InputBox2.Text
MoveTo Cx,Cy
//鼠标左键单击
LeftClick 1
//设置引导计时标记
Rem 引导计时
//通过坐标和颜色进行判断鱼是否上钩(坐标抓点为提示的**逗号)
IfColor Form1.InputBox5.Text,Form1.InputBox6.Text,&1AD3CC&,2 Then
//鼠标移动到&收杆&
MoveTo Form1.InputBox3.Text,Form1.InputBox4.Text
//等待0.2秒
Delay &200&
//单击鼠标左键
LeftClick 1
//等待4.2秒
Delay &4200&
//鼠标移动到&全部拾取&
MoveTo Form1.InputBox7.Text, Form1.InputBox8.Text
//等候时间0.5秒
Delay &500&
//单击鼠标左键
LeftClick 1
//如果20秒内未有鱼上钩,则自动重新开始钓鱼
ElseIf i&19
//跳转到重新垂钓标记
Goto 重新垂钓
//如果坐标和颜色不对,则证明鱼未上钩,所以计时+1
Delay &1000&
//跳转到引导计时标记
Goto 引导计时
阅读(...) 评论()按键精灵在有单选框和多选框的情况下如何在单选框选中时运行选中的多选框内容_百度知道
按键精灵在有单选框和多选框的情况下如何在单选框选中时运行选中的多选框内容
如图，在选中“运行”的情况下选中“鼠标向上滚”或者“鼠标向下滚”，怎么搞啊。。。单选框倒是好搞了，怎么在选中单选框以后运行多选框？句柄知道，但是不知道如何使他运行，求老师...
如图，在选中“运行”的情况下选中“鼠标向上滚”或者“鼠标向下滚”，怎么搞啊。。。单选框倒是好搞了，怎么在选中单选框以后运行多选框？句柄知道，但是不知道如何使他运行，求老师指导：If Form1.qudian.Value = 1 Then
Call qudian ElseIf Form1.yunxing.Value = 1 Then
Call yunxingElse
MessageBox &未选择脚本模式，请选定后重新运行脚本&
ExitScriptEnd IfSub qudian
Hwnd = Plugin.Window.MousePoint
sRect = Plugin.Window.GetClientRect(Hwnd)
arr_tmp = Split(sRect, &|&)
Call GetCursorPos(x, y)
x=x-CLng(arr_tmp(0)):y=y-CLng(arr_tmp(1))
Form1.InputBox1.Text = x : Form1.InputBox2.Text = yExitScriptEnd SubSub yunxing
Hwnd = Plugin.Window.MousePoint
Call Plugin.bgkms6_10.FakeWindowState(Hwnd, 2)
x1 = Form1.InputBox3.Text//第一个点
y1 = Form1.InputBox4.Text
x2 = Form1.InputBox5.Text//第二个点
y2 = Form1.InputBox6.Text
x3 = Form1.InputBox7.Text//第三个点
y3 = Form1.InputBox8.Text
Rem aCall Plugin.Bkgnd.LeftClick(Hwnd, x1, y1)Call Plugin.Bkgnd.LeftClick(Hwnd, x2, y2)Call Plugin.Bkgnd.LeftClick(Hwnd, x3, y3)Delay 10Goto aEnd SubEvent Form1.Button1.Click
Form1.InputBox3.Text = Form1.InputBox1.Text
Form1.InputBox4.Text = Form1.InputBox2.TextEnd EventEvent Form1.Button2.Click
Form1.InputBox5.Text = Form1.InputBox1.Text
Form1.InputBox6.Text = Form1.InputBox2.TextEnd EventEvent Form1.Button3.Click
Form1.InputBox7.Text = Form1.InputBox1.Text
Form1.InputBox8.Text = Form1.InputBox2.TextEnd Event
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
<span class="wgt-replyer-all-uname
" data-href="https://zhidao.baidu.com/usercenter?uid=cbd05e6916486
<span class="wgt-replyer-all-card-name3 wgt-replyer-all-card-names" data-href="https://zhidao.baidu.com/usercenter?uid=cbd05e6916486
采纳数：3718
获赞数：7790
擅长：暂未定制
看你写了一大堆，都没有表达清楚你的意图，“运行多选框”，根本没这样的说法。你自己都不能表达清楚自己的意图，又怎么可能写得出程序？
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。按键精灵inputBox问题 _ 会员专区 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 496|回复: 2
在按键精灵界面新建了有2个控件inputBox和ComboBox, inputBox用来输入字符库，ComboBox用来选择不同的参数。运行界面的时候，首先在inputBox里面输入一些字符串，然后去ComboBox里面选择一个参数，但是选择后，inputBox里面的之前的内容自动删除了，里面的内容变成ComboBox选择的值了，代码里面没有做修改inputBox，请问这个是什么原因。谢谢！论坛怎么不能上传图片？上传都是失败
按 键 工 程 师 ■ 兼 职
按键X开拓者勋章最先体验按键精灵X，且提交有效反馈的奖励勋章过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章抗战胜利70周年勋章抗战胜利70周年活动的专属勋章单身汪勋章单身贵族的专属勋章按键14周年庆纪念勋章按键14周年庆纪念勋章（360天）按键学院按键学院专属勋章，按键学院学员或文章被院刊收入可领取幸运草勋章（永久）商业小精灵限时活动勋章。马年勋章（360天） 马年纪念勋章（360天）月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励天使勋章天使一样的用户按键明星按键明星勋章黄金之翼黄金之翼勋章举报达人长期举报不良帖子活动狂人论坛活动狂人骨灰级按键用户3年以上的按键论坛用户按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com龙年勋章（360天）龙年纪念勋章（360天）十周年勋章（360天）十周年纪念勋章兔年勋章（360天）兔年纪念勋章(360天)论坛GG按键论坛男性用户勋章发帖高手鼓励积极回复，但注意不要灌水哦爱心大使积极帮助新手（可向管理员进行申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章实习版主按键论坛的实习版主专属勋章按键元老资深按键用户的尊贵荣誉勋章管理人员按键论坛的管理团队专属勋章
回复 你好 请提供简洁、扼要、清晰可直接测试的代码结构，并注释以及描述问题所在以及疑问（像这样的提问方式 我们无法提供任何解答或建议）[已实际确认 并没出现描述的情况 请提供简洁代码供测试]目前不支持上传中文/符号名称的附件哦，请使用英文/数字附件名上传/可用扩展名: gif,jpg,jpeg,png,png,gif,jpg
自命不凡，其实很落魄个人QQ:
闽网文 (-037号
注意: 以下为数据查询分析工具，正式站点使用请使用官方发布版本或自行Release编译。你的位置：
如何获取控件InputBox的信息?
08:44:52 |
来源: 按键精灵资源站
本帖最后由 4133789 于
08:48 编辑
如题呢,表示不知道如何在控件外部获取&&控件InputBox的信息
在如下代码当中,&& Button1 事件当中,
MessageBox 可以正常获取& & Form1.输入网址.Text 这个输入框的信息,但是到
Button1 外部的时候,& &
MessageBox出来的就是 空...
表示不知道怎么解决这种问题...求指点....
[code]Event Form1.输入网址.Change
Event Form1.Button1.Click
MessageBox Form1.输入网址.Text
d = Form1.输入网址.Text
MessageBox d
RestartScript
//控件外部...
MessageBox d[/code]按键精灵Inputbox根据输入的变量,执行不同的命令_百度知道
按键精灵Inputbox根据输入的变量,执行不同的命令
我用按键精灵，弹出窗口，然后输入一个变量。用SelectCase根据变量，获得不同的时间组值，用于执行操作命令的多个时间差。问题1：DelayT?显示语法错误，怎么办？因为是小白，求大神科...
我用按键精灵，弹出窗口，然后输入一个变量。用Select Case根据变量，获得不同的时间组值，用于执行操作命令的多个时间差。问题1：Delay T?
显示语法错误，怎么办？因为是小白，求大神科普。我用的命令对吗？应该用什么其他指令？SetSimMode 2Input = InputBox(&请输入一个数字&) TracePrint (&输入: & & Input)Dim Aa = (&输入: & & Input)Select Case aCase a=1
I1 = 4000Case a=2
T2 = 10000
Y2 = 20000
U2 = 30000
I2 = 40000Case a = 3
T3 = 100000
Y3 = 200000
U3 = 300000
I3 = 400000Case Else
//否则End SelectMoveTo LeftClick 1Delay T?MoveTo LeftClick 1
&#xe6b9;答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
huangchao209
huangchao209
采纳数：18
获赞数：38
SetSimMode&2Input&=&InputBox(&请输入一个数字&)&TracePrint&(&输入:&&&&&Input)Dim&Aa&=&(&输入:&&&&&Input)Select&Case&aCase&&输入:&1&&&&&//情况1&&&&T1&=&1000&&&&Y1&=&2000&&&&U1&=&3000&&&&I1&=&4000Case&&输入:&2&&&&&//情况2&&&&T2&=&10000&&&&Y2&=&20000&&&&U2&=&30000&&&&I2&=&40000Case&&输入:3&&&&&//情况3&&&&T3&=&100000&&&&Y3&=&200000&&&&U3&=&300000&&&&I3&=&400000Case&Else&&&&//否则End&SelectMoveTo&LeftClick&1Delay&T?MoveTo&LeftClick&1变量&a&因为合并了&字符串&所以是&字符串&串变量&&，VBS&会强制把变量转换为字符串
大侠，你发的代码，也是有问题啊。Delay T?语法错误时间延迟T？问题在哪
Delay 我复制你的，你打错的，你加个200好了
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。