用TC35做短信猫
日期：2009-7-13 22:54:05 来源：本站整理
点击： 作者：
点击： 作者：
点击【 大 中 小 】放大字体.
Private Sub ReSet() 初始化模块
Dim n As Integer
Timer1.Enabled = False
Link = False
Sim = False
s = MSComm1.Input
MSComm1.Output = "AT+CIMI" & Chr(13) 检查是否插卡
Sleep 200
s = MSComm1.Input
If Right(s, 4) = "OK" & Chr(13) & Chr(10) Then Sim = True
If Not Sim Then
Label3.Caption = "未插卡!"
Exit Sub
End If
MSComm1.Output = "AT+CSQ" & Chr(13) 读信号强度
Sleep 150
s = MSComm1.Input
n = CByte(Mid(s, 9, 2))
ProgressBar1.Value = n
MSComm1.Output = "AT+CLIP=1" & Chr(13) 来电显示
Sleep 100
s = MSComm1.Input
MSComm1.Output = "AT+CSCA?" & Chr(13) 读取短信中心地址
Sleep 200
s = MSComm1.Input
Adress_SMS = Mid(s, 12, 13)
Adress_SMS = CTP(Adress_SMS)
MSComm1.Output = "AT+CMGF=0" & Chr(13) 设置短信为PDU模式
Sleep 100
s = MSComm1.Input
MSComm1.Output = "AT+CNMI=1,1" & Chr(13) 设置短信接收方式
Sleep 100
s = MSComm1.Input
Timer1.Enabled = True 开始定时查询接收数据
End Sub
Dim NumB As String
Dim Send As String
Dim All As String
Dim n As Integer
Dim m As Integer
Command1.Enabled = False
NumB = Text2.Text 手机号码
Send = Text1.Text
m = 2 * Len(Text1.Text) 每个字占2个字节
n = m + 15
MSComm1.Output = "AT+CMGS=" & n & Chr(13) 发送短信长度
Sleep 100
s = MSComm1.Input
08--地址长度（91683108200505F0的字节数）
91--地址类型（小灵通时为81）
短信中心号码,前加86后补F，相邻奇偶位交换
11--消息类型
00--消息参考值
0D--目标地址数字个数
91--地址类型（小灵通时为81）
手机号码,前加86后补F，相邻奇偶位交换
00--上层协议标识，表示GSM，点对点
08--编码方式，Unicode方式
FF--有效期，最长
发送数据长度，16进制，2位，不足2位前面补0。
发送数据内容，PDU码
Chr(26),结束
MSComm1.Output = All 发送短信内容
用CP2102转串口再和GSM模块TC35连接，就可构成短信猫。电路图如下：
WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
WWW_PLCJS@_COM%－PLC－技.术_网
WWW_PLC※JS_COM－PmLC－技.术_网
上位机用VB编写，界面如下
WWW_PLCJS_COM－PLC－技.术_网
WWW_PLCJS@_COM%－PLC－技.术_网
VB源码
WWW_PL※CJS_COM－PLC－技.术_网
WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
Private Sub ReSet() 初始化模块
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Dim n As Integer
W1WW_P4LCJS_COM－PLC－技.术_网
Timer1.Enabled = False
W1WW_P4LCJS_COM－PLC－技.术_网
Link = False
WW.W_PLCJS_COM－PLC－技.术_网
Sim = False
P.L.C.技.术.网——可编程控制器技术门户
s = MSComm1.Input
WWW_PLCJS@_COM%－PLC－技.术_网
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
MSComm1.Output = "AT+CIMI" & Chr(13) 检查是否插卡
WWW.PLCJS.COM——可编程控制器技术门户
Sleep 200
WWcW_PLCJS_COM－PLC－技.术_网
s = MSComm1.Input
plcjs.技.术_网
If Right(s, 4) = "OK" & Chr(13) & Chr(10) Then Sim = True
WWcW_PLCJS_COM－PLC－技.术_网
If Not Sim Then
WWW.PLCJS.COM——可编程控制器技术门户
Label3.Caption = "未插卡!"
WW.W_PLCJS_COM－PLC－技.术_网
Exit Sub
WWW_PLCJS_COM－PLC－技.术_网
End If
WWW_PLCJS@_COM%－PLC－技.术_网
W1WW_P4LCJS_COM－PLC－技.术_网
MSComm1.Output = "AT+CSQ" & Chr(13) 读信号强度
WWW_PLC※JS_COM－PmLC－技.术_网
Sleep 150
WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
s = MSComm1.Input
WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
n = CByte(Mid(s, 9, 2))
plcjs.技.术_网
ProgressBar1.Value = n
W1WW_P4LCJS_COM－PLC－技.术_网
P.L.C.技.术.网——可编程控制器技术门户
MSComm1.Output = "AT+CLIP=1" & Chr(13) 来电显示
plcjs.技.术_网
Sleep 100
P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
s = MSComm1.Input
WW.W_PLCJS_COM－PLC－技.术_网
WW.W_PLC※JS_C,OM－PL,C－技.术_网
MSComm1.Output = "AT+CSCA?" & Chr(13) 读取短信中心地址
WWW_P※LCJS_COM－PLC－)技.术_网
Sleep 200
P.L.C.技.术.网——可编程控制器技术门户
s = MSComm1.Input
P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
Adress_SMS = Mid(s, 12, 13)
WWW.PLCJS.COM——可编程控制器技术门户
Adress_SMS = CTP(Adress_SMS)
WWW_PL※CJS_COM－PLC－技.术_网
WW.W_PLC※JS_C,OM－PL,C－技.术_网
MSComm1.Output = "AT+CMGF=0" & Chr(13) 设置短信为PDU模式
WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
Sleep 100
WWW.PLCJS.COM——可编程控制器技术门户
s = MSComm1.Input
WWW_PLCJS@_COM%－PLC－技.术_网
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
MSComm1.Output = "AT+CNMI=1,1" & Chr(13) 设置短信接收方式
WW.W_PLC※JS_C,OM－PL,C－技.术_网
Sleep 100
WWW.PLCJS.COM——可编程控制器技术门户
s = MSComm1.Input
P.L.C.技.术.网——可编程控制器技术门户
Timer1.Enabled = True 开始定时查询接收数据
WWW_P※LCJS_COM－PLC－)技.术_网
End Sub
WWW_PLCJS_COM－PLC－技.术_网
WWW_P※LCJS_CO※M－PLC－技－.术_网
Private Sub Command1_Click() 发送短信命令
WWW_PLCJS_COM－PLC－技.术_网
Dim NumB As String
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Dim Send As String
WWW_PLCJS@_COM%－PLC－技.术_网
Dim All As String
WWW_PL※CJS_COM－PLC－技.术_网
Dim n As Integer
WWW_PLCJS@_COM%－PLC－技.术_网
Dim m As Integer
——可——编——程——控－制－器－技——术——门——户
Timer1.Enabled = False 发送命令后，延时接收
WWW_PL※CJS_COM－PLC－技.术_网
Command1.Enabled = False
WWW_PLC※JS_COM－PmLC－技.术_网
NumB = Text2.Text 手机号码
WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
Send = Text1.Text
WWW_PLCJS_COM－PLC－技.术_网
m = 2 * Len(Text1.Text) 每个字占2个字节
WWW_P※LCJS_CO※M－PLC－技－.术_网
n = m + 15
WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
MSComm1.Output = "AT+CMGS=" & n & Chr(13) 发送短信长度
——可——编——程——控－制－器－技——术——门——户
Sleep 100
WWW_PL※CJS_COM－PLC－技.术_网
s = MSComm1.Input
WW.W_PLC※JS_C,OM－PL,C－技.术_网
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
08--地址长度（91683108200505F0的字节数）
WWW_P※LCJS_COM－PLC－)技.术_网
91--地址类型（小灵通时为81）
WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
短信中心号码,前加86后补F，相邻奇偶位交换
P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
11--消息类型
WWW_P※LCJS_COM－PLC－)技.术_网
00--消息参考值
WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
0D--目标地址数字个数
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
91--地址类型（小灵通时为81）
——可——编——程——控－制－器－技——术——门——户
手机号码,前加86后补F，相邻奇偶位交换
WWW_PLCJS@_COM%－PLC－技.术_网
00--上层协议标识，表示GSM，点对点
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
08--编码方式，Unicode方式
WWW_P※LCJS_COM－PLC－)技.术_网
FF--有效期，最长
WW.W_PLC※JS_C,OM－PL,C－技.术_网
发送数据长度，16进制，2位，不足2位前面补0。
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
发送数据内容，PDU码
WW.W_PLCJS_COM－PLC－技.术_网
Chr(26),结束
WW.W_PLCJS_COM－PLC－技.术_网
All = "0891" & Adress_SMS & "11000D91" & CTP(NumB) & "0008FF" & IIf(m > 15, Hex(m), "0" & Hex(m)) & CNU(Send) & Chr(26) 发送短信
WWW_P※LCJS_CO※M－PLC－技－.术_网
MSComm1.Output = All 发送短信内容
本新闻共2页,当前在第1页1 2
WWcW_PLCJS_COM－PLC－技.术_网
上一篇: LPC938 AD转换问题下一篇: 静、动态LED控制卡对LED显示系统的影响
评论内容
载入中...
载入中...
P
L
C
技
术
网
|
可
编
程
控
制
器
技
术
门
户
|
十
万
P
L
C
工
程
师
的
共
同
选
择
！
L
C
技
术
网
|
可
编
程
控
制
器
技
术
门
户
|
十
万
P
L
C
工
程
师
的
共
同
选
择
！
·最新招聘信息
·最新求职信息
·推荐产品
·推荐厂商
·栏目热门排行
·站内热门排行