frmmanager.frm

提供一个网吧管理系统的VB源代码供大家学习

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