本帖最后由 wushaominkk 于 2019-6-6 20:58 编辑
各位大佬初来 吾爱 这段时间学习然后自己动手写了个脚本， 技术太菜，各位大佬多都包涵
如果有什么违规的还请版主告知，一定改正
使用语言：按键精灵
模拟器分辨率：720X1280
发不了动态图片，太大了!
源码：
[Plain Text] 纯文本查看 复制代码 Dim i= ReadUIConfig("输入框循环次数","99999")
//TracePrint i
Dim itop
itop = 0
//喜欢次数
While itop<>i
//点赞
Tap 656, 638
Delay 2000
Dim 评论内容1=ReadUIConfig("评论内容1","自动评论脚本1 52pojie.cn")
Dim 评论内容2=ReadUIConfig("评论内容2","自动评论脚本2 52pojie.cn")
Dim 评论内容3=ReadUIConfig("评论内容3","自动评论脚本3 52pojie.cn")
Dim pl
For pl=1 To 3
//这里的脚本可以循环10次
//点击评论
Tap 659, 767
Delay 1000
Tap 659, 767
Delay 500
//激活输入框
Tap 96,1239
Delay 200
//输入内容
Dim 评论内容
Select Case pl
Case 1
//情况1
评论内容=评论内容1
Case 2
//情况2
评论内容=评论内容2
Case Else
//否则
评论内容=评论内容3
End Select
InputText 评论内容
Delay 2000
//发送评论
Tap 688,1226
Delay 5000
//关闭评论页面
Tap 287,190
Delay 1000
Tap 287,190
//KeyPress "sec"
Delay 3000
Next
//上滑
TouchDown 310, 975, 1
TouchMove 318, 228, 1, 200
TouchUp 1
Delay 1000
//循环计次
itop = itop + 1
//ShowMessage itop
//TracePrint i
Wend
界面代码
[Plain Text] 纯文本查看 复制代码 界面1:
{
基本设置:
{
水平布局:
{
注释:"用于将多个控件放在同一行",
文字框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"文字框1",
显示内容:"循环次数：",
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"输入框循环次数",
提示内容:"输入循环次数，整数型",
初始文本:"9999",
仅输入数字:true,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
},
文字框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"文字框2",
显示内容:"评论内容",
文字大小:0,
高度:0,
宽度:0
},
水平布局:
{
文字框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"文字框3",
显示内容:"评论内容1",
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"评论内容1",
提示内容:"提示用户应该输入什么内容",
初始文本:"评论内容1",
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
注释:"用于将多个控件放在同一行",
},
水平布局:
{
文字框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"文字框3",
显示内容:"评论内容2",
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"评论内容2",
提示内容:"提示用户应该输入什么内容",
初始文本:"评论内容2",
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
注释:"用于将多个控件放在同一行",
},
水平布局:
{
文字框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"文字框3",
显示内容:"评论内容3",
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"评论内容3",
提示内容:"提示用户应该输入什么内容",
初始文本:"评论内容3",
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
注释:"用于将多个控件放在同一行",
},
},
}
感谢吾爱论坛，给了我一个学习的机会!
|
[复制链接]
发表于 2018-7-31 13:01
|
发表于 2018-8-1 18:20
