交换速率修改系统设计论文

目 录

交换速率修改系统概述

系统功能及使用说明

总结

附件：部分源代码

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

此系统是为了方便监控班人员修改交换机用户端口速率而制作的简易速率修改器，可以起到提高工作效率的作用。界面化的操作方式更能使得新人快速上手。

二、系统功能及使用说明

（图一）

此系统分为三个部分：

第一部分为菜单栏

（图二）

菜单栏暂时只开发了“退出系统”和“连接交换机”两项功能

第二部分为显示栏

（图三）

显示栏的主要作用是显示当前接连交换机的情况和程序在交换上所执行命令的情况。

第三部分为功能栏

（图四）

功能栏主要由交换机上最常用的命令按键组成。

登陆交换机可以使用输入节点编码或使用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

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 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 "中兴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 = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.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 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 TabIndex = 32

Top = 4560

Width = 1935

End

Begin VB.CommandButton Command11

Caption = "send"