文学城热帖点击探秘
文章来源: 南山乌鸦2022-12-08 18:38:19

该文目的是为了防止作弊点击。

"如果一个帖子在几分钟之内做到吸引上千上万点击, 你能做到吗?" 乌鸦问龙猫, "手点? 你给钱?" "没钱, 你编程可以吗?" "可以, 你给钱?" .......

不算身心愉快的对话结束后, 我开始在网上做调研. 

网上有很多自动点击器, 主要的目的是节省鼠标操作, 用于游戏操作等重复点击, 而不是为了提高帖子点击率, 这显然有些狭隘.

像Murgee auto clicker, https://www.murgee.com/auto-clicker/

可以做到把鼠标移动到button上方然后会自动点击或者其他预制操作, 下面这个界面大家一看就懂

如果有IT背景, 用java 脚本写一段简直是再容易不过, 只要管理员不封IP的话. 在做了几天实验后中终于感叹自己不是JAVA材料. 虽然没成功但启发了一点灵感, 以前学过excel编程来做报表, 能不能尝试尝试.

又做了几天搜索试验,竟然成功了。 效率非常低,做不到几分钟上万点,如果有几台设备仪器操作那就很容易了。 "龙猫, 我做到了, 点击成功了!" "给钱我就听”

单凭点击还无法变为热点冲到榜首,这时候自言自语增加回帖率,这俩个因素一满足,不成热点都难。

附MACRO代码一小段

Private Sub WEB_CLICK()
 Dim strInput As String

    On Error GoTo Error_GetUserAddress
    strInput = InputBox("Enter a valid address")   

 Dim ie As New SHDocVw.InternetExplorer

 Az1 = 1
 Do While Az1 <= 10000 
 ie.Navigate strInput
 Do While ie.ReadyState <> READYSTATE_COMPLETE

 Loop
  Az1 = Az1 + 1

 Az2 = 1
 Do While Az2 <= 200
 Az2 = Az2 + 1
 Loop
 
 Loop
            
 Exit_GetUserAddress:
    Exit Sub
 
Error_GetUserAddress:
    MsgBox Err & ": " & Err.Description
    GetUserAddress = False
    Resume Exit_GetUserAddress

End Sub