标题: [代码]登录163.com发送短信 [打印本页]

---

作者: cnangel    时间: 2004-12-7 18:49     标题: [代码]登录163.com发送短信

作者：雨中漫步

1. [font=新宋体]#/usr/bin/perl.exe
2. use LWP;
3. use HTTP::Cookies;
4. use HTTP::Request::Common(POST);
5. my $ua=new LWP::UserAgent;
6. $ua->cookie_jar(new HTTP::Cookies);
7. my $loginurl="http://reg4.163.com/CheckUser.jsp";
8. my $username="";
9. my $password="";
10. my $smsurl="http://sms.163.com/service/sendmsg_pop.php";
11. my $send=1;
12. my $phone="mobile number";
13. my $message="hello perl.cn";
14. my $loginiff="请检查用户名和密码的输入是否正确！";#登录失败标志
15. my $sendifs="发送成功！接收不到不收费";#发送成功标志
16. my $send_type=8;#send_type=8表示免提短信
17. my $mt=0;#1表示免提短信
18. #################################################
19. #登录网易                                       #
20. #################################################
21. my $request=POST(
22.      "$loginurl",
23.      [
24.      url=>"",
25.      username=>"$username",
26.      password=>"$password",
27.      login=>"登录",
28.      ]
29.      );
30. my $reponse=$ua->request($request);
31. #my $code=$reponse->code;
32. #print "$code\n";
33. #print $reponse->content;
34. my $loginresult=$reponse->content;
35. #print $loginresult;
36. if($loginresult=~/$loginiff/)
37. {
38.   print $loginiff;#登录失败
39.   exit 0;
40.   }
42. #################################################
43. #发送短信                                       #
44. #################################################
45. if($mt)
46. {
47.   $request=POST(
48.         "$smsurl",
49.         [
50.         send=>"$send",
51.         phone=>"$phone",
52.         message=>"$message",
53.         send_type=>"$send_type"
54.         ]
55.            );
56. }
57. else
58. {
59.   $request=POST(
60.         "$smsurl",
61.         [
62.         send=>"$send",
63.         phone=>"$phone",
64.         message=>"$message"
65.         ]
66.            );
67. }
68. $reponse=$ua->request($request);
69. #my $code=$reponse->code;
70. #print "$code\n";
71. #print $reponse->content;
72. my $smsresult=$reponse->content;
73. if($smsresult=~/$sendifs/)
74. {
75.   print $sendifs;
76.   }
77. else
78. {
79.   print "发送不成功！";
80.   } [/font]

复制代码

---

欢迎光临 星星博客 (http://commerce.huhoo.net/)

Powered by Discuz! 7.0.0