怎麽樣修改註冊表禁止所有下載!

1.WorkWin限制專家(禁止QQ/禁止下載/禁止BT) V1.2 2.我有兩個看法,第壹看看妳的IE有沒有屬性這壹項,有壹個安全選擇,有的IE是啟用下載和禁止下載,這個選項點壹下,第二就是在控制面板找到網絡,點右鍵裏面也有壹個安全,裏面也有壹個禁止的選項,妳設壹下應該可以解決的 3. 壹、啟動VB6.0,新建壹工程,命名為DENYDOWN；二、修改註冊表有兩種方法：壹種是建立壹個擴展名為.REG的文件,雙擊後自動添加到註冊表中(在程序中是通過WINDOWS自帶的壹個註冊表編輯文REGEDIT.exe把它導入註冊表,達到修改註冊表的目的)；另壹種是通過調用WINDOWS API函數,來修改註冊表。兩種方法各有長短,我們這裏把二者結合起來,***同使用,達到對註冊表的修改目的。由於我們要調用WINDOWS API函數,所以先在聲明欄中聲明如下的四個API函數：打開子鍵RegOpenKey、刪除子鍵RegDeleteKey、關閉打開的子鍵RegCloseKey和刷新子鍵函數RegFlushKey,還有壹個常數聲明：HKEY_LOCAL_MACHINE，聲明語名如下： Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias _ "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias _ "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As_ Long Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As_ Long Private Declare Function RegFlushKey Lib "advapi32.dll" (ByVal hKey As Long) As_ Long 三、在Form_Load事件過程中輸入以下內容，為了後面說明方便，這裏給每壹行加了標號，當然實際編程中是不能加標號的。 Dim line As String Dim a As Long Dim fso, fs As Object line = "REGEDIT4" & Chr(13) & Chr(10) line = line & Chr(13) & Chr(10) 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 line = line & "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3]" & Chr(13) & Chr(10) line = line & """1803""=dword:00000003" & Chr(13) & Chr(10) '禁止下載 line = line & Chr(13) & Chr(10) line = line & "[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]" & Chr(13) & Chr(10) '加入啟動組 line = line & """DenyDownLoad""=""C:\\PROGRAM FILES\\DenyDownLoad\\DenyDown.exe""" line = line & Chr(13) & Chr(10) line = line & "[HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\System]" & Chr(13) & Chr(10) line = line & """DisableRegistryTools""=dword:00000001" & Chr(13) & Chr(10) '禁止修改註冊表 line = line & Chr(13) & Chr(10) line = line & "[HKEY_CLASSES_ROOT\regfile\shell\open\command]" & Chr(13) & Chr(10) line = line & "@=""regedit.exe""" & Chr(13) & Chr(10) '修改添加註冊表文件為打開註冊表。 line = line & Chr(13) & Chr(10) line = line & "[HKEY_LOCAL_MACHINE\Software\CLASSES\.reg]" & Chr(13) & Chr(10) line = line & "@=""txtfile""" & Chr(13) & Chr(10) '關聯註冊表文件到TEXT文件。 line = line & Chr(13) & Chr(10) line = line & "[HKEY_LOCAL_MACHINE\Software\CLASSES\.inf]" & Chr(13) & Chr(10) line = line & "@=""txtfile""" & Chr(13) & Chr(10) '關聯inf文件到TEXT文件 Set fso = CreateObject("Scripting.FileSystemObject") Set fs = fso.CreateTextFile("c:\ModiReg.reg", True) fs.writeline (line) fs.Close Set fs = Nothing a = Shell("regedit.exe /s c:\ModiReg.reg", 1) Kill ("c:\ModiReg.reg") Dim hKey, ret As Long ret = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\SO\DOWNLOAD\FILEDOWNLOAD", hKey) ret = RegDeleteKey(hKey, "ALLOW") '刪除允許下載項 ret = RegCloseKey(hKey) ret = RegFlushKey(hKey) 代碼說明：上面第4行到第27行是把要在註冊表中修改的內容建立壹個註冊表文件ModiReg.reg,由於這種文件的格式要求開頭必須有"REGEDIT4"壹行,並且緊跟後面要求壹空行,所以有4、5兩行。第6、7兩行是修改註冊表中關於IE設置當中的參數，當修改為3時表示禁止下載。第9、10兩行是把本程序加入啟動組，保證每次啟動機器後都能自運行本程序，當然這裏限定本程序的位置必須是“C:\PROGRAM FILES\DenyDownLoad\DenyDown.exe”，如果妳不想把它放在這裏，就要修改這裏的內容了。第12、13行是禁止用戶使用註冊表編輯器來修改註冊表。由於修改註冊表還可以通過建立壹個.REG文件,雙擊後加入註冊表,為了防止懂得註冊表知識的人通過這種方式修改註冊表中關於禁止下載的項目,所以在15、16行裏修改添加註冊表文件為打開註冊表，由於第13行設置了禁止打開註冊表，所以也就不能添加註冊表文件了。第18行到第22行也是出於更安全的目的分別使.REG文件和.INF文件關聯到記事本,加強對註冊表的保護。第24行是把上面的內容寫入壹個註冊表文件ModiReg.reg,第28行是通過SHELL()函數調用註冊表編輯器把ModiReg.reg中的內容添加入註冊表中。由於調用REGEDIT.EXE添加註冊表項時會出現壹個對話框,所以加了壹個/S參數禁止該對話框的顯示。第31、32行是通過Windows Api函數刪除註冊表中關於IE設置中允許下載的項目，第33行是更新設置，第34行是關閉註冊表，完成對註冊表的修改。為了讓本程序在每次修改完註冊表後能自動關閉，還要加入下面的退出程序。 Private Sub Form_GotFocus() Unload Me End Sub 生成DenyDown.exe,拷貝到C:\PROGRAM FILES\DenyDownLoad\,就壹切OK了。當然還需要壹個恢復修改的程序，否則連我們自已也不能下載文件和修改註冊表了，通過上面的程序，相信妳應該可以編寫壹個恢復修改的程序了吧，這裏我就不再贅述了。