
平台论坛博客文库

› 论坛 › 程序设计 › Perl › 自己做的短信机器人(windows版)

12 3 / 3 页下一页

自己做的短信机器人(windows版) [复制链接]

ykredrum

稍有积蓄

论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2010-05-21 01:40 |只看该作者 |倒序浏览

一、运行程序的一些准备。
1.下载并安装需要的模块
device::modem    device::gsm       Win32-SerialPort
这三个模块在cpan上都有，先下好安装，其中GSM.pm 该模块的_send_sms_pdu方法被修改过，原模块不支持中文短信，修改过后的模块支持中文短信。CommPort.pm 该模块的第791行被修改过原$self->{"_L_BAUD"} = {};  修改后为$self->{"_L_BAUD"} = {19200 => 19200};原因是未修改时运行出错找不到BAUD值，因此强制设定为19200。对sms.pm进行修改，sms.pm的作用是在串口接收到短信的信息时，对每条短信进行解码还原，但是原模块是针对特定的设计的，因此只对 AT+CMGL=4即提取所有短信这条命令能识别，对对70的判断语句多了对AT+CMGR命令的支持，前一命令返回参数有4个，后一命令返回参数有3个，为了对应，将后一个命令的第一参数匹配了空!

2.修改后的三个模块我上传到这里，下载后覆盖相应的文件即可。

修改后的三个模块.rar (33.37 KB, 下载次数: 308)

3.准备一个支持蓝牙的手机，并且手机要能够使用AT命令。(测试手机是否支持AT命令的方法，windows下用超级终端，设置好发送几个AT命令看返回就可以了，nokia手机6300只支持发送，其他好像都不支持，最后找了个天语的，什么命令都支持，山寨机的好处)

这些准备好基本上可以运行程序了。下面发代码：

# Gsmbot - a perl program for sending and parsing SMS
# main function is to send sms to group and in certain
# time statistc answer which you received,
# programme by Y.K
# Email:yk_redrum@163.com
# 待删
# 目前需要实现的功能
# 1.同一个人要是回复多次，程序要重复统计
# 2.群发的时候，发短息给手机，手机不接收
# 3.定时清除手机内的短信
# 4.待发现
use strict;
use Device::Gsm;
use Encode;
use Time::Local;
#
# master tel number sending command
#
my $masterTelnum = 134xxxxxxx7;
#
#group book
#
our %team = (
1588xxxxx17 => '张三',
1343xxxxx37 => '李四,
);
#
# all name of all phone book
#
my %pbName =(team=>undef);
#
# chr(10) eq \n in sms
#
my $n = chr(10);
#
# seventy unicode charactor of a sms
#
my $gsmStatus ="请输入命令，格式：$n<别名>#<时间>#<内容>$n别名：只支持team。$n时间：单位是分钟，格式为数字。$n内容：内容不要包含符号#。";
my $newMeasageReg = qr/^\+CMTI:\s*\"\w*\",\s*\d+$/m;
my($startTime,$interval) = (undef,undef);;
my $pin = '0000';
#
# main procedure
#
my $gsm = new Device::Gsm( port => 'COM4', pin => $pin,log => 'file,send.log' ); # loglevel => 'debug'
die "cannot create Device::Gsm object!" unless $gsm;
$gsm->connect( baudrate => 19200 ) or die "cannot connect to GSM device on [COM4\]\n";
$gsm->register() or die "cannot register on GSM network: check pin and/or network signal!";
print "\n[initial]:\tok! connected and registered to network.\n";
print "[initial]:\tSet CNMI to [2,1,0,0,0]... \n";
$gsm->atsend( qq[AT+CNMI=2,1,0,0,0] . Device::Modem::CR );
$gsm->answer($Device::Modem::STD_RESPONSE);
print "[initial]:\tSet CPMS to [MT]... \n";
$gsm->atsend( qq[AT+CPMS="MT"] . Device::Modem::CR );
$gsm->answer($Device::Modem::STD_RESPONSE);
print "[initial]:\tWaiting for command!...\n\n";
while(1){
#
# statistic
#
if(defined $startTime && defined $interval){
my $now = time;
my $endTime = $startTime + $interval;
print "[timer]:\t$now ->($startTime , $endTime)\n";
if( $now > $endTime){ #time up
print "[statistic]:\tstatistic start.....\n";
statistic($gsm,$startTime,$endTime);
#destroy timer
($startTime,$interval) = (undef,undef);
print "[statistic]:\tstatistic over and timer has been destroied!\n";
}
}
#read until a new message recieve with master command in it
next unless (my $haveNewMeasage = $gsm->answer($newMeasageReg) =~ m/\+CMTI:\s*\"\w*\",\s*(\d+)/ );
#
#read one sms according to +CMTI:......
#
print "[new sms]:\tat position \[$1\] A new sms has been received,and reading ...\n";
my $msg = readSMS($gsm,$1);
if( ref $msg ) {
print "[new sms]:\tparsing command ...\n";
if($msg->sender =~ /$masterTelnum/o){
my $smsContent = encode( "gb2312", $msg->content() );
#remove all \n \s and blank
$smsContent =~ s/\s//g;
#
#parse command
#
if($smsContent =~ /\#/){ # phone_book#interval_time#sms_content
print "[command parse]:\tcommand is group send ...\n";
#group send
my($gpName,$gpTime,$gpMsg)= split(/\#/,$smsContent);
$gpName =lc $gpName;
if(exists $pbName{$gpName} && $gpTime =~ /^\d+$/){
print "[group send]:\tparametre set:groupName:$gpName\tinterval: $gpTime(min)\n";
print "[group send]:\tnow group sending ...\n";
my($sendlog,$rgpName);
{
#allow Symbolic references
no strict 'refs';
$rgpName = \%{$gpName};
#send group sms,and return result
$sendlog = sendGp($gsm,$rgpName,$gpMsg);
}
#send accomplished ,now send log to master!
if($sendlog){
#
#format report
#
groupReport($gsm,\$sendlog,$rgpName);
#
#timer start after $interval statistic sms
#
print "[timer]:\tcreative timer\n";
$startTime = time; #begin count
$interval = $gpTime * 60; #convert to secs
}else{
print "[group send]:\tlack sms content which you want send!\n";
}
}else{
print "[group send]:\tfirst and second parametre format of command is wrong or empty!\n";
}
}elsif( lc($smsContent) =~ /status/ ){
#single line command
print "[command parse]:\tcommand is status\n";
print "[command status]:\tsmsBot status sending ...\n";
my $lOk = $gsm->send_sms(
content => $gsmStatus,
recipient => $masterTelnum,
encode=>'chinese',
status_report=>1,
);
if( $lOk ) {
#
#send ok to log
#
print "[command status]:\t--smsBot status is sent successful\n";
} else {
#
#send error to log
#
print "[command status]:\t--smsBot status is sent successful\n";
}
}else{
print "[command parse]:\tcommon message and no command\n";
}
}
} else {
#
#log
#
print "[new sms]:\tsms at position $1 read failed!\n";
}
}
#
# sendGp
#
# send SMS to every one of group phone book...
# hashref = sendGp($obj,$r_phonebook_hash,$gpcontent)
#
sub sendGp {
my $self = shift;
my( $bookref,$gpMsg ) = @_;
my $log = {};
return undef unless $gpMsg;
foreach (keys(%$bookref)){
print "[group send]:\tsending sms to $bookref->{$_} ...\n";
my $lOk = $self->send_sms(
content => $gpMsg,
recipient => $_,
encode=>'chinese',
status_report=>1,
);
if( $lOk ) {
# send successful
print "[group send]:\t--sms to $bookref->{$_} has been sent successful\n";
$log->{$_} = 1; #send ok
}else {
#send error to log
print "[group send]:\t--sms to $bookref->{$_} has been sent fail\n";
$log->{$_} = 0; #send fail
}
#select(undef,undef,undef,0.5);
}
return $log;
}
#
# readSMS
#
# read single readSMS
# $msgobj = readSMS($obj,position)
#
sub readSMS {
my( $self,$pos ) = @_;
return undef unless $pos;
#
# when invoke send,procedure set ATE1,and maybe first pair of @data is not data of message!
# so set it off ATE0
$self->atsend( q[ATE0] . Device::Modem::CR );
$self->answer($Device::Modem::STD_RESPONSE);
$self->atsend( qq[AT+CMGR=$pos] . Device::Modem::CR );
my $message =$self->answer($Device::Modem::STD_RESPONSE);
# Catch the case that response you wanted have not received because time is up.
while (my $more = $self->answer($Device::Modem::STD_RESPONSE, 200)) {
#-- $self->answer will chomp trailing newline, add it back
$message .= $more;
}
my @data = split /[\r\n]+/m, $message;
# Current sms storage memory (ME or SM)
my $storage = $self->storage();
#
# Parse received data (result of +CMGR command)
#
$self->log->write('debug', 'data[] = ', $data[0] );
my $header=shift @data;
my $pdu =shift @data;
# Instance new message object
my $msg = new Device::Gsm::Sms(
header => $header,
pdu => $pdu,
storage => $storage,
parent => $gsm # Ref to parent Device::Gsm class
);
return $msg;
}
#
# statistic
#
# statistic answers of team
# $sok = statistic($obj,$startTime,$endTime)
#
sub statistic {
my($self,$startTime,$endTime) = @_;
#shut up echo
$self->atsend( q[ATE0] . Device::Modem::CR );
$self->answer($Device::Modem::STD_RESPONSE);
my @sms = $self->messages;
if( @sms ) {
#report info
my $report = {ok=>0 , no=>0};
my $num = 0;
my $satisticTime = $interval/60;
foreach( @sms ) {
my $sender = $_->sender();
my @tdata = split /\s/,$_->time();
my ($mday,$mon,$year) = split /\//,$tdata[0];
my ($hour,$min,$sec) = split /:/,$tdata[1];
$mon -= 1;
$year += 100;
my $smsTime = timelocal($sec,$min,$hour,$mday,$mon,$year);
if(exists $team{substr($sender,3)}){
my $csender = $team{substr($sender,3)};
print "[statistic]:\tsender:$csender\[$sender\]\ttime:$smsTime($startTime,$endTime)\n";
if( $smsTime >= $startTime && $smsTime <= $endTime ){
$num++;
my $content = encode( "gb2312", $_->content() );
print "[statistic]:\t--matched:\n";
print " \t--sender:$csender\[$sender\] time:$smsTime($startTime,$endTime)\n";
print " \t--content:$content\n";
$content =~ s/\s//g;
($content =~ /好|要的|我要来|算上我|yes|恩|啊/ ) ? $report->{ok}++ : $report->{no}++;
}else{
print "[statistic]:\t--time of sms is not fit\n";
}
}else{
print "[statistic]:\tsender:$sender do not belong to %team!\n";
}
}
print "[statistic]:\tstatistic report sending ...\n";
my $reportContent = "统计时间:$satisticTime分钟，一共$num人回复了短信，其中同意的有$report->{ok}人,不同意的有$report->{no}人";
my $lOk = $gsm->send_sms(
content =>$reportContent,
recipient =>$masterTelnum,
encode=>'chinese',
status_report=>1,
);
if( $lOk ) {
##
#send ok to log
#
print "[statistic]:\tstatistic report has been sent successful\n";
} else {
##
#send error to log
#
print "[statistic]:\tstatistic report has been sent fail\n";
}
}
}
#
# groupReport
#
# format result of group send
# groupReport($obj,$r_sendlog,$r_phonebook_hash)
#
sub groupReport {
my($self,$rsendlog,$rbook) = @_;
my ($nok,$nerror)=(0,0);
my $tReport;
while( my($key, $value) = each %$$rsendlog) {
if($value){
#send ok
$nok++
}else{
#send fail
$tReport .= "$rbook->{$key},";
$nerror++
}
#($value) ? $nok++ : $nerror++;
}
my $report = "短信群发报告$n发送成功$nok个,发送失败$nerror个$n";
if($nerror){
$report .="发送失败包括：";
$report .= $tReport;
}
#length of sms content:a new involve 70 charactor
my $ucreport = decode("gb2312",$report);
my $wlen = length($ucreport);
if($wlen > 70){
print "[group send]:\tnow sending mutipage report ...\n";
#67 = 70 - lenghth("2/3") --"2/3" is page of sms
my $pages = int($wlen/67);
$pages++ if $wlen%67;
foreach(0..$pages-1){
my $reportpage;
my $cpage = $_+1;
$reportpage = encode("gb2312",substr($ucreport,$_*67,67));
$reportpage .= "$cpage/$pages";
my $lOk = $gsm->send_sms(
content => $reportpage,
recipient => $masterTelnum,
encode=>'chinese',
status_report=>1,
);
if( $lOk ) {
#
#send ok to log
#
print "[group send]:\t--page $cpage of report is sent successful\n";
} else {
#
#send error to log
#
print "[group send]:\t--page $cpage of report is sent fail\n";
}
}
}else{
print "[group send]:\tnow sending single page report ...\n";
my $lOk = $gsm->send_sms(
content => $report,
recipient => $masterTelnum,
encode=>'chinese',
status_report=>1,
);
if( $lOk ) {
#
#send ok to log
#
print "[group send]:\t--report is sent successful\n";
} else {
#
#send error to log
#
print "[group send]:\t--report is sent fail\n";
}
}
}

复制代码

文库|博客

ykredrum

稍有积蓄

论坛徽章:: 0

2楼 [报告]

发表于 2010-05-21 01:56 |只看该作者

本帖最后由 ykredrum 于 2010-05-21 02:00 编辑

一、部分代码解释：
my $masterTelnum = 134xxxxxxx7;
这句代码设定控制方手机号码，也就是你用这个号码发送命令接收发送和统计报告

our %team = (

   1588xxxxx17 => '张三',

   1343xxxxx37 => '李四,

);
这个hash存储的是群号码，key是手机号，value是姓名。这个hash的变量名很重要，发命令的时候要用。

my $gsm = new Device::Gsm( port => 'COM4', pin => $pin,log => 'file,send.log' );
这个port的值要根据你蓝牙虚拟成串口的具体端口，直接改了就行。

二、运行方法：
1.首先在电脑端运行程序。
2.目前控制方有2个命令可以使用
   发送"status" 不包括"" 给短信机器人的号码，机器人将返回当前状态，在群发前最好先查看状态因为群发的时候可能对新收到的短信没有反应，单进程。
3.发送 "team#2#大家好" 不包括""给短信机器人的号码，机器人将“大家好”三个字群发给team内的所有成员号码，发送完了将发送群发报告，而且如果2分钟内对方回短信的话，2分钟后将简单统计回复的内容并发送统计报告给控制方。这里的team就是上面所说的hash的变量名。

三、短信机器人的最初想法，
主要想是用到球队，我们有个足球队，每次有比赛都要群发短信给队员有关球赛的相关信息，保证全部都要发送到，同时要统计哪些人能参加，哪些人不能参加，以便确定比赛时人能凑得够不，如果用手机发，我的手机群发一个组最多只能发20个人，而且中途要是有人发送失败，不能知道是哪个发送失败了，弄不好又要全部重发，再者就是发送完之后，紧接着就是一个接一个的短信回复，每个都要看下队员到底能参加不，现在这个程序做的事情就是，群发给n个，同时能生成发送报告，还有就是自动查看收到的短信，简单判断短信回复内容，最终统计回复内容，判断哪些能参加球赛，并将统计内容发给控制方手机。

头有点昏，不晓得表达清楚没有。代码有点垃圾，东拼西凑，只能说可以用。