疾风真寻的个人资料 - RAT

疾风真寻疾风真寻

关注数: 9 粉丝数: 9 发帖数: 463 关注贴吧数: 17

循环登陆账号 Dim p=ReadConfig("p",1)'放在脚本第一行 Dim 账号文本="/sdcard/账号.txt",分割符号="," Call 登陆账号(账号文本,分割符号)'调用函数 Sub 登陆账号(文本路径,分割符号) Dim 账号 Do'判断有没有账号账号 = File.ReadLine(文本路径, p):账号 = Split(账号, 分割符号) p = p + 1 : WriteConfig "p", p If Len(账号(1)) < 3 Then 账号 = File.ReadLine(文本路径, p) 账号 = Split(账号, 分割符号) If Len(账号(1)) < 3 Then TracePrint "账号读取完毕，重新开始。" p = 1 : WriteConfig "p", p Else : p = p + 1 : WriteConfig "p", p : Exit Do End If Else Exit Do End If Loop Tap x,y'账号输入框坐标 Delay 500 For 20 : KeyPress "Del" : Next Delay 500 InputText 账号(0)'账号 Delay 500 Tap x,y'密码输入框坐标 Delay 500 For 20 : KeyPress "Del" : Next Delay 500 InputText 账号(1)'密码 Delay 500 //如果要加点击登陆的自己加 End Sub

界面内按钮响应事件及其它响应事件的运用最近看到好多同胞都在问: 界面里的响应事件怎么没用?按钮响应事件好象是BUG什么用都没有?还有界面栏右边的那个代码框是做什么用的?等....... 我在这里回复:不是没用,也不是坏的,代码框当然是写代码的了! 代码大家可以去测试界面1: { 标签页1:{ 水平布局: { 按钮:{ 注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性", 名称:"按钮1", 显示内容:"显示并勾选", 点击响应:"显示并勾选", 文字大小:0, 高度:0, 宽度:0 }, 按钮: { 注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性", 名称:"按钮2", 显示内容:"删除并反选", 点击响应:"删除并反选", 文字大小:0, 高度:0, 宽度:0 }, 注释:"用于将多个控件放在同一行", }, 多选框: { 注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性", 名称:"多选框1", 提示内容:"多选框", 选中:false, 文字大小:0, 高度:0, 宽度:0 }, 水平布局:{ 文字框:{ 注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性", 名称:"文字框1", 显示内容:"提示信息:", 文字大小:0, 高度:0, 宽度:0 }, 文字框:{ 注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性", 名称:"文字框2", 显示内容:"", 文字大小:0, 高度:0, 宽度:0 }, }, }, } 下面这个是写到界面页的右边的那个框框里的,不是脚本页. Function 显示并勾选 UIP.SetAttribute "文字框2", {"显示内容":"点击改变了!"} UIP.SetAttribute "多选框1", {"选中":true} End Function Function 删除并反选 UIP.SetAttribute "文字框2", {"显示内容":""} UIP.SetAttribute "多选框1", {"选中":false} End Function ============================== 当然还有好多种方法,大家可以去尝试, 大神轻喷!!大神轻喷!!大神轻喷!!

让程序每隔一段时间执行一次用的是时间函数，比delay相对准确和稳定哦 Dim t1,t2,cha,first,sj Delay 666 first = ReadUIConfig("输入框1", "0")//可以在界面填写，用来判断是否立马执行程序 first=int(first) sj = ReadUIConfig("输入框2", "1")//填写需要间隔的时间 sj=int(sj) If first = 0 Then //判断是否让程序立马执行 Call 主程序() End If //这里先让程序第一次 Do t1 = Time()//获取程序开始的时间 Do t2 = Time() //持续获取时间 ShowMessage "开始计时（秒）："&t2-t1 Delay 1000 If t2 - t1=sj*60 Then Exit Do //每隔一定时间的时候跳出循环 End If Loop TracePrint "开始执行" Call 主程序() //执行自己的程序 Delay 5000 Loop Sub 主程序() //填写自己想要的操作 End Sub ==============================

怎么设置界面单选框选择后按鼠标右键启动！如题我想右键然后启动一个子程序要怎么设置呢

新手求助求大神帮助如何让脚本寻找到复数相同的图片然后让他每张图点一次?

1 下一页