📄 test.frm
字号:
Left = 2880
TabIndex = 11
Top = 360
Width = 3255
End
Begin VB.Label Label3
Caption = "参数值："
Height = 375
Left = 240
TabIndex = 9
Top = 480
Width = 855
End
End
Begin VB.Frame Frame1
Caption = "发信息"
Height = 2175
Left = 240
TabIndex = 0
Top = 1680
Width = 6255
Begin VB.CommandButton Command12
Caption = "发16进制数据"
Height = 375
Left = 4440
TabIndex = 39
Top = 240
Width = 1335
End
Begin VB.CheckBox Check_report
Caption = "发送报告"
Height = 255
Left = 120
TabIndex = 38
Top = 1800
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "发普通信息"
Height = 375
Left = 2760
TabIndex = 5
Top = 240
Width = 1335
End
Begin VB.TextBox Text_nz
Height = 855
Left = 1080
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Text = "test.frx":00BD
Top = 840
Width = 4815
End
Begin VB.TextBox Text_tomb
Height = 270
Left = 1080
TabIndex = 1
Text = "目标手机号码"
Top = 240
Width = 1455
End
Begin VB.Label Label16
AutoSize = -1 'True
ForeColor = &H00C00000&
Height = 180
Left = 1440
TabIndex = 34
Top = 1800
Width = 90
End
Begin VB.Label Label10
Height = 375
Left = 360
TabIndex = 23
Top = 1560
Width = 375
End
Begin VB.Label Label2
Height = 375
Left = 2880
TabIndex = 6
Top = 360
Width = 615
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "短信内容："
Height = 180
Index = 1
Left = 120
TabIndex = 3
Top = 960
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "手机号码："
Height = 180
Index = 0
Left = 120
TabIndex = 2
Top = 360
Width = 900
End
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "说明：请于测试前先手工清空和备份手机SIM卡中的“收到信息”"
Height = 180
Left = 960
TabIndex = 24
Top = 8400
Width = 5130
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Label16 = "正在发送信息"
aaa = Me.Smsgate1.Sendsms(Me.Text_nz, Me.Text_tomb, Me.Check_report)
If aaa = "y" Then Me.Label16 = "信息已发送！" Else Me.Label16 = aaa
End Sub
Private Sub Command10_Click()
MsgBox CStr(Me.Smsgate1.Link)
End Sub
Private Sub Command11_Click()
MsgBox Me.Smsgate1.M_ServiceNo
End Sub
Private Sub Command13_Click()
aa = CStr(InputBox("请输入电话号码："))
If aa = "" Then Exit Sub
STT = Timer
ATTT = Timer - STT
MsgBox Me.Smsgate1.CallPhone(CStr(aa), 100) & "-" & CStr(Timer - STT)
End Sub
Private Sub Command12_Click()
MsgBox Me.Smsgate1.SendAsc2(Me.Text_nz, Me.Text_tomb, Me.Check_report.Value)
End Sub
Private Sub Command14_Click()
MsgBox Me.Smsgate1.HangUpCall
End Sub
Private Sub Command15_Click()
MsgBox Me.Smsgate1.AnswerCall
End Sub
Private Sub Command16_Click()
Me.Text_nz = "本短信猫的产品号是：" + Me.Smsgate1.Get_ID3
End Sub
Private Sub Command2_Click()
aa = Me.Smsgate1.ReadMsg(Me.Combo_rewhy)
MsgBox aa
Me.Text_nz = aa
MsgBox "以上的为本次接收的所有短信内容，下面分解成每条（包括电话号码、内容以及收到时间）；至于详细的使用方法可参考本源程序"
messageall = Split(aa, Chr(1))
aak = 0
For Each onem In messageall
MsgBox onem
Next
'=======================详细的分解收到信息并存入数据库的源码 （举例） in
' aa = Me.Smsgate1.ReadMsg(1) ' 把本次收到的内容(已读信息)赋予变量aa
' messageall = Split(aa, Chr(1)) '对aa变量用chr(1)进行分割成每条
' aak = 0
' For Each onem In messageall '取出每条短息内容onem（包括电话，内容，时间）
' rs.addnew '在数据库中增加一新记录
' kkk = 0 '
' meVV = Split(onem, Chr(2)) '对每条短信内容用chr(2)进行分解为每个详细值，依次为“电话号码”、“内容”、“时间”
' For Each icc In meVV '分别取出电话，内容，时间
' kkk = kkk + 1
' If kkk = 1 Then rs("moble") = icc
' If kkk = 2 Then rs("msg") = icc
' If kkk = 3 Then rs("times") = icc
' Next
' rs.Update '保存记录
' Next
'=======================详细的分解收到信息的源码 end
End Sub
Private Sub Command22_Click(Index As Integer)
MsgBox Me.Smsgate1.ReadNB("rc")
End Sub
Private Sub Command3_Click()
aa = Me.Smsgate1.DelSms(Combo_del)
MsgBox aa
If aa = "y" Then
If Combo_del = 1 Then MsgBox "成功删除已读信息"
If Combo_del = 2 Then MsgBox "成功删除所有信息"
End If
End Sub
Private Sub Command3232_Click(Index As Integer)
MsgBox Me.Smsgate1.ReadNB("mc")
End Sub
Private Sub Command3232ff_Click(Index As Integer)
MsgBox Me.Smsgate1.M_ltd
End Sub
Private Sub Command4_Click()
Me.Smsgate1.CommPort = Combo_com
Me.Smsgate1.SmsService = Me.Text_serno
Me.Smsgate1.Settings = CStr(Me.Combo_rate) & ",n,8,1"
a = Me.Smsgate1.Connect(2)
If a = "y" Then MsgBox "成功连接，可以收发短信了！"
If a = "y" Then
Command4.Caption = Command4.Caption + "-[成功]"
Text1_usrno = Me.Smsgate1.M_imei
Else
MsgBox a
End If
End Sub
Private Sub Command5_Click()
MsgBox Me.Smsgate1.RevAuto
End Sub
Private Sub Command6_Click()
MsgBox Me.Smsgate1.RevAutoClose
End Sub
Private Sub Command8_Click()
MsgBox Me.Smsgate1.ClosePort
End Sub
Private Sub Command9_Click()
MsgBox Me.Smsgate1.M_model
End Sub
Private Sub Commandsssd_Click(Index As Integer)
MsgBox Me.Smsgate1.ReadNB("sm")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Me.Smsgate1.ClosePort
End Sub
Private Sub Smsgate1_OnCall(PhoneNo As Variant)
MsgBox "有电话来啦：" + PhoneNo
End Sub
Private Sub Smsgate1_OnRecvMsg()
MsgBox "有新信息啦！"
MsgBox Me.Smsgate1.NewMsg
End Sub
Private Sub Smsgate1_OnRevReport()
MsgBox Me.Smsgate1.NewReport
End Sub
Private Sub Smsgate1_OnStatusChange()
If Me.Smsgate1.Isbusy = False Then Me.Label14 = " 端口状态：空闲" Else Me.Label14 = " 端口状态：工作中"
End Sub
Private Sub Text_nz_Change()
Label10.Caption = Str(Len(Me.Text_nz))
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -