目      录

交换速率修改系统概述

系统功能及使用说明
 
总结

附件：部分源代码

一、交换速率修改系统概述

 此系统是为了方便监控班人员修改交换机用户端口速率而制作的简易速率修改器，可以起到提高工作效率的作用。界面化的操作方式更能使得新人快速上手。
 
 
二、系统功能及使用说明
 
（图一）
 
 
 
 此系统分为三个部分：
 
 
 第一部分为菜单栏
 
 
（图二）
 菜单栏暂时只开发了“退出系统”和“连接交换机”两项功能
 
 第二部分为显示栏
 
（图三）
 显示栏的主要作用是显示当前接连交换机的情况和程序在交换上所执行命令的情况。
 
 
 
 第三部分为功能栏
（图四）
 功能栏主要由交换机上最常用的命令按键组成。
 登陆交换机可以使用输入节点编码或使用IP登陆。
 使用编码登陆时，输入ADSL节点号和节点机编码后，点击连接，即可登陆交换机。其节点编号和节点机编码可在“getIP.ini”文件里按格式进行编辑。
 使用IP登陆时，只输入需要修改速率的交换机IP。点击“用IP连接”，输入用户名和密码，选择交换机型号。即可登陆交换机。
 登陆交换机后在系统的右侧的显示栏将显示登陆的情况。
 然后可以在功能栏上方的“框”“槽”“端口”为所需要修改速率的用户端口输入栏，按实际输入即可。
 修改速率的方式位于功能栏的下方，分为中兴设备和华为设备，输入速率模块编号后，点击修改按键即可修改端口速率。
 另外功能栏里还有“端口状态”、“线路质量”、“速率定义”（分华为和中兴）、“通过MAC查端口”等常用功能。
 在功能栏的最下方还可以根据需要输入其他命令，点击“send”键执行。
 
 
三、总结
 此系统在实际运用过程中确实起到了一定的帮助作用，尤其是对新手更是提供了方便，但也还有待改进。在今后的工作中将根据实际需要对其做近一步的改良和完善。
 
 

附件：部分源代码
 VERSION 1.0 CLASS
 BEGIN
   MultiUse = -1  'True
   Persistable = 0  'NotPersistable
   DataBindingBehavior = 0  'vbNone
   DataSourceBehavior  = 0  'vbNone
   MTSTransactionMode  = 0  'NotAnMTSObject
 END
 Attribute VB_Name = "cIniFile"
 Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = True
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
 '--------cIniFile.cls 代码----------------
 '这里定义了一个cIniFile类
 Option Explicit
 
 '// Private member that holds a reference to
 '// the path of our ini file
 Private strInI As String
 
 '// Win API Declares
 Private Declare Function WritePrivateProfileString _
   Lib "kernel32" Alias "WritePrivateProfileStringA" _
 (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, _
   ByVal lpString As Any, _
   ByVal lpFileName As String) As Long
 
 Private Declare Function GetPrivateProfileString _
   Lib "kernel32" Alias "GetPrivateProfileStringA" _
 (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, _
   ByVal lpDefault As String, _
   ByVal lpReturnedString As String, _
   ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
 
 Private Function MakePath(ByVal strDrv As String, _
   ByVal strDir As String) As String
 
 '// Makes an INI file: Guarantees a sub dir
 Do While Right$(strDrv, 1) = ""
    strDrv = Left$(strDrv, Len(strDrv) - 1)
 Loop
 
 Do While Left$(strDir, 1) = ""
    strDir = Mid$(strDir, 2)
 Loop
 
 '// Return the path
 MakePath = strDrv & "" & strDir
 End Function
 
 Public Sub CreateIni(strDrv As String, strDir As String)
 
 
 '// Make a new ini file
 strInI = MakePath(strDrv, strDir)
 End Sub
 
 Public Sub WriteFile(strSection As String, _
 strKey As String, _
 strValue As String)
 
 '// Write to strINI
 WritePrivateProfileString strSection, _
    strKey, strValue, strInI
 End Sub
 
 Public Function GetFile(strSection As String, _
   strKey As String) As String
 
   Dim strTmp As String
   Dim lngRet As String
 
   strTmp = String$(100, Chr(32))
   lngRet = GetPrivateProfileString(strSection, _
     strKey, "", strTmp, _
     Len(strTmp), strInI)
    
   GetFile = strTmp
 
 End Function
 
 Public Property Let INIFile(ByVal New_IniPath As String)
 
 '// Sets the new ini path
 strInI = New_IniPath
 
 End Property
 
 Public Property Get INIFile() As String
 
 '// Returns the current ini path
 INIFile = strInI
 
 End Property
 
 
 VERSION 5.00
 Begin VB.Form frmLogin
    BorderStyle     =   3  'Fixed Dialog
    Caption         =   "登录"
    ClientHeight    =   2565
    ClientLeft      =   2835
    ClientTop       =   3480
    ClientWidth     =   4590
    LinkTopic       =   "Form1"
    MaxButton       =   0   'False
    MinButton       =   0   'False
    ScaleHeight     =   1515.487
    ScaleMode       =   0  'User
    ScaleWidth      =   4309.762
    ShowInTaskbar   =   0   'False
    StartUpPosition =   2  '屏幕中心
    Begin VB.ComboBox Combo1
       Height          =   300
       Left            =   1320
       TabIndex        =   7
       Top             =   960
       Width           =   2295
    End
    Begin VB.TextBox txtUserName
       Height          =   345
       Left            =   1290
       TabIndex        =   1
       Top             =   135
       Width           =   2325
    End
    Begin VB.CommandButton cmdOK
       Caption         =   "确定"
       Default         =   -1  'True
       Height          =   390
       Left            =   750
       TabIndex        =   4
       Top             =   1740
       Width           =   1140
    End
    Begin VB.CommandButton cmdCancel
       Cancel          =   -1  'True
       Caption         =   "取消"
       Height          =   390
       Left            =   2355
       TabIndex        =   5
       Top             =   1740
       Width           =   1140
    End
    Begin VB.TextBox txtPassword
       Height          =   345
       IMEMode         =   3  'DISABLE
       Left            =   1290
       PasswordChar    =   "*"
       TabIndex        =   3
       Top             =   525
       Width           =   2325
    End
    Begin VB.Label Label1
       Caption         =   "交换机类型："
       Height          =   255
       Left            =   120
       TabIndex        =   6
       Top             =   960
       Width           =   1335
    End
    Begin VB.Label lblLabels
       Caption         =   "用户名称(&U):"
       Height          =   270
       Index           =   0
       Left            =   105
       TabIndex        =   0
       Top             =   150
       Width           =   1080
    End
    Begin VB.Label lblLabels
       Caption         =   "密码(&P):"
       Height          =   270
       Index           =   1
       Left            =   105
       TabIndex        =   2
       Top             =   540
       Width           =   1080
    End
 End
 Attribute VB_Name = "frmLogin"
 Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = False
 Option Explicit
 
 Public LoginSucceeded As Boolean
 
 Private Sub cmdCancel_Click()
     '设置全局变量为 false
     '不提示失败的登录
     LoginSucceeded = False
     Me.Hide
 End Sub
 
 Private Sub cmdOK_Click()
  UserName = txtUserName.Text
  PassWord = txtPassword.Text
 
  Unload Me
 
 End Sub
 
 
 Private Sub Combo1_Click()
 IpType = Combo1.ListIndex + 1
 End Sub
 
 Private Sub Form_Load()
 Combo1.AddItem "alcatel"
 Combo1.AddItem "中兴8220"
 Combo1.AddItem "中兴9220"
 Combo1.AddItem "华为5100"
 Combo1.AddItem "华为5300"
 
 End Sub
 
 
 VERSION 5.00
 Begin VB.Form frmTCPIP
    BorderStyle     =   3  'Fixed Dialog
    Caption         =   "TCPIP Settings"
    ClientHeight    =   1665
    ClientLeft      =   2580
    ClientTop       =   1800
    ClientWidth     =   3720
    Icon            =   "frmTCPIP.frx":0000
    LinkTopic       =   "Form1"
    MaxButton       =   0   'False
    MinButton       =   0   'False
    PaletteMode     =   1  'UseZOrder
    ScaleHeight     =   1665
    ScaleWidth      =   3720
    ShowInTaskbar   =   0   'False
    StartUpPosition =   1  '所有者中心
    Begin VB.CheckBox Check1
       Caption         =   "Trace"
       Height          =   255
       Left            =   2640
       TabIndex        =   6
       Top             =   120
       Width           =   975
    End
    Begin VB.CommandButton cmdOKCancel
       Caption         =   "Cancel"
       Height          =   375
       Index           =   1
       Left            =   2640
       TabIndex        =   3
       Top             =   1080
       Width           =   855
    End
    Begin VB.CommandButton cmdOKCancel
       Caption         =   "OK"
       Default         =   -1  'True
       Height          =   375
       Index           =   0
       Left            =   2640
       TabIndex        =   2
       Top             =   480
       Width           =   855
    End
    Begin VB.TextBox txtPort
       Height          =   375
       Left            =   120
       TabIndex        =   1
       Text            =   "23"
       Top             =   1080
       Width           =   2295
    End
    Begin VB.TextBox txtRemoteAddress
       Height          =   375
       Left            =   120
       TabIndex        =   0
       Text            =   "127.0.0.0"
       Top             =   360
       Width           =   2295
    End
    Begin VB.Label Label1
       Caption         =   "Remote IP Port"
       Height          =   255
       Index           =   1
       Left            =   120
       TabIndex        =   5
       Top             =   840
       Width           =   2055
    End
    Begin VB.Label Label1
       Caption         =   "Remote IP Address"
       Height          =   255
       Index           =   0
       Left            =   120
       TabIndex        =   4
       Top             =   120
       Width           =   2055
    End
 End
 Attribute VB_Name = "frmTCPIP"
 Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = False
 Option Explicit
 
 Private Sub Check1_Click()
     If Check1.Value = 1 Then
         frmTelnet.TraceTelnet = True
         frmTelnet.Tracevt100 = True
     Else
         frmTelnet.TraceTelnet = False
         frmTelnet.Tracevt100 = False
     End If
    
 End Sub
 
 Private Sub cmdOKCancel_Click(Index As Integer)
 On Error Resume Next
     Select Case Index
         Case 0
            
             frmTelnet.WinsockClient.Close
             frmTelnet.WinsockClient.LocalPort = 0
             frmTelnet.RemoteIPAd = txtRemoteAddress
             frmTelnet.RemotePort = txtPort
             frmTelnet.WinsockClient.RemotePort = txtPort
             frmTelnet.WinsockClient.RemoteHost = txtRemoteAddress
             If Err > 0 Then
                 MsgBox Error
             Else
                 Unload Me
             End If
         Case 1
             Unload Me
     End Select
 End Sub
 
 Private Sub Form_Load()
     txtRemoteAddress = frmTelnet.RemoteIPAd
     txtPort = frmTelnet.RemotePort
 '   Check1.Value = -(frmTelnet.TraceTelnet)
 End Sub
 
 VERSION 5.00
 Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
 Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
 Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
 Begin VB.Form frmTelnet
    Caption         =   "weit's Telnet Client 1.1"
    ClientHeight    =   9120
    ClientLeft      =   -210
    ClientTop       =   3015
    ClientWidth     =   13590
    FillColor       =   &H00800000&
    FillStyle       =   0  'Solid
    BeginProperty Font
       Name            =   "Arial"
       Size            =   9
       Charset         =   0
       Weight          =   400
       Underline       =   0   'False
       Italic          =   0   'False
       Strikethrough   =   0   'False
    EndProperty
    ForeColor       =   &H0000FFFF&
    Icon            =   "telnet.frx":0000
    KeyPreview      =   -1  'True
    LinkTopic       =   "Form1"
    PaletteMode     =   1  'UseZOrder
    ScaleHeight     =   9120
    ScaleWidth      =   13590
    StartUpPosition =   2  '屏幕中心
    Begin VB.TextBox Text13
       Height          =   375
       Left            =   10800
       TabIndex        =   35
       ToolTipText     =   "从亿讯查上网记录查VLanID输入"
       Top             =   5040
       Width           =   615
    End
    Begin VB.CommandButton Command14
       Caption         =   "alcate通过MAC查端口"
       Height          =   375
       Left            =   11520
       TabIndex        =   34
       Top             =   5040
       Width           =   1935
    End
    Begin VB.CommandButton Command13
       Caption         =   "用IP连"
       Height          =   375
       Left            =   10440
       TabIndex        =   33
       Top             =   2640
       Width           =   735
    End
    Begin VB.CommandButton Command12
       Caption         =   "alcatel设置状态"
       Height          =   375
       Left            =   11520
       TabIndex        =   32
       Top             =   4560
       Width           =   1935
    End
    Begin VB.CommandButton Command11
       Caption         =   "send"
    

相关论文