【办公类-46-01】20240329腾讯漫画12周年（UIBOT刷分）-CSDN博客

本文链接：https://blog.csdn.net/reasonsummer/article/details/137155561

背景需求：

腾讯动漫的福利中心-挑战中心，每天有刷分，积累阅点，可以购买阅读券（3天阅读期）

今天看到有一个12周年限时阅读活动，看完1200章漫画，可以送1200阅读分

今天已经是3月29日了，还有3天时间，看1200话漫画，实在是太费时间了。

解决思路

1、因此我用手机同屏方式，将手机上的腾讯漫画APP投射到电脑桌面上

2、使用UIBOT，写一个程序：自动打开漫画页面，然后浏览3秒，退出，点击下一页

因为以上代码总是会出现其他页面内容，我研究半天发现按了返回箭头后需要停顿一秒，这样才不会点到其他地方

代码展示

Dim objPoint,sRet,temp,iRet,时长2,次2,次,dRet
// For i = 0 To 1000 step 1

// Next
Rem 漫画每页浏览3秒退出点击下一个
次=Dialog.InputBox("多少次","Laiye Automation","",true)

总数=CInt(次)
For 次数 = 1 To 次 step 1

Mouse.Move(1700, 603, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 300, "iDelayBefore": 300})
Delay(2000)
Mouse.Drag(1453, 800, 1453, 250, "left", [],{"iDelayAfter": 100, "iDelayBefore": 50})
Delay(4000)



Mouse.Drag(1612, 955, 1573, 890, "left", [],{"iDelayAfter": 100, "iDelayBefore": 50})

Mouse.Move(1561, 950, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 300, "iDelayBefore": 300})

Delay(1000)
TracePrint('已经点击'&次数&'次')



次数2=CInt(次数)

TracePrint('已完成进度'&次数2/总数*100&'%')

Next
// 100次5秒等于500秒约等于8.33分钟，所以60分钟需要*8=800次
// 一人之下漫画 刷到52-52认识的人 177-101=76分钟