?? frmmanager.frm

?? 包含網吧管理服務器和客戶端
?? 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
?? 文件大小 477 K
?? 上傳用戶 villyc
?? 所屬分類其他行業
??? 相關標簽

#服務器
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmmanager.frm

?? 快捷鍵說明
