用VB6.0编程禁止网上下载文件

　　随着计算机的普及，互联网已逐渐走向千家万户、单位学校，但随之而来的问题也出现：由于网上有大量的游戏软件、图片、多媒体内容等，许多网民利用单位或学校的计算机，在网上大量下载这类东东，不仅使流量猛增，网费消耗，而且更容易使一些黄色内容肆意传播，虽然在IE浏览器中有一项可设为禁止下载，

　　看图之王ACDSee 6.0应用大全　数码人像照片矢量化及艺术处理

　　六天学会Visual Basic数据库编程 解析“震荡波”恶性蠕虫病毒

　　但只要稍懂一点计算机的人就可以再进入IE设置中修改为允许下载。本人经过研究注册表，找到了一种可禁止下载的方法，就是利用VB6编写一个小程序，通过修改注册表中的某些项目，完全禁止IE浏览器的下载功能，而且屏蔽一切修改注册表的方法。

　　一、启动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