frm_cmdset.frm

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

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Begin VB.Form Frm_CmdSet 
   Caption         =   "Form1"
   ClientHeight    =   5805
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8235
   LinkTopic       =   "Form1"
   ScaleHeight     =   5805
   ScaleWidth      =   8235
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   495
      Index           =   0
      Left            =   720
      TabIndex        =   57
      Top             =   480
      Width           =   7335
      Begin VB.CheckBox Chk_Asc 
         Caption         =   "Check1"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   61
         Top             =   120
         Width           =   255
      End
      Begin VB.TextBox Txt_Cmd_Name 
         Height          =   375
         Index           =   0
         Left            =   480
         TabIndex        =   60
         Top             =   120
         Width           =   975
      End
      Begin VB.TextBox Txt_Cmd_Con 
         Height          =   375
         Index           =   0
         Left            =   1560
         TabIndex        =   59
         Top             =   120
         Width           =   4935
      End
      Begin VB.CommandButton Cmd_Set 
         Caption         =   "添  加"
         Height          =   375
         Index           =   0
         Left            =   6480
         TabIndex        =   58
         Top             =   120
         Width           =   855
      End
   End
   Begin VB.Frame Frame1 
      Height          =   495
      Index           =   1
      Left            =   720
      TabIndex        =   51
      Top             =   960
      Width           =   7335
      Begin VB.CommandButton Cmd_Set 
         Caption         =   "添  加"
         Height          =   375
         Index           =   1
         Left            =   6480
         TabIndex        =   55
         Top             =   120
         Width           =   855
      End
      Begin VB.TextBox Txt_Cmd_Con 
         Height          =   375
         Index           =   1
         Left            =   1560
         TabIndex        =   54
         Top             =   120
         Width           =   4935
      End
      Begin VB.TextBox Txt_Cmd_Name 
         Height          =   375
         Index           =   1
         Left            =   480
         TabIndex        =   53
         Top             =   120
         Width           =   975
      End
      Begin VB.CheckBox Chk_Asc 
         Caption         =   "Check1"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   52
         Top             =   120
         Width           =   255
      End
   End
   Begin VB.Frame Frame1 
      Height          =   495
      Index           =   2
      Left            =   720
      TabIndex        =   46
      Top             =   1440
      Width           =   7335
      Begin VB.CommandButton Cmd_Set 
         Caption         =   "添  加"
         Height          =   375
         Index           =   2
         Left            =   6480
         TabIndex        =   50
         Top             =   120
         Width           =   855
      End
      Begin VB.TextBox Txt_Cmd_Con 
         Height          =   375
         Index           =   2
         Left            =   1560
         TabIndex        =   49
         Top             =   120
         Width           =   4935
      End
      Begin VB.TextBox Txt_Cmd_Name 
         Height          =   375
         Index           =   2
         Left            =   480
         TabIndex        =   48
         Top             =   120
         Width           =   975
      End
      Begin VB.CheckBox Chk_Asc 
         Caption         =   "Check1"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   47
         Top             =   120
         Width           =   255
      End
   End
   Begin VB.Frame Frame1 
      Height          =   495
      Index           =   3
      Left            =   720
      TabIndex        =   41
      Top             =   1920
      Width           =   7335
      Begin VB.CommandButton Cmd_Set 
         Caption         =   "添  加"
         Height          =   375
         Index           =   3
         Left            =   6480
         TabIndex        =   45
         Top             =   120
         Width           =   855
      End
      Begin VB.TextBox Txt_Cmd_Con 
         Height          =   375
         Index           =   3
         Left            =   1560
         TabIndex        =   44
         Top             =   120
         Width           =   4935
      End
      Begin VB.TextBox Txt_Cmd_Name 
         Height          =   375
         Index           =   3
         Left            =   480
         TabIndex        =   43
         Top             =   120
         Width           =   975
      End
      Begin VB.CheckBox Chk_Asc 
         Caption         =   "Check1"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   42
         Top             =   120
         Width           =   255
      End
   End
   Begin VB.Frame Frame1 
      Height          =   495
      Index           =   4
      Left            =   720
      TabIndex        =   36
      Top             =   2400
      Width           =   7335
      Begin VB.CommandButton Cmd_Set 
         Caption         =   "添  加"
         Height          =   375
         Index           =   4
         Left            =   6480
         TabIndex        =   40
         Top             =   120
         Width           =   855
      End
      Begin VB.TextBox Txt_Cmd_Con 
         Height          =   375
         Index           =   4
         Left            =   1560
         TabIndex        =   39
         Top             =   120
         Width           =   4935
      End
      Begin VB.TextBox Txt_Cmd_Name 
         Height          =   375
         Index           =   4
         Left            =   480
         TabIndex        =   38
         Top             =   120
         Width           =   975
      End
      Begin VB.CheckBox Chk_Asc 
         Caption         =   "Check1"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   37
         Top             =   120
         Width           =   255
      End
   End
   Begin VB.Frame Frame1 
      Height          =   495
      Index           =   5
      Left            =   720
      TabIndex        =   31
      Top             =   2880
      Width           =   7335
      Begin VB.CommandButton Cmd_Set 
         Caption         =   "添  加"
         Height          =   375
         Index           =   5
         Left            =   6480
         TabIndex        =   35
         Top             =   120
         Width           =   855
      End
      Begin VB.TextBox Txt_Cmd_Con 
         Height          =   375
         Index           =   5
         Left            =   1560
         TabIndex        =   34
         Top             =   120
         Width           =   4935
      End
      Begin VB.TextBox Txt_Cmd_Name 
         Height          =   375
         Index           =   5
         Left            =   480
         TabIndex        =   33
         Top             =   120
         Width           =   975
      End
      Begin VB.CheckBox Chk_Asc 
         Caption         =   "Check1"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   32
         Top             =   120
         Width           =   255
      End
   End
   Begin VB.Frame Frame1 
      Height          =   495
      Index           =   6
      Left            =   720
      TabIndex        =   26
      Top             =   3360
      Width           =   7335
      Begin VB.CommandButton Cmd_Set 
         Caption         =   "添  加"
         Height          =   375
         Index           =   6
         Left            =   6480
         TabIndex        =   30
         Top             =   120
         Width           =   855
      End
      Begin VB.TextBox Txt_Cmd_Con 
         Height          =   375
         Index           =   6
         Left            =   1560
         TabIndex        =   29
         Top             =   120
         Width           =   4935
      End
      Begin VB.TextBox Txt_Cmd_Name 
         Height          =   375
         Index           =   6
         Left            =   480
         TabIndex        =   28
         Top             =   120
         Width           =   975
      End
      Begin VB.CheckBox Chk_Asc 
         Caption         =   "Check1"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   27
         Top             =   120
         Width           =   255
      End
   End
   Begin VB.Frame Frame1 
      Height          =   495
      Index           =   7
      Left            =   720
      TabIndex        =   21
      Top             =   3840
      Width           =   7335
      Begin VB.CommandButton Cmd_Set 
         Caption         =   "添  加"
         Height          =   375
         Index           =   7
         Left            =   6480
         TabIndex        =   25
         Top             =   120