程序
--------------------------------------------------------------------------------------------------
.子程序 发送IE命令, , , 发送IE命令
.参数 _Hwnd, 整数型, 可空, 超文本浏览框句柄
.参数 CommandType, 整数型, , 命令类型
.参数 CommandID, 整数型, , 命令值
.局部变量 _hwndSDV, 整数型, , , ShellDocObjectView
.局部变量 _hwndIES, 整数型, , , InternetExplorer_Server
' GetWebHwnd (_Hwnd, _hwndSDV, _hwndIES)
_hwndSDV = hwndSDV
_hwndIES = hwndIES
.如果真 (_hwndSDV ≠ 0 且 _hwndIES ≠ 0)
.判断开始 (CommandType = #IECMD_IES)
SendMessage (_hwndIES, #WM_COMMAND, CommandID, 0)
.默认
SendMessage (_hwndSDV, #WM_COMMAND, CommandID, 0)
--------------------------------------------------------------------------------------------------
.子程序 添加到收藏夹
.参数 _hwnd, 整数型, 可空, 句柄类名IES
发送IE命令 (_hwnd, #IECMD_IES, #ID_IE_CONTEXTMENU_ADDFAV)
--------------------------------------------------------------------------------------------------
.子程序 查看源码代码
.参数 _hwnd, 整数型, 可空, 句柄类名IES
发送IE命令 (_hwnd, #IECMD_IES, #ID_IE_CONTEXTMENU_VIEWSOURCE)
--------------------------------------------------------------------------------------------------
.子程序 刷新网页
.参数 _hwnd, 整数型, 可空, 句柄类名IES
发送IE命令 (_hwnd, #IECMD_IES, #ID_IE_CONTEXTMENU_REFRESH)
--------------------------------------------------------------------------------------------------
.子程序 网页另存为
.参数 _hwnd, 整数型, 可空, 句柄类名SDV
发送IE命令 (_hwnd, #IECMD_SDV, #ID_IE_FILE_SAVEAS)
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
消息常量表
--------------------------------------------------------------------------------------------------
.常量 IECMD_SDV, "1", 公开, 控件类型 Shell DocObject View
.常量 IECMD_IES, "2", 公开, 控件类型 Internet Explorer_Server
.常量 ID_IE_CONTEXTMENU_ADDFAV, "2261", 公开, 添加到IE收藏。"Internet Explorer_Server"窗口处理的Command ID
.常量 ID_IE_CONTEXTMENU_VIEWSOURCE, "2139", 公开, 查看网页源代码。"Internet Explorer_Server"窗口处理的Command ID
.常量 ID_IE_CONTEXTMENU_REFRESH, "6042", 公开, 刷新当前网页。"Internet Explorer_Server"窗口处理的Command ID
.常量 ID_IE_FILE_SAVEAS, "258", 公开, 保存当前网页到硬盘。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_PAGESETUP, "259", 公开, 打印页面设置。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_PRINT, "260", 公开, 页面打印。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_NEWWINDOW, "275", 公开, 新建浏览器窗口。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_PRINTPREVIEW, "277", 公开, 打印预览。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_NEWMAIL, "279", 公开, 草拟新邮件。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_SENDDESKTOPSHORTCUT, "284", 公开, 当前网页创建桌面快捷方式。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_ABOUTIE, "336", 公开, IE帮助关于Internet Explore。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_HELPINDEX, "337", 公开, IE帮助目录和索引。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_WEBTUTORIAL, "338", 公开, IE帮助导航Internet Explore。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_FREESTUFF, "341", 公开, IE帮助下载Internet Explore。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_PRODUCTUPDATE, "342", 公开, IE帮助Windows Update信息。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_FAQ, "343", 公开, IE帮助FAQ。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_ONLINESUPPORT, "344", 公开, IE帮助在线支持。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_FEEDBACK, "345", 公开, IE帮助反馈。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_BESTPAGE, "346", 公开, IE帮助Exchange Server 。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_SEARCHWEB, "347", 公开, IE帮助搜索网页。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_MSHOME, "348", 公开, IE帮助Microsoft主页。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_VISITINTERNET, "349", 公开, IE帮助Get ISDN。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_STARTPAGE, "350", 公开, IE帮助开始页面。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_IMPORTEXPORT, "374", 公开, IE文件导入和导出。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_ADDTRUST, "376", 公开, IE文件增加到可信任站点。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_ADDLOCAL, "377", 公开, IE文件增加到本地站点。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_NEWPUBLISHINFO, "387", 公开, 启动Internet连接向导。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_NEWCORRESPONDENT, "390", 公开, 启动Outlook。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_FILE_NEWCALL, "395", 公开, 启动NetMeeting。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_NETSCAPEUSER, "351", 公开, IE帮助Netscape 用户提示。"Shell DocObject View"窗口处理的Command ID
.常量 ID_IE_HELP_ENHANCEDSECURITY, "375", 公开, IE帮助增强的安全配置。"Shell DocObject View"窗口处理的Command ID
--------------------------------------------------------------------------------------------------