标签：绑定 点击 组态王 按键精灵 Call 位移 文本 替换 输入

i = 1




For 50
Call 一组循环()
Plugin.Msg.Tips("预计还剩"&((50-i)*t)&"秒")
i=i+1
Next


/**********************************************
注意事项： 
1.绑定的输入输出数据为同1名称（再做的时候用块做好保证整齐，后面就不用调整了,从上到下 从左到右）
名称的最大值最小值得设置好 
2.本例程替换和空白坐标手动设置的，移动好位置在移动，替换的时候选择第一个数据开始替换


PS：如果是多项单选框，例如顶升脱开模式选择，先把自带的 选中→格式→删除空白→合成一行（ctrl+shift+J）
然后把要设置的模式也缩写成一行然后批量替换即可，最后再只需要替换绑定的数据
*/////////////////////////////////////////////////




Function 一组循环()
//替换按钮 1543，403
//空白     1400，390
a=now()
Call 替换文本("N1位移输入[")
Call 替换文本("N2位移输入[")
Call 替换文本("N3位移输入[")
Call 替换文本("N4位移输入[")
Call 替换文本("N1压力输入[")
Call 替换文本("N2压力输入[")
Call 替换文本("N3压力输入[")
Call 替换文本("N4压力输入[")
Call 替换文本("升降位移输入[")
Call 替换文本("推拉位移输入[")
Call 替换文本("纠偏位移输入[")
Call 替换文本("顶升脱开位移设置[" & i & "]-升降位移输入[")
Call 替换文本("升降位移输入[" & i & "]-下降脱开位移设置[")
Call 替换文本("实际吨位[")
b = now()
t=DateDiff("s",a,b)
End Function


Function 移动点击(x,y)
MoveTo x,y
Delay 300
LeftClick 1
Delay 200
End Function


Function 点击空白文本并输入(c)
Call 移动点击( 1400,390)
KeyPress "BackSpace", 1
Delay 200
SayString c & i&"]"
End Function


Function 替换文本(b)
Call 点击空白文本并输入(b)
For 1  //替换二次，输入输出--------1  循环一次只输出，循环2次，有输入输出
Call 移动点击(1543, 403)
Delay 500
Next
End Function

标签：绑定,点击,组态王,按键精灵,Call,位移,文本,替换,输入
来源： https://www.cnblogs.com/zjwgy/p/15168989.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。