VB.NET中如何禁止網上下載文件

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

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

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

二、VB.NET編程修改注冊表有兩種方法：一種是建立一個擴展名為.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

三、VB.NET編程在Form_Load事件過程中輸入以下內容，為了后面說明方便，這里給每一行加了標號，當然實際編程中是不能加標號的。

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

Private Sub Form_GotFocus()  Unload Me  End Sub

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

關于“VB.NET中如何禁止網上下載文件”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。