Re: [問題] 有關網頁認證碼的問題
/* ========= 最近流行 自己問問題 自己解答 ========== */
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( cookie_jar => undef );
my $url = '圖片認證頁面';
my $data = '填寫資料頁面';
my $vote = '投票link';
$mech->get($url); #開啟圖檔網址
$mech->save_content('code.jpg'); #存成圖檔
$mech->get($data); #開啟填寫資料頁面
print "Input Code Number:";
$code = <>;
chomp $code;
# 下面的 field 資料 可以用 mech-dump url 去抓取
# 如果你喜歡從原始碼獲取這些資料...那也OK :p
$mech->field(name,'陳小明');
$mech->field(mail,'陳小明@xx.xx');
$mech->field(numb,'0912345678');
$mech->field(addr,'叉叉市叉叉路叉叉號');
$mech->field(code,'$code');
$mech->submit(); #送出
$mech->get($vote); #投出選票
※ 引述《dark22 (小宇)》之銘言：
: 最近想寫一個自動投票程式
: 現在的認證機制 好像多了一個要輸入認證碼
: 我的想法是當get時候先把認證圖片存成檔案...
: 在手動輸入圖片的數字...在去get
: 可是這樣在get的結果...認證圖片好像會換一張
: 導致認證錯誤....請問 有什麼方法可以解決嗎?
: 或者說這是cookie的問題?
: ----程式碼-------------------------------------------------
: use LWP::Simple;
: use WWW::Mechanize;
: my $url='http://act.udn.com/ACT/baby/image.jsp'; # 這是認證圖片的位置
: my $mech=WWW::Mechanize->new();
: getstore($url, '01.jpg');
: print "Input Code:";
: $input = <>;
: chomp $input;
: #下兩行是同一行...
: $url2='http://act.udn.com/ACT/baby/data_action.jsp?
: name=aaa&email=xx@x.x?phone=123&address=321&codekey='."$input";
: getstore($url2,'01.html'); #確認有沒有登入成功
: -------------------------------------------------------------
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.230.82.48
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
