📄 通信.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1
Caption = "SMS环境监测"
ClientHeight = 5355
ClientLeft = 60
ClientTop = 450
ClientWidth = 7560
LinkTopic = "Form1"
ScaleHeight = 5355
ScaleWidth = 7560
StartUpPosition = 3 'Windows Default
Begin ComctlLib.StatusBar Status
Align = 2 'Align Bottom
Height = 645
Left = 0
TabIndex = 4
Top = 4710
Width = 7560
_ExtentX = 13335
_ExtentY = 1138
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 5
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Text = "发送状态："
TextSave = "发送状态："
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Text = "接收状态："
TextSave = "接收状态："
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSCommLib.MSComm MSComm1
Left = 6960
Top = 360
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
RTSEnable = -1 'True
End
Begin VB.Frame Frame2
Caption = "详细信息"
Height = 4695
Left = 2640
TabIndex = 1
Top = 120
Width = 4935
Begin VB.CommandButton Command1
Caption = "退 出"
Height = 495
Left = 2760
TabIndex = 25
Top = 3960
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "查看图象"
Height = 495
Left = 360
TabIndex = 24
Top = 3960
Width = 1455
End
Begin VB.CommandButton Save
Caption = "保存"
Height = 375
Left = 1200
TabIndex = 23
Top = 3480
Width = 975
End
Begin VB.TextBox MsgIndex
Height = 285
Left = 4080
TabIndex = 21
Top = 1440
Width = 495
End
Begin VB.CommandButton cmdClearReceived
Caption = "清空"
Height = 375
Left = 2400
TabIndex = 20
Top = 3480
Width = 975
End
Begin VB.CommandButton cmdRead
Caption = "接收"
Height = 375
Left = 3720
TabIndex = 19
Top = 3480
Width = 975
End
Begin VB.CommandButton Send
BackColor = &H80000009&
Caption = "发送"
Height = 375
Left = 120
MaskColor = &H80000009&
TabIndex = 18
Top = 3480
Width = 975
End
Begin VB.TextBox txtReceived
Height = 1575
Left = 2400
TabIndex = 17
Top = 1800
Width = 2415
End
Begin VB.TextBox MobileTel
Height = 375
Left = 1560
TabIndex = 7
Top = 840
Width = 2655
End
Begin VB.TextBox sms_center
Height = 375
Left = 1560
Locked = -1 'True
TabIndex = 6
Text = "13800270500"
Top = 240
Width = 2655
End
Begin VB.TextBox SendMsg
Height = 1575
Left = 120
TabIndex = 8
Top = 1800
Width = 2055
End
Begin VB.Label Label5
Caption = "接收短信索引号"
Height = 255
Left = 2400
TabIndex = 22
Top = 1440
Width = 1455
End
Begin VB.Label Label4
Caption = "发送内容：（可输入70字）"
Height = 375
Left = 120
TabIndex = 5
Top = 1440
Width = 2175
End
Begin VB.Label Label3
Caption = "接收手机号："
Height = 375
Left = 240
TabIndex = 3
Top = 840
Width = 1095
End
Begin VB.Label Label1
Caption = "短信中心(&N)："
Height = 375
Left = 240
TabIndex = 2
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "端口连接"
Height = 4695
Left = 120
TabIndex = 0
Top = 120
Width = 2415
Begin VB.CommandButton test
Caption = "测试"
Height = 375
Left = 1680
TabIndex = 16
Top = 3480
Width = 615
End
Begin VB.ComboBox test_string
Height = 315
ItemData = "通信.frx":0000
Left = 120
List = "通信.frx":0010
TabIndex = 15
Text = "AT"
Top = 3480
Width = 1455
End
Begin VB.TextBox test_received
Height = 1575
Left = 120
ScrollBars = 2 'Vertical
TabIndex = 14
Top = 1800
Width = 2175
End
Begin VB.CommandButton cmdSwitchPort
BackColor = &H8000000A&
Caption = "打开"
Height = 375
Left = 1560
TabIndex = 13
Top = 1320
Width = 735
End
Begin VB.ComboBox cmbBaud
Height = 315
ItemData = "通信.frx":0039
Left = 960
List = "通信.frx":0046
TabIndex = 12
Text = "9600"
Top = 840
Width = 1335
End
Begin VB.ComboBox CmbPortName
Height = 315
ItemData = "通信.frx":005D
Left = 960
List = "通信.frx":0073
TabIndex = 10
Text = "com1"
Top = 360
Width = 1335
End
Begin VB.Label Label7
Caption = "波特率："
Height = 255
Left = 120
TabIndex = 11
Top = 840
Width = 735
End
Begin VB.Label Label6
Caption = "串口名："
Height = 375
Left = 120
TabIndex = 9
Top = 360
Width = 735
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim SendSuccessCount As Integer
Dim SendFailedCount As Integer
Dim ReceiveCount As Integer
Dim WorkFlag As Boolean
Dim ReceiveData As String
Dim SendSuccess As Integer '-1等待；0失败；1成功
Dim ReceiveSuccess As Integer '-1等待；0失败；1成功
Dim SMSCAddress As String
Dim ReplyTel As String
Dim ReplyTime As String
Dim SMSText As String
Private Sub CmbPortName_Change() '设置串口号
End Sub
Private Sub cmdSwitchPort_Click() '打开串口
On Error GoTo ErrorPort
Dim strVerify As String
If cmdSwitchPort.Caption = "打开" Then
With MSComm1
.CommPort = CmbPortName.ListIndex + 1
.RThreshold = 160
.SThreshold = 0
.Handshaking = comNone
.Settings = cmbBaud.text & ",N,8,1"
.PortOpen = True
End With
cmdSwitchPort.Caption = "关闭"
MsgBox "打开串口成功！"
Else
MSComm1.PortOpen = False
cmdSwitchPort.Caption = "打开"
End If
If MSComm1.PortOpen Then
MSComm1.RThreshold = 1
'上边两行语句作为联接时初始化用的命令
End If
WorkFlag = True
SendSuccessCount = 0
SendFailedCount = 0
ReceiveCount = 0
ReceiveData = ""
SendSuccess = 0
ReceiveSuccess = 0
Exit Sub
ErrorPort:
MsgBox "Error:" & err & "." & err.Description
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub test_Click() '测试指令发送情况
Dim x As String
Dim Str As String
x = test_string.text
MSComm1.Output = x & Chr(13)
PubDelay (200)
Str = MSComm1.Input
If Str <> "" Then
test_received.text = Str
Else: MsgBox "接收指令失败"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -