发布时间：2015-01-06 来源：人大经济论坛

交换速率修改系统设计论文_自动化专业毕业论文 目      录 交换速率修改系统概述 系统功能及使用说明   总结 附件：部分源代码   一、交换速率修改系统概述  此系统是为了方便监控班人员修改交换机用户端口速率而制作的简易速率修改器，可以起到提高工作效率的作用。界面化的操作方式更能使得新人快速上手。     二、系统功能及使用说明   （图一）        此系统分为三个部分：      第一部分为菜单栏     （图二）  菜单栏暂时只开发了“退出系统”和“连接交换机”两项功能    第二部分为显示栏   （图三）  显示栏的主要作用是显示当前接连交换机的情况和程序在交换上所执行命令的情况。        第三部分为功能栏 （图四）  功能栏主要由交换机上最常用的命令按键组成。  登陆交换机可以使用输入节点编码或使用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"