frmsplash.frm

为方便一些朋友开发GSM通讯,特提供一套西门子AT指令,有详细说明.

VERSION 5.00
Begin VB.Form FrmSplash 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   3090
   ClientLeft      =   15
   ClientTop       =   15
   ClientWidth     =   5490
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "FrmSplash.frx":0000
   ScaleHeight     =   3090
   ScaleWidth      =   5490
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer tmrTimer 
      Interval        =   2000
      Left            =   0
      Top             =   360
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "http://www.mndsoft.com"
      Height          =   375
      Left            =   60
      TabIndex        =   0
      Top             =   2760
      Width           =   2955
   End
End
Attribute VB_Name = "FrmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/05/21
'描  述：AT指令测试系统
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit

'--> AVACO - ACCESS SIEMENS GSM CELLPHONE WITH AT+COMMAND.
'--> version 1.00
'--> Version Language : English
'--> By Agus Ramadhani
'--> avaco software
'--> http://avaco-software.tripod.com
'--> [e-mail]
'--> 2002-2003
'--> Don't forget to Vote :)

Private Sub Form_Click()
    Unload Me
    Load FrmMain
    FrmMain.Show
End Sub

Private Sub tmrTimer_Timer()
    tmrTimer.Enabled = False
    Unload Me
    Load FrmMain
    FrmMain.Show
End Sub