php 傳送簡訊

<?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 />?>