📄 main.frm
字号:
Begin VB.TextBox CallingNumTxt
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 9360
TabIndex = 12
Text = "13807090102"
Top = 450
Width = 2055
End
Begin VB.TextBox SMSContentTxt
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1440
MultiLine = -1 'True
TabIndex = 11
Text = "main.frx":0000
Top = 960
Width = 9975
End
Begin VB.TextBox SMSDefaultNumTxt
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 5520
TabIndex = 3
Text = "13807090102"
Top = 450
Width = 2055
End
Begin VB.TextBox SMSCenterNumTxt
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1680
TabIndex = 2
Text = "+8613800791500"
Top = 450
Width = 2055
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "指定用户:"
Height = 240
Left = 8160
TabIndex = 13
Top = 480
Width = 1035
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "发送内容:"
Height = 240
Left = 240
TabIndex = 10
Top = 1080
Width = 1035
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "缺省用户:"
Height = 240
Left = 4320
TabIndex = 5
Top = 480
Width = 1035
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "短信息中心:"
Height = 240
Left = 240
TabIndex = 4
Top = 480
Width = 1275
End
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 0
Top = 6300
Width = 9480
_ExtentX = 16722
_ExtentY = 873
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 5530
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
AutoSize = 1
Object.Width = 5530
Text = "江西小太阳电子有限公司"
TextSave = "江西小太阳电子有限公司"
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Alignment = 1
TextSave = "22:13"
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
TextSave = "2000-12-19"
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSCommLib.MSComm SerialCom
Left = 240
Top = 120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.Label TitleLab
Alignment = 2 'Center
Caption = "GSM-GPS全球汽车定位系统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 675
Left = 1920
TabIndex = 9
Top = 120
Width = 8535
End
End
Attribute VB_Name = "MainFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CSH_Click()
ResponseTxt.Text = ""
End Sub
Private Sub ExitKey_Click()
SerialCom.PortOpen = False
End
End Sub
Private Sub Form_Load()
IMEI = 0
Call SerialInit
StatusBar1.Panels.Item(1).Text = "No Error Message"
End Sub
Private Sub ReadCenter_Click()
TxBuffer(0) = &H7E
TxBuffer(1) = &H2
TxBuffer(2) = &H1B
TxBuffer(3) = &H1D
TxBuffer(4) = &H7E
TxBufferIndex = 5
Call SendCommand
End Sub
Private Sub ReadIMEI_Click()
TxBuffer(0) = &H7E
TxBuffer(1) = &H2
TxBuffer(2) = &H1A
TxBuffer(3) = &H1C
TxBuffer(4) = &H7E
TxBufferIndex = 5
Call SendCommand
End Sub
Private Sub SendSMSCmd_Click()
Dim SendCmd As String
Dim cmdDataLen, Counter As Long
Dim chkSum As Integer
If Len(CallingNumTxt.Text) < 3 Or IsNumeric(CallingNumTxt.Text) = False Then
MsgBox "指定用户号码有误"
Else
If Len(SMSContentTxt.Text) = 0 Then
MsgBox "请先输入短信息内容"
Else
cmdDataLen = 3 + Len(SMSContentTxt.Text) + Len(CallingNumTxt.Text)
TxBuffer(0) = &H7E
TxBuffer(2) = &H5
SendCmd = Chr$(Len(CallingNumTxt.Text)) + CallingNumTxt.Text + SMSContentTxt.Text
coun = 3
allLen = cmdDataLen
For Counter = 1 To cmdDataLen - 2
Temp = Asc(Mid$(SendCmd, Counter, 1))
If Temp > 0 Then
TxBuffer(coun) = Temp
Else
TxBuffer(coun) = (65536 + Temp) \ 256
TxBuffer(coun + 1) = (65536 + Temp) Mod 256
coun = coun + 1
allLen = allLen + 1
End If
coun = coun + 1
Next Counter
coun = coun + 1
SendCmd = Chr$(&H7E) + Chr$(allLen) + Chr$(&H5) + Chr$(Len(CallingNumTxt.Text))
SendCmd = SendCmd + CallingNumTxt.Text + SMSContentTxt.Text
chkSum = allLen
For Counter = 2 To allLen
chkSum = chkSum + TxBuffer(Counter)
If chkSum > &HFF Then
chkSum = chkSum And &HFF
End If
Next Counter
TxBuffer(1) = allLen
TxBuffer(allLen + 1) = chkSum
TxBuffer(allLen + 2) = &H7E
TxBufferIndex = allLen + 3
Call SendCommand
End If
End If
End Sub
Private Sub SetSMSCenterNumCmd_Click()
Dim SendCmd As String
Dim cmdDataLen As Long
Dim chkSum As Integer
If Len(SMSCenterNumTxt.Text) = 0 Then
MsgBox "请先输入短消息中心号码"
Else
If IsNumeric(SMSCenterNumTxt.Text) Then
cmdDataLen = Len(SMSCenterNumTxt.Text) + 2
TxBuffer(0) = &H7E
TxBuffer(1) = cmdDataLen
TxBuffer(2) = &H1
For Counter = 1 To cmdDataLen - 2
TxBuffer(Counter + 2) = Asc(Mid$(SMSCenterNumTxt.Text, Counter, 1))
Next Counter
SendCmd = Chr$(&H7E) + Chr$(cmdDataLen) + Chr$(&H1) + SMSCenterNumTxt.Text
chkSum = 0
For Counter = 1 To cmdDataLen
chkSum = chkSum + Asc(Mid$(SendCmd, Counter + 1, 1))
If chkSum > &HFF Then
chkSum = chkSum And &HFF
End If
Next Counter
TxBuffer(cmdDataLen + 1) = chkSum
TxBuffer(cmdDataLen + 2) = &H7E
TxBufferIndex = cmdDataLen + 3
Call SendCommand
Else
MsgBox "短消息中心号码有误"
End If
End If
End Sub
Private Sub SerialCom_OnComm()
Select Case SerialCom.CommEvent
' Events
Case comEvReceive ' Received RThreshold # of chars.
Call TRstoreByte
Case comEvSend ' There are SThreshold number of characters in the transmit buffer.
Case comEvEOF ' An EOF charater was found in the input stream
Case comEvCD ' Change in the CD line.
Case comEvCTS ' Change in the CTS line.
Case comEvDSR ' Change in the DSR line.
Case comEvRing ' Change in the Ring Indicator.
' Errors
Case comEventBreak ' A Break was received.
Case comEventCDTO ' CD (RLSD) Timeout.
Case comEventCTSTO ' CTS Timeout.
Case comEventDSRTO ' DSR Timeout.
Case comEventFrame ' Framing Error
Case comEventOverrun ' Data Lost.
Case comEventRxOver 'Receive buffer overflow.
Case comEventRxParity ' Parity Error.
Case comEventTxFull ' Transmit buffer full.
Case comEventDCB ' Unexpected error retrieving DCB]
End Select
End Sub
Private Sub StopClkIndCmd_Click()
TxBuffer(0) = &H7E
TxBuffer(1) = &H2
TxBuffer(2) = &HE
TxBuffer(3) = &H10
TxBuffer(4) = &H7E
TxBufferIndex = 5
Call SendCommand
End Sub
Private Sub StopRSSIndCmd_Click()
TxBuffer(0) = &H7E
TxBuffer(1) = &H2
TxBuffer(2) = &HC
TxBuffer(3) = &HE
TxBuffer(4) = &H7E
TxBufferIndex = 5
Call SendCommand
End Sub
Private Sub Timer1_Timer()
If IMEI > 3 Then
StatusBar1.Panels.Item(1).Text = "手机工作不正常"
End If
IMEI = IMEI + 1
TxBuffer(0) = &H7E
TxBuffer(1) = &H2
TxBuffer(2) = &H1A
TxBuffer(3) = &H1C
TxBuffer(4) = &H7E
TxBufferIndex = 5
Call SendCommand
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -