关于如何通过手机与电脑联接发短信问题！只有200块，全给了！ (200分)

前提是我的手机绝对正常与电脑联接，手机型号是西门子3508，用超级终端或西门子手机软件能对手机内信息进行操作。
我现在想通过Windows的Mscomm控件操作手机发短信，在VB中用如下代码（Delphi中类似）
MSComm1.CommPort = 2 ' Com1端口
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = Not MSComm1.PortOpen ' 打开端口
MSComm1.Output = "AT" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGF=0" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGS=" & "15" & Chr$(13) & Chr(10)
MSComm1.Output = "089100683108200305F031000C813189832824F50000010161" & Chr$(26)

上面的15是短信长度，内容为只发送“1”，其它包括服务中心号码及对方号码，当然是PDU格式，但执行后没任何反应，请问何故？
帮帮忙吧，我只有200块，全部给了，不然我要被炒了！

对串口操作时不妨加个延时
MSComm1.Output = "AT+CMGS=" & "15" & Chr$(13) & Chr(10)
sleep(20);//再每个相邻的OUTPUT语句中间加上这个,你不妨试试
MSComm1.Output = "089100683108200305F031000C813189832824F50000010161" & Chr$(26)
没玩过手机,搞不到数据线,知道不贵,但不好找

no

好象csdn上有一篇介绍的文章。

有意思，没搞过，能不能介绍一下需要哪些硬件，我也整一个

mscomm1.output:='';
mscomm1.DTREnable:=true;
mscomm1.RTSEnable:=true;
MSComm1.InputLen := 0 ;
MSComm1.Outbuffercount:=0 ;
mscomm1.InputLen:=0;
mscomm1.Output:='at+cmgs='+inttostr(k)+chr(13)+chr(10);//K为长度
sleep(500);
mscomm1.output:='';
mscomm1.DTREnable:=true;
mscomm1.RTSEnable:=true;
MSComm1.InputLen := 0 ;
MSComm1.Outbuffercount:=0 ;
mscomm1.InputLen:=0;
mscomm1.Output:=str1+chr(26)+chr(13)+chr(10); //str1为待发的短消息数据帧

曾经这样测试过，发送成功

你的编码好像有问题。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=657532