[size=3]公司有发短信任务，!@#$%^&~。每月至少500条，还要发给不同的50个人，ft！刚好看到版主HQ的大作《[url=http://bbs.chinaunix.net/viewthread.php?tid=771726][硬件 通讯]PHP在RS232串口通讯协议的应用演示[测试环境PHP5.1.4]》，周末写一个群发短信的小脚本，2.5小时发1000条，超额完成任务，嘿嘿！贴上来凑个热闹。[/size]
[color=Green]<?php
/*-
* 版权没有，欢迎拷贝 (x) 2006 胖头鱼.
* 作者: pangty <pangty@ta139.com>
*
* $Id: RS232.php,v 0.1 2006-7-29 05:28 PM Exp $
*
* 运行环境：Windows XP，PHP 5.1.4 (cli)，MySQL
* php.ini
* extension=php_mysql.dll
* extension=php_dio.dll
* 硬件要求：熊猫 PM818A GSM/GPRS MODEM或其他任何GSM MODEM模块
* 相关知识：GSM AT指令集和PDU格式，去google吧
*
* mysql> use smsc;
* mysql> desc sm_submit;
* +----------+----------------------+------+-----+---------+----------------+
* | Field | Type | Null | Key | Default | Extra |
* +----------+----------------------+------+-----+---------+----------------+
* | smid | int(11) unsigned | | PRI | NULL | auto_increment |
* | OrgAddr | varchar(11) | YES | | NULL | |
* | DestAddr | varchar(11) | | PRI | | |
* | Time | datetime | YES | | NULL | |
* | USERDATA | mediumtext | YES | | NULL | |
* | stat | smallint(3) unsigned | YES | MUL | NULL | |
* +----------+----------------------+------+-----+---------+----------------+
*
*/
function gb2unicode($str) {
return iconv("gb2312", "UCS-2", $str);
}
function hex2str($hexstring) {
$str = '';
for($i=0; $i<strlen($hexstring); $i++){
$str .= sprintf("%02X",ord(substr($hexstring,$i,1)));
}
return $str;
}
function InvertNumbers($msisdn) {
$len = strlen($msisdn);
if ( 0 != fmod($len, 2) ) {
$msisdn .= "F";
$len = $len + 1;
}
for ($i=0; $i<$len; $i+=2) {
$t = $msisdn[$i];
$msisdn[$i] = $msisdn[$i+1];
$msisdn[$i+1] = $t;
}
return $msisdn;
}
/*---------------主程序开始---------------*/
set_time_limit(0);
$DEBUG = 0;
exec('mode COM1: baud=115200 data=8 stop=1 parity=n xon=on');
$fd = dio_open('COM1:', O_RDWR);
if(!$fd)
{
die("打开串口COM1失败");
}
$ff = dio_stat($fd);
print_r($ff);
echo "GSMAT is start on COM1\n";
// 短信中心号码
$smsc = "8613800538500";
// 短信最大长度70个汉字，Unicode表示需要280个字节
$max_len = 280;
$invert_smsc = InvertNumbers($smsc);
$sql = mysql_connect("localhost", "pangty", "pangty");
mysql_select_db("smsc",$sql);
$query = "select * from sm_submit where stat=0";
$result = mysql_query($query, $sql);
$len = 1; $s = chr(13);
while ( $row = mysql_fetch_object($result) ) {
$msisdn = "86". $row->DestAddr;
$sms_text = $row->USERDATA;
if ($DEBUG) echo date("Y-m-d H:i:s")." DEBUG $row->DestAddr\n";
if ($DEBUG) echo date("Y-m-d H:i:s")." DEBUG $sms_text\n";
$pdu_text = hex2str(gb2unicode($sms_text));
$invert_msisdn = InvertNumbers($msisdn);
// 拆分发送超过70汉字的短信(todo: 没有判断全英文的情况)
do {
$pdu_len = strlen($pdu_text);
if ( $pdu_len > $max_len ) {
$pdu_text1 = substr($pdu_text, 0, $max_len);
$pdu_text = substr($pdu_text, $max_len, $pdu_len - $max_len);
} else {
$pdu_text1 = $pdu_text;
$pdu_text = "";
}
$pdu_len1 = sprintf("%02X", strlen($pdu_text1)/2);
$pdu_text1 = $pdu_len1 . $pdu_text1;
$pdu_text1 = "11000D91" . $invert_msisdn ."000800" . $pdu_text1;
$atcmd = "AT+CMGS=" . sprintf("%d", strlen($pdu_text1)/2) . chr(13);
$l = strlen($atcmd);
$ll = @dio_write($fd,$atcmd);
while ($l != $ll) {
sleep(10);
$ll = @dio_write($fd,$atcmd);
}
if ($DEBUG) echo date("Y-m-d H:i:s")." DEBUG $atcmd\n";
do {
$data = dio_read($fd, $len);
echo $data;
} while ( $data != $s );
sleep(1);
$pdu_text1 = "0891" . $invert_smsc . $pdu_text1 . chr(26).chr(13);
$l = strlen($pdu_text1);
$ll = @dio_write($fd,$pdu_text1);
while ($l != $ll) {
sleep(10);
$ll = @dio_write($fd,$pdu_text1);
}
if ($DEBUG) echo date("Y-m-d H:i:s")." DEBUG $pdu_text1\n";
do {
$data = dio_read($fd, $len);
echo $data;
} while ( $data != $s );
sleep(7);
} while ( $pdu_text != "" );
mysql_query("update sm_submit set stat=1 where smid=$row->smid", $sql);
}
mysql_close($sql);
dio_close($fd);
?> [/color]
[ 本帖最后由 pangty 于 2006-7-31 17:58 编辑 ]
jlspzxs 回复于：2006-07-31 17:50:10
好东西,顶以下
lyhiving 回复于：2006-08-08 13:20:47
学习
sumbo 回复于：2006-09-02 15:41:09
GSMAT is start on COM4 AT+CMGS=29 > 089131080001500011000D91683142713279F30008000E0074006500730074003F003F003F
给出这样一句，但是收不到信息啊，怎么回事
sumbo 回复于：2006-09-02 15:41:50
短信中心号码改成本地的了，通讯速率是9600
水若寒 回复于：2006-09-24 22:53:07
PHP5.10以后好像不再内置这个扩展了。
水若寒 回复于：2006-09-24 23:52:11
请问楼主，怎样自动把MODEM收到的信息存到数据里呢？
你这里只提供了发送的例子，接收的应该如何写呢？
rardge 回复于：2006-09-25 00:00:45
关键是得到相应的指令集了。
支持一下！
水若寒 回复于：2006-09-26 00:31:38
不知道为什么，我的程序怎样也读不手机的返回信息：
手机 西门子3508i，连接COM1
程序
<?php
exec('mode COM1: baud=19200 data=8 stop=1 parity=n xon=off');
$fd = dio_open('COM1:', O_RDWR);
if(!$fd)
{
die("Error when open COM1");
}else echo "HQB232 SERVER is listenning on COM1\n";
$ff = dio_stat($fd);
print_r($ff);
$cmd = "AT".chr(13);
echo $cmd;
$write = dio_write($fd,$cmd);
echo $write."\n";
sleep(3);
$data = dio_read($fd);
if ($data) {
echo $data;
}else {
echo "error";
}
dio_close($fd);
返回的结果如下：
HQB232 SERVER is listenning on COM1
Array
(
[device] => 3
[inode] => 0
[mode] => 8192
[nlink] => 1
[uid] => 0
[gid] => 0
[device_type] => 3
[size] => 0
[atime] => 0
[mtime] => 0
[ctime] => 0
)
AT
3
error
这说明串口已经成功打开，也已经写进去了数据，但是为什么就读不出来呢？按理如果正常的话，dio_read()应该返回OK才对啊！请楼主上来看看。谢谢
[ 本帖最后由 水若寒 于 2006-9-26 00:33 编辑 ]
hjmsolar 回复于：2006-09-26 08:10:48
收了，回去试试！
水若寒 回复于：2006-09-26 16:27:26
我用超级终端可以的。不知道是不是参数设置有问题。
水若寒 回复于：2006-09-26 17:32:42
我又试了一下，这次这写进去一条锁键盘的指令，但手机没有操作成功。
可能是连写都写不进去，但为什么dio_write()函数不返回错误，而是返回了字进去的字节数呢？
<?php
exec('mode COM1: baud=19200 data=8 stop=1 parity=n xon=off');
$fd = dio_open('COM1:', O_RDWR);
$cmd = "AT^SLCK=\"CS\",1".chr(13);
//不知道这里的AT指令要不要经过编码呢？
$e = dio_write($fd,$cmd);
sleep(2);
echo $e;//执行后返回15
dio_close($fd);
?>
水若寒 回复于：2006-09-26 18:08:02
是不是写进去的内容都要经过二进制编码再写啊？
水若寒 回复于：2006-09-27 10:13:20
昨晚睡觉的时候想到了一点，原来真的是只打开了串口，但并没有成功连接到手机。
通过如下代码：可以得到串口状态信息（串口上并未连接手机）：
<?PHP
exec('mode COM1: baud=19200 data=8 stop=1 parity=n xon=on');
$fd = dio_open('COM1:', O_RDWR);
if(!$fd)
{
die("打开串口COM1失败");
}
$ff = dio_stat($fd);
print_r($ff);
?>
//执行结果如下：
D:\AppServ\php5>php -f d:\appserv\www\dio.php
<pre>HQB232 SERVER is listenning on COM1
Array
(
[device] => 3
[inode] => 0
[mode] => 8192
[nlink] => 1
[uid] => 0
[gid] => 0
[device_type] => 3
[size] => 0
[atime] => 0
[mtime] => 0
[ctime] => 0
)
D:\AppServ\php5>mode com1:
设备状态 COM1:
------------
波特率: 19200
奇偶校验: None
数据位: 8
停止位: 1
超时: OFF
XON/XOFF: OFF
CTS 握手: OFF
DSR 握手: OFF
DSR 敏感度: OFF
DTR 电路: ON
RTS 电路: ON
D:\AppServ\php5>
水若寒 回复于：2006-09-28 18:02:30
以下是三次不同连接COM1口的测试结果：
第一次，用数据线将COM1口与手机相连：
C:\php>php -f c:\php\dio.php
Array
(
[device] => 3
[inode] => 0
[mode] => 8192
[nlink] => 1
[uid] => 0
[gid] => 0
[device_type] => 3
[size] => 0
[atime] => 0
[mtime] => 0
[ctime] => 0
)
GSMAT is start on COM1
3
^C
第二次，把手机从数据线的一端拨下：
C:\php>php -f c:\php\dio.php
Array
(
[device] => 3
[inode] => 0
[mode] => 8192
[nlink] => 1
[uid] => 0
[gid] => 0
[device_type] => 3
[size] => 0
[atime] => 0
[mtime] => 0
[ctime] => 0
)
GSMAT is start on COM1
Warning: dio_write(): cannot write data to file descriptor 3, No space left on d
evice in c:\php\dio.php on line 18
-1
����������������?�?���???�@?
每三次，把数据线在COM1口上拨下：
C:\php>php -f c:\php\dio.php
Array
(
[device] => 3
[inode] => 0
[mode] => 8192
[nlink] => 1
[uid] => 0
[gid] => 0
[device_type] => 3
[size] => 0
[atime] => 0
[mtime] => 0
[ctime] => 0
)
GSMAT is start on COM1
3
^C
C:\php>
结果发现，每一次与第三次得到相同的结果，写入后得到写入的字节长度，但一直不能读取返回结果。
而第二次，数据线一端连接COM口，而另一端不连接手机，会有如下提示：
写入时：
Warning: dio_write(): cannot write data to file descriptor 3, No space left on d
evice in c:\php\dio.php on line 18
-1
读取后：
����������������?�?���???�@?
请各位帮忙看看啊。
水若寒 回复于：2006-09-29 14:36:01
Note that dio_read on Windows (other platforms unknown) will not timeout if there is no data to read. There is no way to specify a timeout or do a non-blocking read on Windows.
希望有人改进一下。
L0ading 回复于：2006-09-30 18:53:54
我靠，是胖头鱼耶~
还认得我不
chlinux 回复于：2006-10-01 20:43:50
顶一下
wondershow 回复于：2006-10-03 00:51:31
小声的问一下，com连到手机的线是什么样子的，买手机的时候送嘛？我的是nokia1111
zhdoor 回复于：2006-11-02 14:53:31
不行。根本就不行，不知道作者是怎么搞的？
反正我写个简单的AT命令，dio_read就根本read不出来。。
我怀疑这个DLL有局限性或者问题。。。。
liqxy 回复于：2007-01-31 16:14:12
超过70个汉子后，这样分拆后，在收到短信的时候可以组合成一个吗？
dulao5 回复于：2007-01-31 20:58:14
多年以前用vc写过，现在早就忘光了。
和胖头鱼大哥有缘啊，昨天还和他一起短信聊天，今天由于工作需要要用他的脚本了。
结果因为波特率的问题，dio_write出错说fd是坏的文件描述符（bad file descriptor）。
波特率啊波特率，不同的设备一定要尝试不同的波特率，否则就会有这个错误。以前也遇到过这个错误，但是没长记性，又被它耍了:D
|
