基于VB实现短信息收发功能(8)

If biai = 4 Then

Me.MSComm1.Output = av '判断发送中文 End If

Me.MSComm1.Output = ac '发送FD Me.MSComm1.Output = ert

If ert(0) = 4 Then '判断目标码是否是4 Me.MSComm1.Output = adv

Me.MSComm1.Output = \电话号码 End If

If biai <> 4 Then Me.MSComm1.Output = bb_b Else

For a = 1 To Len(bb_b)

weq(0) = \Me.MSComm1.Output = weq a = a + 1 Next End If

Me.MSComm1.Output = vv End Sub

‘清除按钮

Private Sub Command2_Click() txtReceive.Text = \sendtext.Text = \End Sub

'''''''''''''''''''''''''''''''''''''' '窗体窗体的加载事件

'打开通信端口，通信端口的参数也可以在此指定之后 '再行打开通信端口

'''''''''''''''''''''''''''''''''''''' Private Sub Form_Load() MSComm1.PortOpen = True ac(0) = &HFD

31

vv(0) = &HD vv(1) = &HA av(0) = &H8 adv(0) = &HD ert(0) = &H4 End Sub

'''''''''''''''''''''''''''''''''''''' '定时器的Timer事件程序

'此事件会在每一个Interval属性值的间隔内被调用一次 '程序检查输入缓冲区中是否有数据，若有数据 '则将此数据读取后，指定给文本框的Text属性 '''''''''''''''''''''''''''''''''''''' Private Sub Timer1_Timer() Dim i As Long

inbyte = Me.MSComm1.Input

For i = LBound(inbyte) To UBound(inbyte) rty = Len(Hex(inbyte(i))) If rty = 1 Then

ruc = ruc & \Else

ruc = ruc & Hex(inbyte(i)) End If Next i

rcu = InStr(ruc, \If rcu > 2 Then

read = Left(ruc, rcu - 1) Call cu

ruc = Right(ruc, Len(ruc) - rcu - 3) End If End Sub

Public Sub cu() g = Len(read)

GC = InStr(read, \处理中文

32

gd = InStr(read, \处理英文 If gd > 2 Then

gg = Left(read, gd - 1) For v = 1 To Len(read)

a = a & Chr(\v = v + 1 Next gg = a

ElseIf GC > 2 Then

gg = Left(read, GC - 1 + 4) For v = 1 To Len(gg)

a = a & Chr(\v = v + 1 Next

read = Right(read, Len(read) - GC - 3) gg = a

For a = 1 To Len(read)

cc = cc & ChrW(\中文信息 a = a + 3 Next Else

For op = 1 To Len(read)

gg = gg & Chr(\op = op + 1 Next End If

Me.txtReceive.Text = Me.txtReceive.Text & gg & cc & Chr(13) & Chr(10) End Sub

'''''''''''''''''''''''''''''''''''''''' '中文处理成Unicode码 '英文不处理

''''''''''''''''''''''''''''''''''''''''''

Public Sub aa()

33

bb_b = \

cc = Me.sendtext.Text b = Len(cc) For bb = 1 To b b_b = Mid(cc, bb, 1) b_bb = AscW(b_b)

If b_bb > 0 And b_bb < 128 Then bbb = \Else

If biai <> 4 Then biai = 4 End If

bbb = Hex(AscW(b_b)) End If

bb_b = bb_b & bbb Next

If biai <> 4 Then bb_b = Me.sendtext.Text End If End Sub

5.5 实现系统功能的调试

对于VB的调试，此软件提供了两种方式：逐语句、逐过程。在调试时可以提供断点，来逐步检查一段一段的程序，这对庞大的系统程序非常有用，当有错误时光标将移动到错误行以方便调试，就这样直到全部程序无错误。调试成功后，可以点击运行按钮，来运行全部的程序，以实现其功能。

5.6 最终达到的结果

本次设计成功的利用了VB来开发了一套实现短信息收发功能的信息系统，能够通过PC机接收和发送短信。达到了预期的结果。

功能实现演示如下:

打开短信息收发界面如图所示。

34

发送信息界面如下图：

接收信息如下图：

35

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库基于VB实现短信息收发功能(8)在线全文阅读。