» 您尚未 登錄   註冊 | 幫助 | 社區 | 無圖版


腦友記廣場 -> 新手上路 -> [急] 請問有冇人能教我用這個?
 XML   RSS 2.0   WAP 

--> 本頁主題: [急] 請問有冇人能教我用這個? 加為IE收藏 | 收藏主題 | 上一主題 | 下一主題
akiakane





級別: 新手上路
精華: 0
發帖: 3
威望: 4 點
金錢: 30 HKD
貢獻值: 0 點
註冊時間:2009-11-15
最後登錄:2009-11-16
查看作者資料 發送短消息 推薦此帖 引用回復這個帖子

[急] 請問有冇人能教我用這個?

小妹在這個網頁內→http://jck11.pixnet.net/blog/post/4654651
看到這個用 Perl 寫的自動投票程式:

------------------------------------------------------
程式碼
use WWW::Mechanize;

my $mech=WWW::Mechanize->new();
$mech->get("http://yes123.com.tw/admin/mylogin.asp?back_asp=vote.asp");
$mech->success or die $mech->response->status_line;
$mech->form_number(1);
$mech->field('textfield22' => 'xxxxxxxx');
$mech->field('textfield32' => 'xxxxxxxx');
$mech->field('groovybtn13' => '登入');
$mech->submit();
$mech->success or die "post failed: ", $mech->response->status_line;
$mech->follow_link(text => "回首頁");
$mech->success or die "post failed: ", $mech->response->status_line;
$mech->follow_link(url_regex => qr/vote.asp/i);
$mech->success or die "post failed: ", $mech->response->status_line;
$mech->form_number(1);
$mech->field('vote' => '1');
$mech->field('b11' => 'todo');
$mech->submit();
$mech->success or die "post failed: ", $mech->response->status_line;

解說
$mech->field('textfield22' => 'xxxxxxxx'); xxxxxxxx部份是帳號
$mech->field('textfield32' => 'xxxxxxxx'); xxxxxxxx部份是密碼
自行代換你申請的帳號密碼即可

---------------------------------------------------------------

奈何我對 Perl 認識不深,
連應該如何執行也不懂,所以想用也用不了,
請問各位前輩能教教我,給我一點建議嗎?

[樓 主] | Posted: 2009-11-15 09:09 頂端
maninnet



級別: 管理員
精華: 0
發帖: 1903
威望: 1903 點
金錢: 19030 HKD
貢獻值: 0 點
註冊時間:2005-12-22
最後登錄:2018-02-01
查看作者資料 發送短消息 推薦此帖 引用回復這個帖子



首先要有支援 cgi-bin 的網站.
用 ftp 將以上程式掛上. 記住要用 ascii mode, 不要用 bin mode
然後將該檔案 mode 改為 755
假設你的網站為 aaa.com, 檔案名為 bbb.cgi
則用 ie 打開 http://aaa.com/cgi-bin/bbb.cgi
則可執行

[1 樓] | Posted: 2009-11-15 20:15 頂端
akiakane





級別: 新手上路
精華: 0
發帖: 3
威望: 4 點
金錢: 30 HKD
貢獻值: 0 點
註冊時間:2009-11-15
最後登錄:2009-11-16
查看作者資料 發送短消息 推薦此帖 引用回復這個帖子



真係唔該哂您!我而家就試下∼ ^0^
[2 樓] | Posted: 2009-11-16 00:32 頂端

腦友記廣場 -> 新手上路




Powered by PHPWind v4.0.1 Code © 2003-05 PHPWind
You can contact us