Re: 請問FreeBSD 能發送 SMS 嗎?
※ 引述《doremi.bbs@bbs.sayya.org (doremi)》之銘言：
> 哦哦我正是需要這種東西(可以用perl 發)
> 謝謝你囉...
> ※ 引述《darkhero (LE2005上線!)》之銘言：
> > 目前一些專門銷售簡訊的網站有提供相關的 api 可以使用...
> > 像是 http://www.twsms.com
擋人財路雖然不是什麼好事情，不過我還是要丟出來 :p
透過 PChome 的一元簡訊發：
#!/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();
}
--
Resistance is futile.
http://gslin.org/ & <gslin@gslin.org>
--
※ Origin: 邪惡小鹿鹿 <Deer.twbbs.org> ◆ From: 140.113.22.90
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 4 之 10 篇)：
FreeBSD 近期熱門文章
PTT數位生活區 即時熱門文章
5
12