Re: 請問FreeBSD 能發送 SMS 嗎?
※ 引述《DarkKiller.bbs@Deer.twbbs.org (悸動)》之銘言：
: ※ 引述《doremi.bbs@bbs.sayya.org (doremi)》之銘言：
: > 哦哦我正是需要這種東西(可以用perl 發)
: > 謝謝你囉...
: 擋人財路雖然不是什麼好事情，不過我還是要丟出來 :p
: 透過 PChome 的一元簡訊發：
DrakKiller您好,那請問網頁html的form該怎麼寫呢?還有,0912345678和0934567890
還有'嗨嗨'這三個欄位分別代表啥意思呢?謝謝!
: #!/usr/bin/perl
: use WWW::Mechanize;
: use strict;
: &sendsms('PChome account', 'PChome password', 'SMS password', '0912345678,0934567890', '嗨嗨');
: sub sendsms
: {
: my ($username, $password1, $password2, $receiver, $msg) = @_;
: my $agent = WWW::Mechanize->new();
: $agent->agent_alias('Windows IE 6');
: $agent->get('http://sms.pchome.com.tw/front_end/sms');
: $agent->form_number(1);
: $agent->field('fuid', $username);
: $agent->field('pwd', $password1);
: $agent->submit();
: $agent->form_number(2);
: $agent->field('InputMsg', $msg);
: my $num = 0;
: foreach my $phone_number (split(/,+/, $receiver)) {
: $agent->field(sprintf('mobile%02d', ++$num), $phone_number);
: }
: $agent->submit();
: $agent->field('auth_code', $password2);
: $agent->current_form()->action('https://ezpay.pchome.com.tw/auth_form_do');
: $agent->submit();
: }
--
㊣Origin:《 成大計中 BBS 站 》[bbs.ncku.edu.tw] 來源:[218-172-81-156.dynamic]
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 10 篇)：
FreeBSD 近期熱門文章
PTT數位生活區 即時熱門文章
5
12