form1.frm

Windows安全黑客全部是注册表的修改

      End
      Begin VB.CheckBox explorer 
         Caption         =   "DisableRegistryTools"
         Height          =   255
         Index           =   11
         Left            =   120
         TabIndex        =   12
         ToolTipText     =   "Disable Registry Editing Tools"
         Top             =   3000
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoSaveSettings"
         Height          =   255
         Index           =   10
         Left            =   120
         TabIndex        =   11
         ToolTipText     =   "Don't Save Settings on Shutdown"
         Top             =   2760
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoClose"
         Height          =   255
         Index           =   9
         Left            =   120
         TabIndex        =   10
         ToolTipText     =   "Prevents the User From Normally Shutting Down Windows"
         Top             =   2520
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoDesktop"
         Height          =   255
         Index           =   8
         Left            =   120
         TabIndex        =   9
         ToolTipText     =   "Hides All Items From the Desktop"
         Top             =   2280
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoNetHood"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   8
         ToolTipText     =   "Hides theNetwork Neighborhood Icon From the Desktop"
         Top             =   2040
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoDrives"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   7
         ToolTipText     =   "Hides All of the Drives in My Computer"
         Top             =   1800
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoFind"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   6
         ToolTipText     =   "Removes the Find Tool (Start >Find)"
         Top             =   1560
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoSetTaskbar"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   5
         ToolTipText     =   "Removes Taskbar System Folder From the Settings Option in the Start Menu"
         Top             =   1320
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoSetFolders"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   4
         ToolTipText     =   "Removes Folders From the Settings Option in the Start Menu (Control Panel, Printers, Taskbar)"
         Top             =   1080
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoRun "
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   3
         ToolTipText     =   "Disables or Hides the Run Command"
         Top             =   840
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoAddPrinter"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   2
         ToolTipText     =   "Disables Addition of New Printers"
         Top             =   600
         Width           =   1935
      End
      Begin VB.CheckBox explorer 
         Caption         =   "NoDeletePrinter"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   1
         ToolTipText     =   "Disables Deletion of Already Installed Printers"
         Top             =   360
         Width           =   1935
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''
'' Project Name: Windows Security Hacker  ''
''''''''''''''''''''''''''''''''''''''''''''
'' Description: Edits and monitors a      ''
''    number of registry keys that are    ''
''    used by Windows to store security   ''
''    information.                        ''
''''''''''''''''''''''''''''''''''''''''''''
'' Coder: Evan Sangaline                  ''
''    AKA Navarchy or Nave Zeng           ''
''''''''''''''''''''''''''''''''''''''''''''
'' Date: 6-7-01                           ''
''''''''''''''''''''''''''''''''''''''''''''
'' Code Status: This code is copyrighted  ''
''    and can only be distributed if      ''
''    absolutely no code is edited in any ''
''    way.                                ''
''''''''''''''''''''''''''''''''''''''''''''




' I always put this in my projects because
' it helps prevent errors.
Option Explicit

Private Sub about_Click()
    ' Set Timer2 to 0 so that the button
    ' doesn't blick any more
    Timer2.Interval = 0
    
    ' Set the button color to gray so that
    ' it looks normal
    about.BackColor = &H8000000A
    
    ' Get rid of the arrows in the tooltip text
    about.ToolTipText = "Information About This Program"
    
    ' I thought it looked bad when about
    ' had the focus so I created a button
    ' that you can't see to take the focus
    ' after opendos is clicked.
    focuser.SetFocus
    
    ' This is a message box that explains a little
    ' abou the program. I know its hard to read on
    ' one line, so sorry. Please don't change this
    ' because I wrote the program and want my name
    ' on it.
    MsgBox "                                                          Windows Security Hacker" & vbCrLf & "                                                             coded by Navarchy" & vbCrLf & vbCrLf & "This program can be used by either administrators who need to limmit access or users who desire more access. There are many functions inside of this program so a few of them may not work on some Windows operating systems, but the majority of them work on all Windows operating systems. " & vbCrLf & "                                                                        Peace " & vbCrLf & "                                                                      Navarchy", vbSystemModal, ""
End Sub

Private Sub explorer_Click(Index As Integer)
    ' Create the registry path if it doesn't already exist
    CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
    
    ' The caption of each of the checkboxes
    ' is the same as the corresponding registry
    ' key. The key value set here is used by
    ' Windows to store the corresponding security
    ' information. The last part just converts
    ' the value of the checkbox to a long for
    ' the function.
    SaveSettingLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", explorer(Index).Caption, CLng(explorer(Index).Value)
End Sub

Sub Updater()
  Dim a As Integer
    ' This goes through each of the checkboxes
    ' in the explorer array and sets each checkboxes
    ' to the value recieved from the registry.
    For a = 0 To explorer.Count - 1
        explorer(a).Value = GetSettingLong(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", explorer(a).Caption, 0)
    Next a
    ' Set a to 0 so that I can use the same
    ' variable again
    a = 0
    
    ' This goes through each of the checkboxes
    ' in the system array and sets each checkboxes
    ' to the value recieved from the registry.
    For a = 0 To system.Count - 1
        system(a).Value = GetSettingLong(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", system(a).Caption, 0)
    Next a
    ' Set a to 0 so that I can use the same
    ' variable again
    a = 0
    
    ' This goes through each of the checkboxes
    ' in the network array and sets each checkboxes
    ' to the value recieved from the registry.
    For a = 0 To network.Count - 1
        network(a).Value = GetSettingLong(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Network", network(a).Caption, 0)
    Next a
    
    ' There are only two things in the winoldapp
    ' array, so it takes less code to just write
    ' them individually.
    winoldapp(0).Value = GetSettingLong(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp", winoldapp(0).Caption, 0)
    winoldapp(1).Value = GetSettingLong(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp", winoldapp(1).Caption, 0)
    
    ' This retrieves the logon message string
    ' from the registry and puts the string
    ' into logonmessage.Text
    logonmessage.Text = GetSettingString(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\WinLogon", "LegalNoticeCaption", "")
End Sub

Private Sub Form_Load()
    
  Dim sBuffer As String
  Dim lSize As Long
  Dim getusername As String
    ' Space for dll parameters
    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    ' Get the username
    Call GetUserNameAPI(sBuffer, lSize)

    If lSize > 0 Then
        ' Remove empty spaces
        getusername = Left$(sBuffer, lSize)
      Else
        ' Return empty if no user is found
        getusername = vbNullString
    End If
    ' Add the username to the caption of the form
    Me.Caption = Me.Caption & " - current user: " & getusername
    
    ' Center the form
    Me.Top = Screen.Height / 2 - Me.Height / 2
    Me.Left = Screen.Width / 2 - Me.Width / 2
    
    ' Call the sub that sets the checkboxes
    ' and textbox to the values in the registry
    Updater
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' Set the timers to 0 to avoid delay
    Timer1.Interval = 0
    Timer2.Interval = 0
    
    ' Unload the form
    Unload Me
    
    ' End the project
    End
End Sub

Private Sub network_Click(Index As Integer)
    ' Create the registry path if it doesn't already exist
    CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Network"
    
    ' The caption of each of the checkboxes
    ' is the same as the corresponding registry
    ' key. The key value set here is used by
    ' Windows to store the corresponding security
    ' information. The last part just converts
    ' the value of the checkbox to a long for
    ' the function.
    SaveSettingLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Network", network(Index).Caption, CLng(network(Index).Value)
End Sub

Private Sub opendos_Click()
    ' This ends up calling winoldapp_Click
    ' and enabling access to the DOS command prompt
    winoldapp(0).Value = 0
    
    ' I thought it looked bad when opendos
    ' had the focus so I created a button
    ' that you can't see to take the focus
    ' after opendos is clicked.
    focuser.SetFocus
    
    ' This executes command.com (DOS) in
    ' its normal state with the focus.
    Shell "command.com", vbNormalFocus
End Sub

Private Sub openregedit_Click()
    ' This ends up calling explorer_Click
    ' and enabling access to the Windows
    ' registry editing tools.
    explorer(11).Value = False
    
    ' I thought it looked bad when openregedit
    ' had the focus so I created a button
    ' that you can't see to take the focus
    ' after openregedit is clicked.
    focuser.SetFocus
    
    ' This executes regedit.exe (the Windows registry editor) in
    ' its normal state with the focus.
    Shell "regedit.exe", vbNormalFocus
End Sub

Private Sub system_Click(Index As Integer)
    ' Create the registry path if it doesn't already exist
    CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System"
    
    ' The caption of each of the checkboxes
    ' is the same as the corresponding registry
    ' key. The key value set here is used by
    ' Windows to store the corresponding security
    ' information. The last part just converts
    ' the value of the checkbox to a long for
    ' the function.
    SaveSettingLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", system(Index).Caption, CLng(system(Index).Value)
End Sub

Private Sub logonmessage_Change()
    ' Create the registry path if it doesn't already exist
    CreateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\WinLogon"
    
    ' The caption of each of the checkboxes
    ' is the same as the corresponding registry
    ' key. The key value set here is used by
    ' Windows to store the corresponding security
    ' information. The last part just converts
    ' the value of the checkbox to a long for
    ' the function.
    SaveSettingString HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\WinLogon", "LegalNoticeCaption", logonmessage.Text
End Sub

Private Sub Timer1_Timer()
    ' Call the sub that sets the checkboxes
    ' and textbox to the values in the registry
    Updater
End Sub

Private Sub Timer2_Timer()
    ' This sub just draws attention to the
    ' about button so that people click it
    ' more often.
    
    ' If the about button is red then
    If about.BackColor = &HFF& Then
        ' make the tool tip text arrows point down
        about.ToolTipText = "\/\/Information About This Program\/\/"
        ' and make it blue
        about.BackColor = &HFF0000
      ' If it is blue then
      Else
        ' make it red
        about.BackColor = &HFF&
        ' and make the tool tip text arrows point up
        about.ToolTipText = "/\/\Information About This Program/\/\"
    End If
End Sub

Private Sub WinOldApp_Click(Index As Integer)
    ' Create the registry path if it doesn't already exist
    CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp"
    
    ' The caption of each of the checkboxes
    ' is the same as the corresponding registry
    ' key. The key value set here is used by
    ' Windows to store the corresponding security
    ' information. The last part just converts
    ' the value of the checkbox to a long for
    ' the function.
    SaveSettingLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp", winoldapp(Index).Caption, CLng(winoldapp(Index).Value)
End Sub