📄 form1.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{AEECEB18-1629-4D9E-AB2C-C11093920FC6}#1.0#0"; "SuperSMS.ocx"
Begin VB.Form q
Caption = "Saro-短信测试工具3.0 www.sangrong.com 0592-5932711 5932722"
ClientHeight = 6060
ClientLeft = 165
ClientTop = 555
ClientWidth = 9405
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6060
ScaleWidth = 9405
StartUpPosition = 3 'Windows Default
Begin SMS.SuperSMS SuperSMS1
Left = 4800
Top = 2760
_ExtentX = 900
_ExtentY = 900
SMS_SLen = "8"
End
Begin VB.ComboBox Combo2
Height = 315
Left = 6840
TabIndex = 30
Text = "COM1"
Top = 480
Width = 975
End
Begin VB.TextBox Text9
Height = 285
Left = 720
TabIndex = 28
Text = "Text9"
Top = 3720
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command12
Caption = "查看日志"
Height = 375
Left = 5880
TabIndex = 27
Top = 960
Width = 855
End
Begin VB.CheckBox Check1
Caption = "不经过SIM卡直接接收"
Height = 255
Left = 2040
TabIndex = 26
Top = 1080
Width = 2055
End
Begin VB.ComboBox Combo1
Height = 315
Left = 8160
TabIndex = 25
Text = "Combo1"
Top = 480
Width = 1215
End
Begin VB.CommandButton Command11
Caption = "短信位置"
Height = 375
Left = 3000
TabIndex = 23
Top = 5520
Width = 1095
End
Begin VB.CommandButton Command10
Caption = "查看已发送"
Height = 375
Left = 6960
TabIndex = 22
Top = 5640
Width = 1095
End
Begin VB.CommandButton Command9
Caption = "接收已读短信"
Height = 375
Left = 5640
TabIndex = 21
Top = 5640
Width = 1215
End
Begin VB.TextBox Text8
Height = 1575
Left = 6360
TabIndex = 20
Top = 1920
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command8
Caption = "关闭串口"
Height = 375
Left = 6840
TabIndex = 19
Top = 960
Width = 855
End
Begin VB.CommandButton Command7
Caption = "删除此条："
Height = 375
Left = 120
TabIndex = 17
Top = 5520
Width = 1095
End
Begin VB.TextBox Text7
Height = 375
Left = 1320
TabIndex = 16
Top = 5520
Width = 375
End
Begin VB.CommandButton Command6
Caption = "所有短信"
Height = 375
Left = 8160
TabIndex = 15
Top = 5640
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "清 空"
Height = 375
Left = 7800
TabIndex = 14
Top = 960
Width = 735
End
Begin VB.TextBox Text6
Height = 285
Left = 3120
TabIndex = 13
Top = 2880
Visible = 0 'False
Width = 855
End
Begin VB.TextBox Text5
Height = 975
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Top = 2280
Visible = 0 'False
Width = 3975
End
Begin VB.CommandButton Command4
Caption = "接收未读短信"
Height = 375
Left = 4320
TabIndex = 11
Top = 5640
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "退 出"
Height = 375
Left = 8640
TabIndex = 10
Top = 960
Width = 735
End
Begin VB.TextBox Text4
Height = 4095
Left = 4320
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 8
Text = "Form1.frx":030A
Top = 1440
Width = 5055
End
Begin MSCommLib.MSComm MSComm1
Left = 1680
Top = 2280
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InBufferSize = 30240
BaudRate = 57600
InputMode = 1
End
Begin VB.CommandButton Command2
Caption = "PDU发送"
Height = 375
Left = 3000
TabIndex = 7
Top = 5040
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "test发送"
Height = 375
Left = 120
TabIndex = 6
Top = 5040
Width = 1095
End
Begin VB.TextBox Text3
Height = 3495
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Top = 1440
Width = 3975
End
Begin VB.TextBox Text2
Height = 375
Left = 120
TabIndex = 3
Text = "8613850039334"
Top = 480
Width = 3975
End
Begin VB.TextBox Text1
Height = 375
Left = 4320
TabIndex = 1
Text = "+8613800592500"
Top = 480
Width = 2175
End
Begin VB.Label Label7
Caption = "选择串口："
Height = 255
Left = 6840
TabIndex = 29
Top = 120
Width = 975
End
Begin VB.Line Line1
X1 = 0
X2 = 9360
Y1 = 900
Y2 = 900
End
Begin VB.Label Label6
Caption = "选择波特率："
Height = 255
Left = 8160
TabIndex = 24
Top = 120
Width = 1095
End
Begin VB.Label Label5
Caption = "（删除前请查 看短信位置）"
Height = 375
Left = 1680
TabIndex = 18
Top = 5520
Width = 1215
End
Begin VB.Label Label4
Caption = "接收内容："
Height = 255
Left = 4320
TabIndex = 9
Top = 1080
Width = 1095
End
Begin VB.Label Label3
Caption = "发送内容："
Height = 255
Left = 120
TabIndex = 4
Top = 1080
Width = 1215
End
Begin VB.Label Label2
Caption = "被叫手机号码（若群发，请用"",""分隔开）："
Height = 255
Left = 120
TabIndex = 2
Top = 120
Width = 4095
End
Begin VB.Label Label1
Caption = "短信中心号码(此项可选)："
Height = 255
Left = 4320
TabIndex = 0
Top = 120
Width = 2175
End
End
Attribute VB_Name = "q"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public inData As String '串口中断时读入的字符串
Dim P As String, D As String, T As String, TXT As String, E As Integer
Private Sub Check1_Click()
Dim ttstring As String
CloseOnComm
If Check1.Value Then
Check1.Enabled = False
MSComm1.Output = "at+csms=1" & Chr(13) & Chr(10)
Sleep (600)
MSComm1.Output = "at+cnmi=2,2,0,0,1" & Chr(13) & Chr(10)
Sleep (600)
MSComm1.Output = "at&w" & Chr(13) & Chr(10)
Check1.Enabled = True
Sleep (500)
ttstring = MSComm1.Input
Else
Check1.Enabled = False
MSComm1.Output = "at+cnmi=1,1,0,0,1" & Chr(13) & Chr(10)
Sleep (600)
Check1.Enabled = True
ttstring = MSComm1.Input
End If
OpenOnComm
End Sub
Private Sub Combo1_Click()
If MSComm1.PortOpen = 1 Then
MSComm1.PortOpen = 0
MSComm1.Settings = Combo1.Text + ",n,8,1"
'If Combo1.Text = "1200" Then MSComm1.Settings = "1200,,,"
MSComm1.PortOpen = 1
Else
MSComm1.Settings = Combo1.Text + ",n,8,1"
'If Combo1.Text = "1200" Then MSComm1.Settings = "1200,,,"
End If
End Sub
Private Sub combo1_dropdown()
Combo1.Clear
Combo1.AddItem "1200", 0
Combo1.AddItem "2400", 1
Combo1.AddItem "4800", 2
Combo1.AddItem "9600", 3
Combo1.AddItem "19200", 4
Combo1.AddItem "38400", 5
Combo1.AddItem "57600", 6
Combo1.AddItem "115200", 7
End Sub
Private Sub combo2_click()
'On Error Resume Next
On Error GoTo errorhander
If MSComm1.PortOpen Then MSComm1.PortOpen = False
Command8.Caption = "打开串口"
Dim SComm As Integer
SComm = Val(Mid(Combo2.Text, 4, 1))
MSComm1.CommPort = SComm
MSComm1.PortOpen = True
If MSComm1.PortOpen Then Command8.Caption = "关闭串口"
Exit Sub
errorhander:
MsgBox "当前串口被占用或其他错误，请检查！", vbOKOnly, "串口?"
Resume Next
End Sub
Private Sub Command10_Click()
CloseOnComm
Dim TxString As String
Dim i As Integer
MSComm1.Output = "at+cmgf=0" & vbCrLf
Sleep (600)
MSComm1.Output = "at+cmgl=3" & Chr(13) & Chr(10)
Sleep (1600)
TxString = MSComm1.Input
Dim atext() As String
'Text8.SelText = TxString
atext = Split(TxString, Chr(13) & Chr(10))
'Text8.Text = atext(4)
If Len(atext(4)) < 15 Then
Text4.SelText = "无已发送信息，请检查！" & vbCrLf
Else
For i = 2 To (UBound(atext) - 1) / 2 - 1
Sleep (100)
Text8.Text = atext(i * 2)
SuperSMS1.ConPDU Text8.Text, P, D, T, TXT, 1, E
'Text4.Text = smsalltext
'获得解析后的数据
Text4.SelText = "电话号码：" & P & vbCrLf _
& "日期：" & D & vbCrLf _
& "时间：" & T & vbCrLf _
& "内容：" & TXT & vbCrLf _
& "错误代码：" & E & vbCrLf
'Text4.SelText = TxString
Next i
End If
OpenOnComm
End Sub
Private Sub Command11_Click()
CloseOnComm
Dim TxString As String
MSComm1.Output = "at+cmgf=0" & vbCrLf
Sleep (600)
MSComm1.Output = "at+cmgl=4" & Chr(13) & Chr(10)
Sleep (600)
TxString = MSComm1.Input
Text4.SelText = TxString
OpenOnComm
End Sub
Private Sub Command2_Click()
On Local Error Resume Next
Command1.Enabled = False
Command2.Enabled = False
Command7.Enabled = False
Command11.Enabled = False
Command4.Enabled = False
Command9.Enabled = False
Command6.Enabled = False
Command10.Enabled = False
CloseOnComm
Dim SInput As String
Dim a As String
Dim atext() As String
Dim i As Integer
atext = Split(Text2.Text, ",")
'Dim s
If Text1.Text <> "" Then
MSComm1.Output = "at+csca=""" & Text1.Text & """" & Chr(13) & Chr(10)
Sleep (800)
SInput = MSComm1.Input
If InStr(SInput, "OK") = 0 Then
MsgBox "短信中心设置失败，请重新设置！", vbOKOnly, "发送结果"
OpenOnComm
Exit Sub
End If
End If
'Delay 1
MSComm1.Output = "at+cmgf=0" & Chr(13) & Chr(10)
Sleep (800)
'If MSComm1.Input = Chr(13) & Chr(13) & Chr(10) & Chr(79) & Chr(75) & Chr(13) & Chr(10) Then
a = MSComm1.Input
If InStr(a, "OK") <> 0 Then
For i = 0 To UBound(atext)
Text9.Text = atext(i)
Conv
MSComm1.Output = "at+cmgs=" & Text6.Text & Chr(13) & Chr(10)
Delay 3
MSComm1.Output = Text5.Text & Chr(26)
Delay 4
Dim SInputT
SInputT = MSComm1.Input
If InStr(SInputT, "+CMGS") <> 0 Then
Text4.SelText = "发送给" & atext(i) & "成功！" & vbCrLf
Else
Text4.SelText = "发送给" & atext(i) & "失败，请检查！" & vbCrLf
End If
Sleep (100)
Next i
Text4.SelText = "发送完毕！" & vbCrLf
Else
MsgBox "短信模式配置错误，请重新配置！", vbOKOnly, "发送结果"
End If
OpenOnComm
Command1.Enabled = True
Command2.Enabled = True
Command7.Enabled = True
Command11.Enabled = True
Command4.Enabled = True
Command9.Enabled = True
Command6.Enabled = True
Command10.Enabled = True
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
'Dim TxInput(1 To 65534) As Byte
CloseOnComm
Dim TxString As String
Dim i As Integer
MSComm1.Output = "at+cmgf=0" & vbCrLf
Sleep (600)
MSComm1.Output = "at+cmgl=0" & Chr(13) & Chr(10)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -