form1.vb

采用VB编写的机房管理系统

        Me.MenuSystem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuAddManager, Me.MenuModifyMPwd, Me.MenuDelManager, Me.MenuItem5, Me.MenuLockScreen, Me.MenuExit})
        Me.MenuSystem.Text = "系统管理(&S)"
        '
        'MenuAddManager
        '
        Me.MenuAddManager.Index = 0
        Me.MenuAddManager.Text = "添加管理员"
        '
        'MenuModifyMPwd
        '
        Me.MenuModifyMPwd.Index = 1
        Me.MenuModifyMPwd.Text = "修改密码"
        '
        'MenuDelManager
        '
        Me.MenuDelManager.Index = 2
        Me.MenuDelManager.Text = "删除管理员"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 3
        Me.MenuItem5.Text = "-"
        '
        'MenuLockScreen
        '
        Me.MenuLockScreen.Index = 4
        Me.MenuLockScreen.Text = "锁定屏幕"
        '
        'MenuExit
        '
        Me.MenuExit.Index = 5
        Me.MenuExit.Text = "退出"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 1
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem6})
        Me.MenuItem1.Text = "用户管理(&U)"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Text = "添加用户"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "用户续机时"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 2
        Me.MenuItem4.Text = "修改用户密码"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 3
        Me.MenuItem6.Text = "删除用户"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 2
        Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem8, Me.MenuItem9})
        Me.MenuItem7.Text = " 操 作(&O)"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 0
        Me.MenuItem8.Text = "当前状态"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 1
        Me.MenuItem9.Text = "系统广播"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 3
        Me.MenuItem10.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem11, Me.MenuItem12})
        Me.MenuItem10.Text = "日 志(&L)"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 0
        Me.MenuItem11.Text = "系统管理员日志"
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 1
        Me.MenuItem12.Text = "用户日志"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 4
        Me.MenuItem13.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem14})
        Me.MenuItem13.Text = "帮 助(&H)"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 0
        Me.MenuItem14.Text = "关于"
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(816, 446)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "计算机机房管理"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

    End Sub

#End Region

    Private Sub MenuAddManager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuAddManager.Click
        If ManagerName <> "Admin" Then
            MsgBox("只有超级管理员才有之权限", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub

        End If
        Dim FrmObj As New FrmAddManager
        FrmObj.MdiParent = Me
        FrmObj.Show()

    End Sub

    Private Sub MenuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExit.Click
        End
    End Sub

    Private Sub MenuModifyMPwd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuModifyMPwd.Click
        Dim FrmObj As New FrmModMPwd
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ThreadPool.QueueUserWorkItem(New System.Threading.WaitCallback(AddressOf establistsocket))

    End Sub

    Private Sub MenuDelManager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDelManager.Click
        If ManagerName <> "Admin" Then
            MsgBox("你没有之权限", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub

        End If

        Dim frmObj As New FrmDelManager
        frmObj.MdiParent = Me
        frmObj.Show()

    End Sub

    Private Sub MenuLockScreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLockScreen.Click
        Me.Hide()
        Dim frmObj As New FrmLockScreen
        frmObj.LbManagerName.Text = ManagerName
        frmObj.ShowDialog()
        Me.Show()

    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        MsgBox("计算机机房管理系统" & vbCrLf & "设计人！！KKK！！", MsgBoxStyle.OKOnly, "关于")


    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim frmObj As New FrmAddUser
        frmObj.MdiParent = Me
        frmObj.Show()
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim frmObj As New FrmAddTime
        frmObj.MdiParent = Me
        frmObj.Show()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim frmObj As New FrmModifyUPwd
        frmObj.MdiParent = Me
        frmObj.Show()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim frmObj As New FrmDelUser
        frmObj.MdiParent = Me
        frmObj.Show()
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Dim frmObj As New FrmStatus
        frmObj.MdiParent = Me
        frmObj.Show()
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        Dim frmObj As New FrmMLog
        frmObj.MdiParent = Me
        frmObj.Show()
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Dim frmObj As New FrmULog
        frmObj.MdiParent = Me
        frmObj.Show()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim ascii As System.Text.Encoding = System.Text.Encoding.ASCII
        Dim receivebyte(16) As Byte
        Dim receivepage As String = String.Empty
        Dim i As Integer
        For i = 0 To socketcount
            If Not socket(i) Is Nothing Then
                If socket(i).Available <> 0 Then
                    socket(i).SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReceiveTimeout, 1000)
                    Dim bytes As Int32 = socket(i).Receive(receivebyte, receivebyte.Length, 0)

                    receivepage = ascii.GetString(receivebyte, 0, bytes)
                    ProcessInfo(receivepage, i)

                End If
            End If
        Next

    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Dim info As String
        info = InputBox("请输入广播信息", "系统广播")
        Dim i As Integer
        For i = 0 To 127
            If Not socket(i) Is Nothing Then
                sendinfo("MM" & info, i)

            End If
        Next
    End Sub
End Class