有辦法將以下各家業者發簡訊的程式碼,改為 DELPHI 來操作嗎?? |
|
小蚊子
中階會員 發表:55 回覆:267 積分:94 註冊:2002-06-08 發送簡訊給我 |
資訊來源: http://gslin.org/2005/01/30/e4b880e4ba9b-sms-e79a84-function/ « Perl 的 mail modules交大的 nctu.virus virus report »一些 SMS 的 function 這邊提供 PHS (大眾)、emome (中華電信)、HiNet ADSL (中華電信)、PChome (電腦家庭) 所提供的簡訊介面的 Perl code 讓大家用,其中我自己平常有在跑的是 emome 及 PChome 兩個, 其他的我就不清楚了… 這是 HiNet ADSL 的 code: #!/usr/bin/perl use WWW::Mechanize; use strict; &sendsms(\"HN 號碼\", \"密碼\", \"0911341234\", \"簡訊測試\"); sub sendsms { my ($username, $password, $receiver, $msg) = @_; my $number = 0; my $agent = WWW::Mechanize->new(); $agent->get(\"http://hiair.hinet.net/hweb/hiairpost_new.jsp\"); $agent->form(\"form1\"); foreach (split(/[ ,] /, $receiver)) { $agent->field(\"tel\", $_, $number); } $agent->field(\"add_name\", \"0\"); $agent->field(\"message\", $msg); $agent->submit(); $agent->form(\"loginform\"); $agent->submit(); $agent->form(\"AuthScreen\"); $agent->field(\"aa-uid\", $username); $agent->field(\"aa-passwd\", $password); $agent->submit(); foreach (split(/\r|\n/, $agent->content())) { next unless (/.href='/i); $_ =~ /.href='(. )'/i; my $newurl = $1; $agent->get($newurl); last; } print($agent->content()); }這是 PChome 的 code: #!/usr/bin/perl use HTML::Form; use WWW::Mechanize; use strict; &sendsms('username', 'password', 'confirm code', '0911341234', '測試簡訊'); 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('mobiled', $num), $phone_number); } $agent->submit(); $agent->field('auth_code', $password2); $agent->current_form()->action('https://ezpay.pchome.com.tw/auth_form_do'); $agent->submit(); }再來是 PHS 的 code: #!/usr/bin/perl use WWW::Mechanize; use strict; &sendsms(\"0968123123\", \"A123456789\", \"0968123123\", \"PHS SMS test\"); sub sendsms { my (%h); my ($username, $password, $receiver, $msg) = @_; my $agent = WWW::Mechanize->new(); $agent->agent_alias('Windows IE 6'); $agent->get('http://www.phs.com.tw/myphs/Login.asp?URL=Send-SMS.asp'); $agent->form('form1'); $agent->field('PhoneNo', $username); $agent->field('PWD', $password); my $con = $agent->submit(); $agent->get('Send-SMS.asp'); $agent->form('frmSS'); $agent->field(\"txtSMS\", $msg); $agent->field(\"RcvPhoneNo1\", $receiver); $agent->field(\"rdSendTime\", \"R\"); $con = $agent->submit(); } 最後是 emome: #!/usr/bin/perl use HTML::Form; use WWW::Mechanize; use strict; &sendsms('0911341234', '123456', '0911341234', '我是 dk,來打 settler 或 war3 吧'); sub sendsms { my ($username, $password, $receiver, $msg) = @_; my $agent = WWW::Mechanize->new(); $agent->agent_alias('Windows IE 6'); $agent->get('http://www.emome.net/cgi-bin/MASP/jsp/membersvc/AuthServlet?serviceId=5235'); $agent->form('myform'); $agent->field('MSISDN', $username); $agent->field('PASSWD', $password); $agent->submit(); $agent->form('form1'); $agent->field('phonelist', $receiver); $agent->field('data', $msg); $agent->field('language', 2); # 1 == 中,2 == 英 $agent->current_form()->action('http://websms1.emome.net/sms/sendsms/send.jsp'); $agent->submit(); }發表人 - 小蚊子 於 2005/01/31 01:37:50 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |