📄 frmmain.frm
字号:
Y1 = 7620
Y2 = 7620
End
Begin VB.Line Line7
X1 = 9855
X2 = 9855
Y1 = 0
Y2 = 7800
End
Begin VB.Line Line4
X1 = 0
X2 = 9960
Y1 = 0
Y2 = 0
End
Begin VB.Line Line2
X1 = 0
X2 = 0
Y1 = 7800
Y2 = 0
End
Begin VB.Label LblPClose
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "关闭连接"
Height = 255
Left = 5160
MouseIcon = "FrmMain.frx":17E82
MousePointer = 99 'Custom
TabIndex = 25
Top = 4590
Visible = 0 'False
Width = 1215
End
Begin VB.Label LblTLT
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "信息载入时间: 0 毫秒"
ForeColor = &H00000000&
Height = 255
Left = 7440
TabIndex = 23
Top = 4310
Width = 2295
End
Begin VB.Label LblDesc2
BackStyle = 0 'Transparent
Caption = "描述"
Height = 255
Left = 6000
TabIndex = 21
Top = 4310
Width = 1095
End
Begin VB.Label LblATC
BackStyle = 0 'Transparent
Caption = "AT指令集"
Height = 255
Left = 4440
TabIndex = 20
Top = 4310
Width = 1215
End
Begin VB.Label LblSA
BackStyle = 0 'Transparent
Caption = "状态"
Height = 255
Left = 2880
TabIndex = 19
Top = 4310
Width = 1215
End
Begin VB.Shape ShpDesc
BackColor = &H0000C000&
BackStyle = 1 'Opaque
BorderColor = &H0000C000&
Height = 150
Left = 5760
Top = 4340
Width = 135
End
Begin VB.Shape ShpATC
BackColor = &H000000FF&
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
FillColor = &H000000FF&
Height = 150
Left = 4200
Top = 4340
Width = 135
End
Begin VB.Shape ShpSA
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
BorderColor = &H00FF0000&
FillColor = &H00FF0000&
Height = 150
Left = 2640
Top = 4340
Width = 135
End
Begin VB.Label LblInfoPonsel
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "AVACO"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 120
TabIndex = 16
Top = 7200
Width = 855
End
Begin VB.Shape Shape15
BackColor = &H00996666&
BackStyle = 1 'Opaque
BorderColor = &H00996666&
Height = 300
Left = 120
Shape = 4 'Rounded Rectangle
Top = 7200
Width = 2385
End
Begin VB.Label LblSend
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "执行"
Height = 255
Left = 8760
MouseIcon = "FrmMain.frx":1818C
MousePointer = 99 'Custom
TabIndex = 9
Top = 4620
Width = 975
End
Begin VB.Label LblPOpen
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "建立连接 "
Height = 255
Left = 5160
MouseIcon = "FrmMain.frx":18496
MousePointer = 99 'Custom
TabIndex = 8
Top = 4605
Width = 1215
End
Begin VB.Shape ShpSend
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
BorderColor = &H00000000&
Height = 300
Left = 8760
Shape = 4 'Rounded Rectangle
Top = 4560
Width = 1005
End
Begin VB.Shape ShpPO
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
BorderColor = &H00000000&
Height = 300
Left = 5160
Shape = 4 'Rounded Rectangle
Top = 4560
Width = 1215
End
End
Attribute VB_Name = "FrmMain"
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：mnd@mndsoft.com
'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
'--> avaco@9cy.Com
'--> 2002-2003
'--> Don't forget to Vote :)
Dim nATC1, nATC2, nATC3, nATC4, nATC5, nATC6, nATC7, nATC8, nATC9, nATC10, nATC11, nATC12, nATC13, nATC14 As Node
Dim sFile As String
Dim bCancelFlag As Boolean
Dim DoEv
Dim StringCommand$
Dim EventMessage$
Dim ErrorMessage$
Dim iLoadComPort As Integer
Dim iGetComPort As Integer
Dim iGetDevice As Integer
Dim i As Long
Private Sub CmbATC_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call LblSend_Click
End If
End Sub
Private Sub Form_Load()
Call Load_Com_port
Call Nodes
TVSelectPonsel.Refresh
End Sub
Private Sub Nodes()
TVSelectPonsel.Nodes.Clear
Set nATC1 = TVSelectPonsel.Nodes.Add(, , "nATC1", "支持AT指令的型号...", 1)
Set nATC2 = TVSelectPonsel.Nodes.Add(, , "nATC2", "C45系列", 2)
Set nATC3 = TVSelectPonsel.Nodes.Add(, , "nATC3", "C35i-A系列", 2)
Set nATC4 = TVSelectPonsel.Nodes.Add(, , "nATC4", "C35i-B系列", 2)
Set nATC5 = TVSelectPonsel.Nodes.Add(, , "nATC5", "G400m系列", 2)
Set nATC6 = TVSelectPonsel.Nodes.Add(, , "nATC6", "M35i系列", 2)
Set nATC7 = TVSelectPonsel.Nodes.Add(, , "nATC7", "ME45系列", 2)
Set nATC8 = TVSelectPonsel.Nodes.Add(, , "nATC8", "S35i-A系列", 2)
Set nATC9 = TVSelectPonsel.Nodes.Add(, , "nATC9", "S35i-B系列", 2)
Set nATC10 = TVSelectPonsel.Nodes.Add(, , "nATC10", "S25系列", 2)
Set nATC11 = TVSelectPonsel.Nodes.Add(, , "nATC11", "S45系列", 2)
Set nATC12 = TVSelectPonsel.Nodes.Add(, , "nATC12", "SL45-A系列", 2)
Set nATC13 = TVSelectPonsel.Nodes.Add(, , "nATC13", "M55C系列", 2)
Set nATC14 = TVSelectPonsel.Nodes.Add(, , "nATC14", "其他", 2)
Set nATC14 = TVSelectPonsel.Nodes.Add("nATC14", tvwChild, , "说明", 2)
End Sub
Private Sub RtbListATC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If RtbListATC.SelLength > 0 Then
FindText$ = RtbListATC.SelText
Else
FindText$ = ""
End If
End Sub
Private Sub TVSelectPonsel_NodeClick(ByVal Node As MSComctlLib.Node)
On Error GoTo ErrHandler:
RtbListATC.Visible = True
Picture2.Visible = False
Picture3.Visible = False
Select Case TVSelectPonsel.SelectedItem.Text
Case "C45系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\C45.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : C45"
LblInfoPonsel.Caption = "C45"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\Picture\c45.gif")
Case "C35i-A系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\C35i-A.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : C35i-A"
LblInfoPonsel.Caption = "C35i-A"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\Picture\c35i.gif")
Case "C35i-B系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\C35i-B.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : C35i-B"
LblInfoPonsel.Caption = "C35i-B"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\Picture\c35i.gif")
Case "M35i系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\M35i.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : M35i"
LblInfoPonsel.Caption = "M35i"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\Picture\M35.gif")
Case "S35i-A系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\S35i-A.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : S35i"
LblInfoPonsel.Caption = "S35i-A"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\Picture\s35i.gif")
Case "S35i-B系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\S35i-B.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : S35i-B"
LblInfoPonsel.Caption = "S35i-B"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\Picture\s35i.gif")
Case "S25系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\S25.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : S25"
LblInfoPonsel.Caption = "S25"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\Picture\s25.gif")
Case "S45"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\S45.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : S45"
LblInfoPonsel.Caption = "S45"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\picture\S45.gif")
Case "SL45-A系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\SL45-A.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
LblATCommand.Caption = "AT+Command For : SL45-A"
LblInfoPonsel.Caption = "SL45-A"
ImgLoadSShot.Picture = LoadPicture(App.Path & "\Picture\sl45.gif")
Case "ME45系列"
RtbListATC.Text = ""
sFile = App.Path + "\AT+Command\StatusAT.avc"
RtbTemp.LoadFile sFile
Colorize RtbListATC, RtbTemp.Text
RtbTemp.Text = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -