腦友記廣場 -> 新手上路 -> [急] 請問有冇人能教我用這個? 登錄 -> 註冊 -> 回復主題 -> 發表主題

akiakane 2009-11-15 09:09
小妹在這個網頁內→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 認識不深,
連應該如何執行也不懂,所以想用也用不了,
請問各位前輩能教教我,給我一點建議嗎?

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

akiakane 2009-11-16 00:32
真係唔該哂您!我而家就試下∼ ^0^


查看完整版本: [-- [急] 請問有冇人能教我用這個? --] [-- top --]


Powered by PHPWind v4.0.1 Code © 2003-05 PHPWind
Gzip enabled

You can contact us