VB.NET中如何禁止網(wǎng)上下載文件

這篇文章將為大家詳細(xì)講解有關(guān)VB.NET中如何禁止網(wǎng)上下載文件，小編覺得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

經(jīng)常上網(wǎng)吧的朋友知道，有的網(wǎng)吧不可以下載東西，我們現(xiàn)在就利用VB.NET編程還實(shí)現(xiàn)這一功能。但只要稍懂一點(diǎn)計(jì)算機(jī)的人就可以再進(jìn)入IE設(shè)置中修改為允許下載。本人經(jīng)過研究注冊表，找到了一種可禁止下載的方法，就是利用VB.NET編寫一個(gè)小程序，通過修改注冊表中的某些項(xiàng)目，完全禁止IE瀏覽器的下載功能，而且屏蔽一切修改注冊表的方法。

一、VB.NET編程啟動(dòng)VB6.0,新建一工程,命名為DENYDOWN；

二、VB.NET編程修改注冊表有兩種方法：一種是建立一個(gè)擴(kuò)展名為.REG的文件,雙擊后自動(dòng)添加到注冊表中(在程序中是通過WINDOWS自帶的一個(gè)注冊表編輯文REGEDIT.EXE把它導(dǎo)入注冊表,達(dá)到修改注冊表的目的)；另一種是通過調(diào)用WINDOWS API函數(shù),來修改注冊表。兩種方法各有長短,我們這里把二者結(jié)合起來,共同使用,達(dá)到對(duì)注冊表的修改目的。由于我們要調(diào)用WINDOWS API函數(shù),所以先在聲明欄中聲明如下的四個(gè)API函數(shù)：打開子鍵RegOpenKey、刪除子鍵RegDeleteKey、關(guān)閉打開的子鍵RegCloseKey和刷新子鍵函數(shù)RegFlushKey,還有一個(gè)常數(shù)聲明：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

三、VB.NET編程在Form_Load事件過程中輸入以下內(nèi)容，為了后面說明方便，這里給每一行加了標(biāo)號(hào)，當(dāng)然實(shí)際編程中是不能加標(biāo)號(hào)的。

為了讓本程序在每次修改完注冊表后能自動(dòng)關(guān)閉，還要加入下面的退出程序。

Private Sub Form_GotFocus()  Unload Me  End Sub

生成DenyDown.exe,拷貝到C:\PROGRAM FILES\DenyDownLoad\,就一切OK了。當(dāng)然還需要一個(gè)恢復(fù)修改的程序，否則連我們自已也不能下載文件和修改注冊表了，通過上面的程序，相信你應(yīng)該可以編寫一個(gè)恢復(fù)修改的程序了吧，這里我就不再贅述了。

關(guān)于“VB.NET中如何禁止網(wǎng)上下載文件”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，使各位可以學(xué)到更多知識(shí)，如果覺得文章不錯(cuò)，請把它分享出去讓更多的人看到。