frmmian.frm

来自「这个软件可以通过短信猫收发短信。可以用做短信平台。功能十分强大！」· FRM 代码 · 共 49 行

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form FrmMain 
   Caption         =   "远程监控"
   ClientHeight    =   8505
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9750
   LinkTopic       =   "Form1"
   ScaleHeight     =   8505
   ScaleWidth      =   9750
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Left            =   3600
      Top             =   0
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   2760
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
   If MSComm1.PortOpen = False Then
        MSComm1.CommPort = PortItem        '设置端口号
        MSComm1.PortOpen = True      '打开串口
        MSComm1.Output = "AT+CNMI=1,1,0,0,1" + Chr(13) + Chr(10)   '设置新消息的指示方式，以回车和换行符显示
        Timer1.Enabled = True    '触发计数器
   End If
End Sub


Private Sub Timer1_Timer()
Dim buf As String
If MSComm1.InBufferCount > 0 Then
     MSComm1.InputLen = 0
     buf = MSComm1.Input  '  接收缓冲区的数据
     Timer1.Enabled = False        '计数器不可用
End Sub