你的位置：
终于发现！如何才能在界面输入框，把数值赋给脚本变量，且可以用来运算了（小白方法）
05:14:14 |
来源: 按键精灵资源站
钻研了一整晚，主要困扰的是两个问题，一是究竟怎样才能把和脚本联系起来（特别是输入框的问题），二是怎么才能把脚本接受到的字符串转化为可计算的数值。
在论坛看了很多帖子，让我琢磨出了个笨方法，好了不废话了，上脚本~
- 问题一：从界面接收值付给脚本变量
我的解决方法是把输入框内接收的内容导入到一个txt文件里，再从txt文件读取出来
//输入框的动作是：当输入框的内容发生变化时，把变化后的内容赋值给变量j
Event form1.InputBox1.Change
& & j = form1.InputBox1.Text
//这里我加了一个确定按钮，我没试如果把下面这句直接包含在输入框动作里会怎样。
Event form1.Button1.Click
Call Lib.文件.替换指定行文本内容(&C:\xxx\xxx.txt&,j&&;&,1)&&//三个参数分别是我的文件的绝对路径，变量加上分号，第几行
End Event& && && && && && && && && && && && && && && && && && && && && && && & //用绝对路径的原因是-----我不会用相对路径= =
& && && && && && && && && && && && && && && && && && && && && && && && && && && && &//这个txt文件是事先建好的，我直接放在了我的小精灵的文件夹下
- 问题二：把接收到的变量转换为可运算数值
我曾经试过把从txt文件提取出来的数值用cint（），clng（）转换，发现都没有用。后来我打开txt文件夹琢磨，那后面的一大片空白不会也算进去了吧= =。鄙人愚笨，研究了好久才发现，原来plugin.file.readfileex会自动打回车！我又不晓得怎么才能不让它打那一下回车，因此干脆我加上个分号，然后用split把字符串分割开，只提取arr（0）好了！于是有了接下来的代码。
为了验证，我每一步都加了个msgbox
a= Plugin.File.ReadFileex(&C:\xxx\xxx.txt&)
b= Split(a, &;&)
d = cint(c)
for e=d to 10
& &msgbox e
好了= = ，这就是我研究了一整夜出来的结果。高手看着娱乐下 ；跟我一样是小白，同时也遇到这个问题的朋友们，希望可以对你们有帮助~{:5_134:}新人求教!怎么用变量来循环【按键精灵吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：403,796贴子：
新人求教!怎么用变量来循环收藏
比如这8个网页链接,我想用按键精灵做来自动点击,然后会弹出迅雷下载.FindPic 0,0,,&Attachment:\第1集.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then Moveto intX+30,intY+8End If第二集位置是intX+30,intY+24,第三集的位置是intX+30,intY+48反正X的坐标是不变的,intY=intY+24我能用最笨的办法一个个写出来,但是不知道怎么用变量来写,求大神指点比如For7代码next
新朗页游助手支持海量页游,页游辅助完美支持小号多开,微端多平台登陆.精品页游辅助工具,自动日常,自动副本,一键操作,玩页游更省时!
我让a=intX,b=intYb=b+24这样写不行啊,老是跑到屏幕左上角,连原本的图都找不到了,求破
FindPic 0,0,,&Attachment:\第1集.bmp&,0.9,X,YIf X & 0
Then GetCursorPos x1,y1//这个代码很有用，学习下，这里写全是多余的End If然后fo循环里放i = 0 to 7Y1=y1 + 24 * i//第一次循环就是24 * 0，所以还是原坐标moveto x1，y1延迟100点击，然后保存，大致是这样，不行的话短信我
FindPic 0,0,,&Attachment:\1集.bmp&,0.9,X,YIf X & 0 Then
MoveTo X + 50, Y
GetCursorPos x1, y1
Delay 3000
LeftClick 1
Delay 3000
End IfFor 5i = 0i = i + 1
Y1=y1 + 24 * i
//第一次循环就是24 * 0，所以还是原坐标
MoveTo x1, Y1
Delay 3000
LeftClick 1
Delay 3000
//延迟100点击，然后保存，大致是这样，不行的话短信我 Next
找图多此一举，直接定位就行
for i＝1 to8大漠找i字找到点击迅雷下载next7行不到的代码就全搞定了，事先做下字库就可以了，用背景色白色做比较方便，就把数字1-8做了就ok
登录百度帐号按键精灵QUI界面如何在脚本上编写输入框里的内容变为循环次数_百度知道
按键精灵QUI界面如何在脚本上编写输入框里的内容变为循环次数
我有更好的答案
Dim InputInput = InputBox(&输入循环次数&)//MsgBox (&循环: & & Input&&次&)For Input
KeyPress 97,1
KeyPress 40,1
//NextEndFor
7.0版本中可以实现EXCEL表格中，向下填写数字1
i=Form1.InputBox1.TextFor i
Delay 500KeyPress &A&, 1
Delay 500Next你试试。先创一个文本框，吧要循环的内容放到循环里面，差不多就行了，我也是刚刚悟出来的。
为您推荐：
其他类似问题
按键精灵的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。新人求救，关于循环自定义变量问题，【按键精灵吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：403,796贴子：
新人求救，关于循环自定义变量问题，收藏
每次所需要的循环次数都不一样每次用的时候都要进入脚本里面修改循环次数所以想插入一个自定义变量研究了半天也搞不懂特来请教大神以下是源代码求教如何将循环次数改为自定义变量------------------------------------------------------------------------------For 60
FindPic 0,0,,"C:\Documents and Settings\Administrator\桌面\按键精灵图片代码\sclld.bmp",1.0,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intx, inty
LeftClick 1
MessageBox "查找失败，请确认是否开启生产领料单"
KeyPress "Down", 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
FindPic 0,0,,"C:\Documents and Settings\Administrator\桌面\按键精灵图片代码\cpjkd.bmp",1.0,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intx, inty
LeftClick 1
MessageBox "条件查找失败，请确认是否开启成品缴库单"
KeyPress "Down", 1
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Next 求大神帮忙下在此谢过
新朗页游助手支持海量页游,页游辅助完美支持小号多开,微端多平台登陆.精品页游辅助工具,自动日常,自动副本,一键操作,玩页游更省时!
dim a（50）//定义变量a，其中51个数插入循环当i小于 设定值 结束b（i）=i=i+1如果你看不懂，请你看官网教程
贴吧贴吧一般无视伸手党，你不看完教程他们不理你，
我写的bom用量出错的脚本 你看看UserVar 物料数量=23 "物料数量"UserVar dkwd=DropList{"是":"1"|"否":"2"}=2 "打开文档"Sub yd(x,y)
dm.MoveTo x, y
dm.LeftClickEnd SubSub 绑定大漠
//////////////
PutAttachment "c:\test_game" ,"*.*"//带点的都释放到c盘
PutAttachment ".\plugin", "regdll.dll"//释放到脚本文件夹目录plugin里面
PutAttachment ".\plugin", "*..dll"
//.dll的都释放到脚本文件夹目录plugin里面
PutAttachment "d:\dm", "dm_soft1.txt"
PutAttachment "d:\dm", "dm.dll"
Call Plugin.RegDll.Reg("d:\dm\dm.dll")
Set dm = createobject("dm.dmsoft")
dm.Setpath"d:\dm"//↑指定“全局路径”
dm.SetDict 0, "dm_soft1.txt" //↑指定 0000字库
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
/////////////////End SubSub 绑定二
dnfc = Plugin.Window.Find("ThunderRT6MDIForm", "生产任务管理系统 - [生产任务单序时薄]")
TracePrint dnfc
If dnfc = 0 Then
dm_ret = dm.SetWindowState(dnfc,1)//激活窗口
Delay 1800End SubFunction ks(key)
dm.KeyPress key
Delay 50End FunctionCall 绑定大漠Call 绑定二
//Call Plugin.Window.Active("生产数据管理系统 - [BOM资料维护]")Call Plugin.Office.OpenXls("E:\21.xls")Sub 写入
Text = Plugin.Office.ReadXls(1, 2+n, 1)
Call yd(479,63)
Delay 1000
dm_ret = dm.FindStrfast(706,579,771,600,"单据状态","000",1.0,intX,intY)
If intX & 0 Then
Call yd(849, 428)
Delay 1000
dm.KeyPressStr Text, 80
TracePrint Text
delay 1000
dm.KeyPress 13
Call yd(835,675)
Delay 4000
物料代码 = dm.Ocr(198,225,324,238,"ffffff-000000", 1.0)
Call Plugin.Office.WriteXls(1, 2+n, 3, 物料代码)
任务单号 = dm.Ocr(3,225,97,236,"ffffff-000000", 1.0)
Call Plugin.Office.WriteXls(1, 2+n, 2, 任务单号)
零件名称 = dm.Ocr(323,224,418,237,"ffffff-000000", 1.0)
Call Plugin.Office.WriteXls(1, 2+n, 4, 零件名称)
规格型号 = dm.Ocr(417,225,512,237,"ffffff-000000", 1.0)
Call Plugin.Office.WriteXls(1, 2+n, 5, 规格型号)
计划数量 = dm.Ocr(628,224,693,237,"ffffff-000000", 1.0)
Call Plugin.Office.WriteXls(1, 2+n, 6, 计划数量)
材料代码 = dm.Ocr(292,742,418,754,"ffffff-000000", 1.0)
Call Plugin.Office.WriteXls(1, 2+n, 7, 材料代码)
实发用量 = dm.Ocr(707,742,772,754,"ffffff-000000", 1.0)
Call Plugin.Office.WriteXls(1, 2+n, 8, 实发用量)
Delay 300 End Subn = 0j = 1Do
Call Plugin.Msg.Tips("第"&j&"次运行程序")
j=j+1Loop Until n = 物料数量Sub OnScriptExit()
dm.UnBindWindow
Call Plugin.Office.CloseXls()
Call Plugin.Msg.Tips("程序运行结束")
If dkwd = 1 Then
RunApp "E:\21.xls"
End IfEnd Sub ----
于千万人之中，遇见你要遇见的人。
　于千万年之中，时间无涯的荒野里，没有早一步，也没有迟一步，
遇上了也只能轻轻地说一句：“哦，你也在这里吗？”
开启围观模式零基础学按键精灵
登录百度帐号按键精灵如何将循环变量写入剪切版_百度知道
按键精灵如何将循环变量写入剪切版
如:a1=123a2=124a3=125i=1rem ksCall Plugin.Sys.SetCLB(a&i)Delay 100KeyDown 17, 1KeyPress 86, 1KeyUp 17, 1Delay 300i=i+1goto ks我想要屏幕输出相应的值，但每次输出的都是1，哪位高手能帮帮忙，解决一下！
我有更好的答案
举个例子,代码如下a=123b=124c=125For&i&=&1&To&3&&&&Select&Case&i&&&&Case&1&&&&&&&&TracePrint&a&&&&Case&2&&&&&&&&TracePrint&b&&&&Case&3&&&&&&&&TracePrint&c&&&&End&SelectNext
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。