文學城熱帖點擊探秘
文章來源: 南山烏鴉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