以下是引用片段： 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
|