form1.frm

通过串口与手机模块收发短信。已经用sim100测试过

VERSION 5.00
Begin VB.Form Frm_AccSend 
   Caption         =   "Form1"
   ClientHeight    =   4275
   ClientLeft      =   3120
   ClientTop       =   2760
   ClientWidth     =   5640
   LinkTopic       =   "Form1"
   ScaleHeight     =   4275
   ScaleWidth      =   5640
   Begin VB.ComboBox Combo1 
      Height          =   300
      ItemData        =   "Form1.frx":0000
      Left            =   480
      List            =   "Form1.frx":000D
      TabIndex        =   3
      Text            =   "HEX"
      Top             =   3600
      Width           =   1095
   End
   Begin VB.CommandButton Cmd_Send 
      Caption         =   "发送"
      Height          =   375
      Left            =   4320
      TabIndex        =   2
      Top             =   3600
      Width           =   975
   End
   Begin VB.TextBox Text2 
      Height          =   975
      Left            =   360
      TabIndex        =   1
      Top             =   2400
      Width           =   4935
   End
   Begin VB.TextBox Text1 
      Height          =   2055
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   4935
   End
End
Attribute VB_Name = "Frm_AccSend"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Send_Click()
Dim UcsCode As String
    Text1 = Text1 & Text2 & vbCrLf
    
     Select Case Combo1
     
       Case "HEX"
          UcsCode = HStrJudge(Text2.Text) & Chr(26)
          SendAccess = "GsmPacket"
          Text2 = ""
          Call GsmMessage(UcsCode, "05")
       
       Case "UCS2"   '中文
          UcsCode = DUcs2Code(Text2.Text) & Chr(26)
          SendAccess = "GsmPacket"
          Text2 = ""
          Call GsmMessage(UcsCode, "08")
          
       Case "7-bit"
          UcsCode = Delspace(D7byCode(Text2.Text)) & Chr(26)
          SendAccess = "GsmPacket"
          Text2 = ""
          Call GsmMessage(UcsCode, "00")
          
     End Select
End Sub