贴吧顶贴脚本源码分享
配置介绍:
-
模拟器:雷电模拟器 480*800 dpi 160
-
按键精灵手机助手
涉及的图片有两张:
注意事项:每次发布3-5条,之后时间间隔不低于20分钟,单账号一天不要发布太多,频率过快有可能封号,所以要注意操作频率。建议生成小精灵之后多开模拟器,多账号操作。
源码分为两部分:
一、界面部分
界面1:
{
标签页1:
{
水平布局:
{
文字框:
{
注释:”文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性”,
名称:”文字框1″,
显示内容:”发布条数”,
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:”初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性”,
名称:”输入框1″,
提示内容:” “,
初始文本:””,
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
},
水平布局:
{
文字框:
{
注释:”文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性”,
名称:”文字框1″,
显示内容:”时间间隔”,
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:”初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性”,
名称:”输入框2″,
提示内容:” “,
初始文本:””,
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
文字框:
{
注释:”文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性”,
名称:”文字框1″,
显示内容:”分钟”,
文字大小:0,
高度:0,
宽度:0
},
},
},
}
二、脚本部分:
For 30 Dim m m=readuiconfig("输入框1",3) For m Dim intX, intY FindPic 0, 0, 0, 0, "Attachment:1.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then Delay 2000 Tap intx, inty Delay 5000 call 回复() Delay 5000 KeyPress "Back" Delay 6000 call 滑动() Else call 滑动() End If For c=1 to 5+随机数() Delay 60 * 100 ShowMessage "中间间隔第" & c & "分钟,共计:"&"5+"&随机数() Next Next Dim t t = ReadUIConfig("输入框2", 30) For j=1 to t+随机数() ShowMessage "第" & j & "分钟" Delay 60 * 1000 Next Next
/*——-滑动———*/
Function 滑动 TouchDown 216,345,1 TouchMove 216, 245, 1, 300 TouchMove 216, 243, 1, 1000 TouchUp 1 End Function
/*———回复———-*/
Function 回复 Tap 146, 783 Dim aa="点个赞走人了。收下我的膝盖吧需要需要真的需要啊,谢谢LZ楼主辛苦啦!用心良苦键精灵命令宝典就是集合了包括vbs命令在内的按键精灵全部命令教程这么多新手来学习的感谢大神辛苦做的教程,有必要好好学学这个有用回复看看教程说的很到位教程很不错,值得推荐给大家就是基础+实战给力~支持必须支持!!!教学大家应该能理解了666666,对于我这个懂一点又不懂一点的人来说,应该可以好好的学习下郭老师讲的就是详细不错的一套按键精灵安卓版基础教程好东西啊,非常感谢了太感谢了,这么好的东西,对我这个新手来了说是最有用的。呵呵刚刚好非常需要这样一个程序哦,谢谢大神不管好不好,回复观看再评。在主页把所有教程都弄上来了,哈哈谢谢老大分享,试下看怎么用一般不用回复就能下载的我都不会回复,不过楼主这么好的人,我还是要顶一下的。很想学习学习,看一看。谢谢大神,开始学习当中人工置顶,请叫我雷锋不知道能不能每天都评一次,我试试~~~~刚开始接触按键精灵感觉很好玩,想学好它。不知道有没有天分学习了。谢谢。十分感谢有没有人和我一样觉得脚本很不错呢写得好,讲得妙,获益匪浅!谢谢大神~支持支持強烈支持這些都是好東西啊支持啊支持啊这个很有用啊这个很不错,按键精灵小白必备教程可不可以把源码发出来看看这个不错看下咯太感谢了,这么好的东西,对我这个新手来了说是最有用的。呵呵这个不错适合新手看内容很适合新手小白,不错的哟!虽然不明白,但是顶一下下了" Dim n,d,a, i n = UTF8.Len(aa) TracePrint n Randomize For 8 i = Int(600 * Rnd() + 1) a = UTF8.Mid(aa, i, 5) d = d & a Next InputText d Delay 3000 FindPic 0, 0, 0, 0, "Attachment:2.png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then Tap intx, inty TracePrint intx TracePrint inty End if End Function
/*-------------随机数--------------*/ Function 随机数() Randomize Dim s s = Int(5 * Rnd() + 5) 随机数=s End Function