怎么获取剪切板内容存入变量然后文本输出 _ 综合讨论 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.9软件大小：62.5M更新时间：12-07
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 2316|回复: 5
[无偿求脚本]
按键会员（月）按键会员绑定账号后自动赠送
小弟遇到经常复制粘贴的问题、机械化操作所以想写一脚本，可是小白一个望高手指点需要功能如下前台复制后定义变量 X将复制内容存入变量X清空剪切板然后文本输出变量X内内容
含笑半步自然癫
按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com小红帽对论坛提出良好建议（可向管理员申请）
剪切板的内容 = &我是剪切板的内容&'变量内容
Call Plugin.Sys.SetCLB(剪切板的内容)'设置剪切板的内容
Clipboard = Plugin.Sys.GetCLB()'得到剪切板的内容
TracePrint &获取到的剪切板的内容是： & & Clipboard'调试输出剪切板的内容
按键会员（月）按键会员绑定账号后自动赠送
回复 2014版本提示找不到插件啊~还有这个是不是只能存储一次剪切板内容啊？我的目的是把1内容存在a变量2内容存在b变量3内容存在c变量然后再再另一个页面分别输出这样能用吗？
含笑半步自然癫
按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com小红帽对论坛提出良好建议（可向管理员申请）
回复 提示找不到插件？ 那是要见鬼了，这个都是按键自带的系统里面的插件！
含笑半步自然癫
按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com小红帽对论坛提出良好建议（可向管理员申请）
Var1 = &a|b|c|d&'变量的内容
Var2 = split(Var1, &|&)'分割
For i = 0 To UBound(Var2)
Call Plugin.Sys.SetCLB(Var2(i))'设置剪切板内容
TracePrint &即将输出的剪切板的内容是： & & Var2(i)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
(, 下载次数:0)
( 12:47:37 上传)
闽网文 (-037号按键精灵变量定义，每循环一次变量自动加1 三路知识网
按键精灵变量定义，每循环一次变量自动加1
来源：网络收集 & 发布时间： &
Call Plugin.Web.HtmlClick("tag&text:1")想要实现上面的语句每循环一次，（）里面的数字自动增加+1，怎么实现呀？
这个问题我怎么看到过。。n=1Call Plugin.Web.HtmlClick("tag&text:" & n)n=n+1
本文地址：https://www.slzays.com/9565.html
所有问题分类新人求救，关于循环自定义变量问题，【按键精灵吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：401,879贴子：
新人求救，关于循环自定义变量问题，收藏
每次所需要的循环次数都不一样每次用的时候都要进入脚本里面修改循环次数所以想插入一个自定义变量研究了半天也搞不懂特来请教大神以下是源代码求教如何将循环次数改为自定义变量------------------------------------------------------------------------------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 求大神帮忙下在此谢过
全自动挂机app引流脚本工作室,别人主动来加你好友,新一代微商软件,精准男粉女粉流量,多款微商app引流脚本软件工作室,可任意定位加附近的人
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 ----
于千万人之中，遇见你要遇见的人。
　于千万年之中，时间无涯的荒野里，没有早一步，也没有迟一步，
遇上了也只能轻轻地说一句：“哦，你也在这里吗？”
开启围观模式零基础学按键精灵
登录百度帐号你的位置：
如何把变量放入数组中循环读出
17:41:03 |
来源: 按键精灵资源站
我x1到x5获得坐标值，求指教怎么把变量x1到x5放入到数组中，然后循环读出，本人水平不高，只能用最原始的goto方法，求高手指教！
& & & & & & & & x1 = tempX + a / 2 + 672 : y1 = tempY + b / 2 + 454
& & & & & & & & x2 = tempX + a / 2 + 944 : y2 = tempY + b / 2 + 151
& & & & & & & & x3 = tempX + a / 2 + 650 : y3 = tempY + b / 2 - 36
& & & & & & & & x4 = tempX + a / 2 + 362 : y4 = tempY + b / 2 - 61
& & & & & & & & x5 = tempX + a / 2 + 83&&: y5 = tempY + b / 2 + 171& & & &
& & & & & & & &
& & & & & & & & value = x1
& & & & & & & & Rem reFind1
& & & & & & & & If x1 & value + 100 Then
& & & & & & & & & & & & MoveTo x1, y1:Delay 50:LeftClick 1:Delay 50
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm.bmp&, 0.8, intX, intY
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm1.bmp&, 0.8, intX1, intY1
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm2.bmp&, 0.8, intX2, intY2
& & & & & & & & & & & & If intX & 0 or intX1 & 0 or intX2 & 0 Then
& & & & & & & & & & & & & & & & Call 通用确定() : Call 战斗结果() : Call 通用确定() : Call 分组竞技CD()
& & & & & & & & & & & & End If
& & & & & & & & & & & & x1 = x1 + 5
& & & & & & & & & & & & Goto reFind1
& & & & & & & & End If& & & & & & & &
& & & & & & & & value = x2
& & & & & & & & Rem reFind2
& & & & & & & & If x1 & value + 100 Then
& & & & & & & & & & & & MoveTo x2, y2:Delay 50:LeftClick 1:Delay 50
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm.bmp&, 0.8, intX, intY
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm1.bmp&, 0.8, intX1, intY1
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm2.bmp&, 0.8, intX2, intY2
& & & & & & & & & & & & If intX & 0 or intX1 & 0 or intX2 & 0 Then
& & & & & & & & & & & & & & & & Call 通用确定() : Call 战斗结果() : Call 通用确定() : Call 分组竞技CD()
& & & & & & & & & & & & End If
& & & & & & & & & & & & x2 = x2 + 5
& & & & & & & & & & & & Goto reFind2
& & & & & & & & End If
& & & & & & & &
& & & & & & & & value = x3
& & & & & & & & Rem reFind3
& & & & & & & & If x1 & value + 100 Then
& & & & & & & & & & & & MoveTo x3, y3:Delay 50:LeftClick 1:Delay 50
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm.bmp&, 0.8, intX, intY
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm1.bmp&, 0.8, intX1, intY1
& & & & & & & & & & & & FindPic 0, 0, scrX, scrY, &dellChrome\confirm2.bmp&, 0.8, intX2, intY2
& & & & & & & & & & & & If intX & 0 or intX1 & 0 or intX2 & 0 Then
& & & & & & & & & & & & & & & & Call 通用确定() : Call 战斗结果() : Call 通用确定() : Call 分组竞技CD()
& & & & & & & & & & & & End If
& & & & & & & & & & & & x3 = x3 + 5
& & & & & & & & & & & & Goto reFind3
& & & & & & & & End If按键精灵里面用for循环可以有2个变量吗_按键精灵吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：401,879贴子：
按键精灵里面用for循环可以有2个变量吗收藏
从excel的A列（A2-A129）和B列(B2-B129)都是需要获取的数值，然后先获取A，再获取B，脚本里面应该怎么写呢Delay 1000'Call Plugin.Office.OpenXls(&C:\一品.xls&)index=Plugin.lxj_Office.lxj_ExcelOpen(&C:\一品.xls&,1)For i=2 to 129
'T= Plugin.Office.ReadXls(1, i, 1)
T=Plugin.lxj_Office.lxj_ExcelRead (1,i,1)
Call Plugin.Sys.SetCLB(T)
KeyDown 18, 1
KeyPress 83, 1
KeyUp 18, 1
KeyPress &Tab&, 1
KeyPress &Tab&, 1
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyDown 18, 1
KeyPress 79, 1
KeyUp 18, 1
KeyDown 18, 1
KeyPress 69, 1
KeyUp 18, 1
For i=2 to 129
'E= Plugin.Office.ReadXls(1, i, 2)
E=Plugin.lxj_Office.lxj_ExcelRead (1,i,2)
Call Plugin.Sys.SetCLB(E)
KeyDown 17, 1KeyPress 86, 1KeyUp 17, 1Delay 50NextNext'Call Plugin.Office.CloseXls()应该怎么修改？谢谢各位前辈
登录百度帐号}