背景需求

“支付宝视频红包”。可以购物抵扣。

由于手动刷（下滑）要4个小时，太费精力了。

小红书上有人自制滑屏器

网上有买自动滑屏工具，可以同时刷3个。

解决方案：——测试用UIBOT自动刷。

首先我发现UIBOT不能上下拖动，所以转完一圈就停止了。

如何才能让视频换页？经过大量测试，我发现在“短剧”这个页面里，有些视频下方会有“看全集”和“下一页”的按钮。（如果没有看到，就退出支付宝重新登录短剧，有时候会有这种全集连在一起的，如果没有下一页，没法自动刷）

每转15秒，就点击下一集，会让数字提增的

测试1：随机秒数1-19秒之间，

因为一圈是15秒，所以出现6秒7秒的话，虽然也能转，但是会卡时间

测试2：控制在15-16秒之间

// ' 激活目标窗口
Dim temp,sRet,dRet,iRet,d,f,随机秒

// ' 增加循环次数和延迟

Rem 左右刷屏短剧和直播，但是会永远在一个视频上
For i = 1 To 2000 step 1


// 
// Mouse.Move(1658, 674, false,{"iDelayAfter": 0, "iDelayBefore": 0})

d=Rnd()
TracePrint(d)
随机秒=CInt(15000+d*1000)
TracePrint(随机秒)
Delay(随机秒)
TracePrint('第'&i&'次'&随机秒)

Rem 下一个
Mouse.Move(1681, 805, false,{"iDelayAfter": 0, "iDelayBefore": 0})
// Mouse.Move(1681, 766, false,{"iDelayAfter": 0, "iDelayBefore": 0})
Mouse.Click("left", "click", [],{"iDelayAfter": 300, "iDelayBefore": 300})
Next

都是15秒左右的。正好一圈。

感悟：

1、耗时但稳定：虽然用了UIBOT 点击下一页的方式刷支付宝短剧，手机同屏电脑，电脑手机的电充足、手机无微信电话的情况下，基本不用管，但每天也要刷4-5小时。

2、同一个短剧：用下一页的方法刷屏，刷到最后一集，就会重新回到第一集，也就是在一个电视剧里反复移动，容易被判断为长视频（就是不是手刷的，是自动刷的，因为手滑的话，肯定会换一个电视剧）

3、短期效益：虽然拿到了两次红包，但是随着时间推移，旋转数量增加（从5圈到7圈。从12圈到15圈），也就意味着红包很难拿到了，毕竟红包只是“广宣费”，如果账户从来没有刷过，是可以拿到的，经常刷，就不可能再给“广宣费”了。