gsm.frm

自己做的

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "模拟SP短信"
   ClientHeight    =   3960
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9795
   Icon            =   "GSM.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3960
   ScaleWidth      =   9795
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame3 
      Caption         =   " 接受的短信"
      Height          =   3615
      Left            =   4560
      TabIndex        =   6
      Top             =   120
      Width           =   5055
      Begin MSComctlLib.ListView ListView1 
         Height          =   3135
         Left            =   120
         TabIndex        =   7
         Top             =   360
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   5530
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         Appearance      =   1
         NumItems        =   0
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "手机信息"
      Height          =   2655
      Left            =   120
      TabIndex        =   4
      Top             =   1080
      Width           =   4335
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000007&
         Height          =   2235
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   5
         Top             =   240
         Width           =   4155
      End
   End
   Begin VB.Frame Frame1 
      Height          =   855
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4335
      Begin VB.CommandButton cmdOpen 
         Caption         =   "连接"
         Height          =   375
         Left            =   360
         TabIndex        =   3
         Top             =   240
         Width           =   855
      End
      Begin VB.CommandButton cmdDis 
         Caption         =   "断开"
         Enabled         =   0   'False
         Height          =   375
         Left            =   1680
         TabIndex        =   2
         Top             =   240
         Width           =   855
      End
      Begin VB.CommandButton cmdsMs 
         Caption         =   "短信"
         Enabled         =   0   'False
         Height          =   375
         Left            =   3000
         TabIndex        =   1
         Top             =   240
         Width           =   855
      End
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   120
      Top             =   3240
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
      RThreshold      =   1
      RTSEnable       =   -1  'True
      SThreshold      =   1
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cmdDis_Click()
MSComm1.PortOpen = False
Me.cmdDis.Enabled = Not Me.cmdDis.Enabled
Me.cmdOpen.Enabled = Not Me.cmdOpen.Enabled
Me.cmdsMs.Enabled = Not Me.cmdsMs.Enabled
End Sub

Private Sub cmdOpen_Click()
If Not OpenDev(Me, Me.MSComm1) Then

MsgBox "打开设备失败"
End If

ShowInfo Me.MSComm1
End Sub

Private Sub cmdsMs_Click()
Call SendChinese(Me.MSComm1, "13982850009", note)
End Sub

Private Sub Form_Load()
InitList Me.ListView1
End Sub

Private Sub MSComm1_OnComm() '处理串口事件
 Select Case MSComm1.CommEvent
        ' 事件信息
        Case comEvReceive
         DoEvents
         GetDataMean Me.MSComm1, Me.Text1, Me.ListView1
           
        Case comEvSend
            
        Case comEvCTS
            'MsgBox "被检测的 CTS 改变"
        Case comEvDSR
            'MsgBox "被检测的 DSR 改变"
        Case comEvCD
            'MsgBox "被检测的 CD 改变"
        Case comEvRing
            'MsgBox "电话铃响起"
        Case comEvEOF
            'MsgBox "被检测的文件结尾"

        ' Error messages.
        Case comBreak
            ERMsg = "收到中断"
        Case comCDTO
            ERMsg = "运输检测超时"
        Case comCTSTO
            ERMsg = "CTS 超时"
        Case comDCB
            ERMsg = "检索 DCB 错误"
        Case comDSRTO
            ERMsg = "DSR 超时"
        Case comFrame
            ERMsg = "帧错误"
        Case comOverrun
            ERMsg = "超限错误"
        Case comRxOver
            ERMsg = "接收缓冲区溢出"
        Case comRxParity
            ERMsg = "奇偶校验错"
        Case comTxFull
            ERMsg = "传送缓冲区满"
        Case Else
            ERMsg = "未知的错误或事件"
    End Select

End Sub