虽然代码简单,但很实用,相信对很多按键精灵新手很有用,在此给大家分享下,希望大家共同进步。
界面1:
{
文字框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"文字框1",
显示内容:"请填写登陆账号信息",
文字大小:25,
高度:0,
宽度:0
},
水平布局:
{
注释:"用于将多个控件放在同一行",
文字框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"zh",
显示内容:"账号:",
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"账号",
提示内容:"请输入账号,多个用\".\"号分隔",
仅输入数字:false,
文字大小:0,
最大输入长度:999,
高度:0,
宽度:999
},
},
水平布局:
{
注释:"用于将多个控件放在同一行",
文字框:
{
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"mm",
显示内容:"密码:",
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
名称:"密码",
提示内容:"请输入账号密码,多个用\".\"号分隔",
仅输入数字:false,
文字大小:0,
最大输入长度:999,
高度:0,
宽度:999
},
},
},
Dim 每个账号,账号输入框,密码输入框,账号数组,密码数组,账号数量
账号输入框 = ReadUIConfig("账号",".")'获取账号输入框内容,
密码输入框 = ReadUIConfig("密码",".")'获取密码输入框内容,
账号数组 = Split(账号输入框,".")
密码数组 = Split(密码输入框,".")
账号数量=0
For Each 每个账号 in 账号数组
TracePrint "账号=",账号数组(账号数量),"密码=",密码数组(账号数量)
ShowMessage "当前账号是:"&每个账号
Call 换号登陆 (账号数组(账号数量),密码数组(账号数量))
账号数量=账号数量+1
Delay 1000
next
Sub 换号登陆(账号数组,密码数组)
TracePrint "换号成功"
End Sub
本文暂时没有评论,来添加一个吧(●'◡'●)