www.pudn.com > netserver.zip > frmManager.frm
VERSION 5.00
Begin VB.Form frmManager
BorderStyle = 1 'Fixed Single
Caption = "控制客记机"
ClientHeight = 3195
ClientLeft = 45
ClientTop = 330
ClientWidth = 6855
Icon = "frmManager.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3195
ScaleWidth = 6855
StartUpPosition = 3 '窗口缺省
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frmManager.frx":0442
Left = 1440
List = "frmManager.frx":0455
Style = 2 'Dropdown List
TabIndex = 3
Top = 120
Width = 3375
End
Begin VB.CommandButton Command9
Caption = "立即执行所选命令"
Height = 375
Left = 5040
TabIndex = 2
Top = 120
Width = 1695
End
Begin VB.CommandButton Command10
Caption = "查看当前机程序"
Height = 375
Left = 5040
TabIndex = 1
Top = 720
Width = 1695
End
Begin VB.ListBox List5
Height = 2400
ItemData = "frmManager.frx":04AB
Left = 1440
List = "frmManager.frx":0503
TabIndex = 0
Top = 720
Width = 3375
End
Begin VB.Label Label26
Caption = "选择计算机："
Height = 375
Left = 120
TabIndex = 5
Top = 120
Width = 1095
End
Begin VB.Label Label27
Caption = "进行下列操作："
Height = 375
Left = 120
TabIndex = 4
Top = 600
Width = 1335
End
End
Attribute VB_Name = "frmManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command10_Click()
frmComputer.Show vbModal, Me
End Sub
Private Sub Command9_Click()
'执行命令
On Error Resume Next
With frmMain.Data1.Recordset
aa = .AbsolutePosition
Select Case Combo1.Text
Case "当前所选计算机"
For i = 0 To frmMain.Winsock1.Count - 1
If .Fields("IP") = frmMain.Winsock1(i).RemoteHostIP Then
SendCommand i
Exit For
End If
Next i
Case "所有待机计算机"
.MoveFirst
For i = 1 To .RecordCount
If .Fields("状态") = "S" Then
For j = 0 To frmMain.Winsock1.Count - 1
If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then
SendCommand j
Exit For
End If
Next j
End If
.MoveNext
Next i
.MoveFirst
.Move aa
Case "所有记费中的计算机"
.MoveFirst
For i = 1 To .RecordCount
If .Fields("状态") = "Y" Then
For j = 0 To frmMain.Winsock1.Count - 1
If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then
SendCommand j
Exit For
End If
Next j
End If
.MoveNext
Next i
.MoveFirst
.Move aa
Case "所有暂停的计算机"
.MoveFirst
For i = 1 To .RecordCount
If .Fields("状态") = "P" Then
For j = 0 To frmMain.Winsock1.Count - 1
If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then
SendCommand j
Exit For
End If
Next j
End If
.MoveNext
Next i
.MoveFirst
.Move aa
Case "全部计算机"
For j = 0 To frmMain.Winsock1.Count - 1
SendCommand j
Next j
End Select
End With
End Sub
Sub SendCommand(Index)
'发送命令
On Error Resume Next
DoEvents
Select Case List5.Text
Case "关机"
frmMain.Winsock1(Index).SendData "_comm" + Chr(0) + "shutdown" + Chr(0) + "OK$"
DoEvents
Case "重新启动"
frmMain.Winsock1(Index).SendData "_comm" + Chr(0) + "reset" + Chr(0) + "OK$"
DoEvents
Case "暂停"
frmMain.Winsock1(Index).SendData "_comm" + Chr(0) + "pause" + Chr(0) + "OK$"
DoEvents
Case "禁用注册表编辑器"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "DisableRegistryTools" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许使用注册表编辑器"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "DisableRegistryTools" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "发送信息"
frmSendMsg.Caption = "发送信息"
frmSendMsg.ISText = False
frmSendMsg.IndexJSJ = Index
frmSendMsg.SelectCom = Combo1.Text
frmSendMsg.Show
Case "禁止修改桌面"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoSaveSettings" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许修改桌面"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoSaveSettings" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "禁用MS-DOS方式"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp" + _
Chr(0) + "NoRealMode" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp" + _
Chr(0) + "Disabled" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许MS-DOS方式"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp" + _
Chr(0) + "NoRealMode" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp" + _
Chr(0) + "Disabled" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "屏蔽开始菜单的关闭系统"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoClose" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许开始菜单的关闭系统"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoClose" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "禁用控制面板"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoSetFolders" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许控制面板"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoSetFolders" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "屏蔽注销"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoLogOff" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许注销"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoLogOff" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
'Case "禁止给Internet改名"
'Case "充许给Internet改名"
Case "屏蔽硬盘"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoDrives" + Chr(0) + "4" + Chr(0) + "&H1D" + Chr(0) + "OK$"
DoEvents
Case "显示硬盘"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoDrives" + Chr(0) + "4" + Chr(0) + "&H000000" + Chr(0) + "OK$"
DoEvents
Case "禁止使用文件夹选项"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoFolderOptions" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许使用文件夹选项"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" + _
Chr(0) + "NoFolderOptions" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "禁止设置网络"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Network" + _
Chr(0) + "NoNetSetup" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许设置网络"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\Network" + _
Chr(0) + "NoNetSetup" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "禁止设置显示属性"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoDispCPL" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许设置显示属性"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoDispCPL" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "禁止系统设置"
DoEvents
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoDevMgrPage" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
For i = 1 To 10000
DoEvents
Next i
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoConfigPage" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
For i = 1 To 10000
DoEvents
Next i
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoFileSysPage" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
For i = 1 To 10000
DoEvents
Next i
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoVirtMemPage" + Chr(0) + "4" + Chr(0) + "1" + Chr(0) + "OK$"
DoEvents
Case "允许系统设置"
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoDevMgrPage" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoConfigPage" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoFileSysPage" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Windows\CurrentVersion\Policies\System" + _
Chr(0) + "NoVirtMemPage" + Chr(0) + "4" + Chr(0) + "0" + Chr(0) + "OK$"
DoEvents
Case "设置IE首页"
'HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
pd = InputBox("请输入新的IE首页")
If pd <> "" Then
frmMain.Winsock1(Index).SendData "_ereg" + Chr(0) + "&H80000001" + Chr(0) + "Software\Microsoft\Internet Explorer\Main" + _
Chr(0) + "Start Page" + Chr(0) + "1" + Chr(0) + pd + Chr(0) + "OK$"
DoEvents
End If
Case "设置桌面提示语言"
frmSendMsg.IndexJSJ = Index
frmSendMsg.Caption = "设置桌面提示语言"
frmSendMsg.SelectCom = Combo1.Text
frmSendMsg.ISText = True
frmSendMsg.Show
Case Else
MsgBox "not select list"
End Select
End Sub