当前位置:跳过导航链接计算机毕业设计首页 : VB计算机毕业设计 : 详细内容

VB局域网网络管理系统(10)

来源:xiaoniu168.com 作者:本站原创 添加时间:2014-11-27 点击数:29811

计算机毕业设计教师模块介绍:

点击【向连接的机器发送消息】 系统将检索所有的连接的机器并发送教师输入的消息信息。

以下是引用片段:

Private Sub btn添加_Click()
'向所有的机器发送教师信息
Dim i As Long
Dim str As String
str = InputBox("输入发送的消息", "发送", "")
For i = 1 To Me.ListUser.ListItems.Count
    If Me.WinConn(Mid(Me.ListUser.ListItems(i).Key, 4)).State = 7 Then
    Me.WinConn(Mid(Me.ListUser.ListItems(i).Key, 4)).SendData "11-11" & str
    End If
Next
End Sub
点击【远程关闭所有连接的计算机】 系统将检索所有的连接的机器并发送关机命令,具体代码如下:
Private Sub UserControl13_Click()
'相连接的所有机器发送关机命令
Dim i As Long
Dim str As String
For i = 1 To Me.ListUser.ListItems.Count
    If Me.WinConn(Mid(Me.ListUser.ListItems(i).Key, 4)).State = 7 Then
    Me.WinConn(Mid(Me.ListUser.ListItems(i).Key, 4)).SendData "33-33"
    End If
Next
End Sub

Private Sub ControlMenu1_Click()
'发送让学生机器发送截图
frmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "22-21"
End Sub

Private Sub ControlMenu2_Click()
'发送在学生机器上建立文件夹 NewFolder
frmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "33-31"
End Sub

Private Sub ControlMenu3_Click()
'发送在学生机器上建立文件  NewFile
frmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "33-32"
End Sub

Private Sub ControlMenu4_Click()
'发送 远程关闭计算机
frmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "33-33"
End Sub

Private Sub ControlMenu5_Click()
'发送 打开学生机器上面的IE
frmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "33-34"
End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第11页为计算机毕业论文部分......

上一篇:VB销售管理系统

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线