delphi實現discuz論壇自動簽到功能

2022-08-19 22:00:15 字數 1328 閱讀 5600

思路:本來是想使用idhttp模擬提交頁面,無奈cookies沒模擬成功,那就使用最笨的方法,模擬滑鼠指標點選。獲取簽到頁面提交的引數,自己寫個提交的頁面 sign.html,delphi中的webbrowser開啟sign.html,在23點58分時開啟程式,timer每隔500ms去點選提交按鈕,然後webbrowser重新開啟sign.html,一直迴圈到n次,設定timer的enabled為false ,迴圈結束。

步驟:1. 論壇的簽到外掛程式是 sign everydayver 7.0.1 build n0922

2.檢視簽到頁面的源**,提取出有效的提交引數,並偽造表單,自己重新寫個提交頁面:

儲存成 sign.html。

3.delphi 主要實現**:

procedure tform1.formcreate(sender: tobject);

begin

//開啟sign.html,和程式放在同一目錄下

end;

procedure tform1.timer1timer(sender: tobject);

begin

k:=k+1; //k為當前迴圈的次數

label1.caption:=floattostr(max-k); //max為迴圈的總次數

if(k>max) then

begin

timer1.enabled:=false;

end;

setcursorpos(400,400); //設定滑鼠指標位置,定位按鈕位置

mouse_event(mouseeventf_leftdown,0,0,0,0); //模擬按下

mouse_event(mouseeventf_leftup,0,0,0,0); //模擬放開

//sleep(100);

//一提交後 webbrowser1馬上開啟sign.html ,有人說這樣的話提交失敗概率很大,但是我兩次都搶到了。

end;

4.等到23點58分左右時開啟程式,讓它自動去提交。
過會開啟論壇發現出現了2個簽到帖,而且都是我發的。嗯,卡密到手。
第2天簽到也一樣,搶的人多不僅有多個簽到帖,而且在乙個簽到帖裡我發了2個帖。壇友意見很大,所以第2次簽到的卡密沒了。

介面:

版主發給我的資訊:

版主以為我故意發了個偽帖,其實是程式提交太快造成的,可愛的版主我錯了,哈哈。

ok,卡密到手,免費上乙個月的校園網。

Discuz 如何實現自動註冊登入

本文實現功能 1.從原有系統進入論壇自動登入和註冊 2.實現彈框在本頁面,不進行跳轉 3.js在頁面載入時直接發起註冊請求 這個功能之前使用的uc user register這個函式來處理的,但是今天在開發使用者空間時就會出現問題。在我們原有的系統上新增乙個論壇,但是使用者資訊需要共享。實現方法 在...

delphi實現web activex控制項

目前在做乙個專案,開發乙個控制項供給web使用,第一次開發delphi activex,記錄開發過程。1 新建乙個activex library工程。2 接著新建乙個type library。3 現在新建automation object,選中generate event support code ...

論left pad的實現

這兩天微博上看到左耳朵耗子吐槽了一下node社群的left pad的 原po鏈結 我也思考了一下 怎麼用實現乙個left pad比較合適,上圖 確實比較搓 leftpad功能,就是字串前面拼指定字元到固定長度,比如 leftpad hello 20,1 就要返回 111111111111111hel...