学步园

<?php<br /> /*-<br /> * 版权没有，欢迎拷贝 (x) 2006 胖头鱼.<br /> * 作者: pangty <pangty@ta139.com><br /> *<br /> * $Id: RS232.php,v 0.1 2006-7-29 05:28 PM Exp $<br /> *<br /> * 运行环境：Windows XP，PHP 5.1.4 (cli)，MySQL<br /> * php.ini<br /> * extension=php_mysql.dll<br /> * extension=php_dio.dll<br /> * 硬件要求：熊猫 PM818A GSM/GPRS MODEM或其他任何GSM MODEM模块<br /> * 相关知识：GSM AT指令集和PDU格式，去google吧<br /> *<br /> * mysql> use smsc;<br /> * mysql> desc sm_submit;<br /> * +----------+----------------------+------+-----+---------+----------------+<br /> * | Field | Type | Null | Key | Default | Extra |<br /> * +----------+----------------------+------+-----+---------+----------------+<br /> * | smid | int(11) unsigned | | PRI | NULL | auto_increment |<br /> * | OrgAddr | varchar(11) | YES | | NULL | |<br /> * | DestAddr | varchar(11) | | PRI | | |<br /> * | Time | datetime | YES | | NULL | |<br /> * | USERDATA | mediumtext | YES | | NULL | |<br /> * | stat | smallint(3) unsigned | YES | MUL | NULL | |<br /> * +----------+----------------------+------+-----+---------+----------------+<br /> *<br /> */<br /> function gb2unicode($str) {<br /> return iconv("gb2312", "UCS-2", $str);<br /> }<br /> function hex2str($hexstring) {<br /> $str = '';<br /> for($i=0; $i<strlen($hexstring); $i++){<br /> $str .= sprintf("%02X",ord(substr($hexstring,$i,1)));<br /> }<br /> return $str;<br /> }<br /> function InvertNumbers($msisdn) {<br /> $len = strlen($msisdn);<br /> if ( 0 != fmod($len, 2) ) {<br /> $msisdn .= "F";<br /> $len = $len + 1;<br /> }<br /> for ($i=0; $i<$len; $i+=2) {<br /> $t = $msisdn[$i];<br /> $msisdn[$i] = $msisdn[$i+1];<br /> $msisdn[$i+1] = $t;<br /> }<br /> return $msisdn;<br /> }<br /> /*---------------主程序开始---------------*/<br /> set_time_limit(0);<br /> $DEBUG = 0;<br /> exec('mode COM1: baud=115200 data=8 stop=1 parity=n xon=on');<br /> $fd = dio_open('COM1:', O_RDWR);<br /> if(!$fd)<br /> {<br /> die("打开串口COM1失败");<br /> }<br /> $ff = dio_stat($fd);<br /> print_r($ff);<br /> echo "GSMAT is start on COM1/n";<br /> // 短信中心号码<br /> $smsc = "8613800538500";<br /> // 短信最大长度70个汉字，Unicode表示需要280个字节<br /> $max_len = 280;<br /> $invert_smsc = InvertNumbers($smsc);<br /> $sql = mysql_connect("localhost", "pangty", "pangty");<br /> mysql_select_db("smsc",$sql);<br /> $query = "select * from sm_submit where stat=0";<br /> $result = mysql_query($query, $sql);<br /> $len = 1; $s = chr(13);<br /> while ( $row = mysql_fetch_object($result) ) {<br /> $msisdn = "86". $row->DestAddr;<br /> $sms_text = $row->USERDATA;</p> <p> if ($DEBUG) echo date("Y-m-d H:i:s")." DEBUG $row->DestAddr/n";<br /> if ($DEBUG) echo date("Y-m-d H:i:s")." DEBUG $sms_text/n";</p> <p> $pdu_text = hex2str(gb2unicode($sms_text));<br /> $invert_msisdn = InvertNumbers($msisdn);</p> <p> // 拆分发送超过70汉字的短信(todo: 没有判断全英文的情况)<br /> do {<br /> $pdu_len = strlen($pdu_text);<br /> if ( $pdu_len > $max_len ) {<br /> $pdu_text1 = substr($pdu_text, 0, $max_len);<br /> $pdu_text = substr($pdu_text, $max_len, $pdu_len - $max_len);<br /> } else {<br /> $pdu_text1 = $pdu_text;<br /> $pdu_text = "";<br /> }</p> <p> $pdu_len1 = sprintf("%02X", strlen($pdu_text1)/2);<br /> $pdu_text1 = $pdu_len1 . $pdu_text1;</p> <p> $pdu_text1 = "11000D91" . $invert_msisdn ."000800" . $pdu_text1;</p> <p> $atcmd = "AT+CMGS=" . sprintf("%d", strlen($pdu_text1)/2) . chr(13);<br /> $l = strlen($atcmd);<br /> $ll = @dio_write($fd,$atcmd);<br /> while ($l != $ll) {<br /> sleep(10);<br /> $ll = @dio_write($fd,$atcmd);<br /> }<br /> if ($DEBUG) echo date("Y-m-d H:i:s")." DEBUG $atcmd/n";<br /> do {<br /> $data = dio_read($fd, $len);<br /> echo $data;<br /> } while ( $data != $s );<br /> sleep(1);</p> <p> $pdu_text1 = "0891" . $invert_smsc . $pdu_text1 . chr(26).chr(13);<br /> $l = strlen($pdu_text1);<br /> $ll = @dio_write($fd,$pdu_text1);<br /> while ($l != $ll) {<br /> sleep(10);<br /> $ll = @dio_write($fd,$pdu_text1);<br /> }<br /> if ($DEBUG) echo date("Y-m-d H:i:s")." DEBUG $pdu_text1/n";<br /> do {<br /> $data = dio_read($fd, $len);<br /> echo $data;<br /> } while ( $data != $s );</p> <p> sleep(7);<br /> } while ( $pdu_text != "" );</p> <p> mysql_query("update sm_submit set stat=1 where smid=$row->smid", $sql);<br /> }<br /> mysql_close($sql);<br /> dio_close($fd);<br /> ?>