用秘密API实现几个IE操作

IT商界

马坤

　　大家知道，用IE浏览器可以实现文件下载，更改Internet选项，整理收藏夹众多功能。下面，我用几个微软未公开的API函数(在API阅览器中是找不到的，所以大家一定要记住这几个函数的声明)，通过编程工具VB6.0实现上述操作。

　　①实现文件下载

　　函数声明为：

　　Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

　　其中参数lpszFile为要下载的URL地址的Unicode码

　　例如：DoFileDownload StrConv(“http://www.sohu.com”,vbUnicode)选择要保存的文件名(图1)，即实现搜狐主页的下载。

　　②打开整理收藏夹窗口

　　函数声明为：

　　Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" (ByVal lphwnd As Long,ByVal FavName As String) As Long

　　lphwnd

　　/调用它的窗口的句柄

　　FavName

　　/要整理的收藏夹名称

　　例如：DoOrganizeFavDlg Me.hWnd, vbNullString

　　③打开Internet选项

　　函数声明为：

　　Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal lphwnd As Long) As Long

　　参数lphwnd为调用它的窗口的句柄

　　例如：LaunchInternetControlPanel Me.hWnd

　　这样的调用是动态的，调用它的程序知道它是什么时候打开的。

　　运行后界面为图2。

　　上述几例是笔者的经验所得，在WinXP和VB6.0SP5测试通过。