【办公类-121-02】20251024淘宝视频红包（UIBOT点击“左箭头”“视频”“消息”切换）
背景需求：
支付宝视频红包，
【
除了每天默认的一些广告浏览外，更多需要通过看广告15秒一圈来获取100分，滑动20次，转20圈（20个广告）=2000分=0.01元
但是uibot不能上下滑动换广告，进过很久的探索，我找到一个折中的办法——转15秒左右，然后按
就这样反复按UIBOT点击“左箭头”“视频”“消息”切换，来实现广告的切换
// ' 激活目标窗口
Dim temp,sRet,dRet,iRet,d,f,随机毫秒// ' 增加循环次数和延迟Rem 推荐自动联播
For i = 1 To 10000 step 1temp = ""
// Mouse.Move(1658, 674, false,{"iDelayAfter": 0, "iDelayBefore": 0})// 生成13000-15000毫秒之间的随机延时（相当于13-15秒）
d = Rnd()
随机毫秒 = CInt(13000 + d * 2000)
TracePrint("第" & i & "次延时：" & 随机毫秒/1000 & "秒")
Delay(15000)Rem 反复点各种按钮For j = 1 To 2 step 1Mouse.Move(1576, 918, false,{"iDelayAfter": 0, "iDelayBefore": 0})
Mouse.Click("left", "click", [],{"iDelayAfter": 100, "iDelayBefore": 0})
NextMouse.Move(1648, 880, false,{"iDelayAfter": 0, "iDelayBefore": 0})
Mouse.Click("left", "click", [],{"iDelayAfter": 100, "iDelayBefore": 0})Delay(2000)
Mouse.Move(1573, 880, false,{"iDelayAfter": 0, "iDelayBefore": 0})
Mouse.Click("left", "click", [],{"iDelayAfter": 100, "iDelayBefore": 0})
Next
视频展示
20251024uibot刷淘宝视频（三按钮循环固定时广告）
但是也存在问题，如果视频是固定时长广告（有灰色条），可以不断转圈。
