|
发表于 2010-12-1 12:28:03
|
显示全部楼层
云南省文山壮族苗族自治州
回第四个问题:
这个需要在 程序数据里建立程序集:
.版本 2
.程序集 功能程序集
.子程序 SendIECommand, , , 发送IE命令
.参数 Hwnd, 整数型, , 网页框句柄
.参数 CommandType, 整数型, , 命令类型
.参数 CommandID, 整数型, , 命令ID
.局部变量 hwndSDV, 整数型, , , Shell DocObject View
.局部变量 hwndIES, 整数型, , , Internet Explorer_Server
GetWebHwnd (Hwnd, hwndSDV, hwndIES)
.如果真 (hwndSDV ≠ 0 且 hwndIES ≠ 0)
.判断开始 (CommandType = #IECMD_IES)
SendMessage (hwndIES, #WM_COMMAND, CommandID, 0)
.默认
SendMessage (hwndSDV, #WM_COMMAND, CommandID, 0)
.判断结束
.如果真结束
.子程序 GetWebHwnd, , , 取网页框(WebBrowser)的子窗口句柄
.参数 Hwnd, 整数型
.参数 hwndSDV, 整数型, 参考, Shell DocObject View
.参数 hwndIES, 整数型, 参考, Internet Explorer_Server
.局部变量 n, 整数型
.局部变量 ClassName, 文本型
n = FindWindowEx (Hwnd, 0, 0, 0)
.判断循环首 (n ≠ 0)
ClassName = 取空白文本 (255)
GetClassName (n, ClassName, 255)
.如果 (ClassName = “Shell DocObject View”)
hwndSDV = n
跳出循环 ()
.否则
GetWebHwnd (n, hwndSDV, hwndIES)
.如果结束
n = FindWindowEx (Hwnd, n, 0, 0)
.判断循环尾 ()
.如果真 (hwndSDV ≠ 0)
ClassName = 取空白文本 (255)
GetClassName (hwndSDV, ClassName, 255)
.如果真 (ClassName = “Shell DocObject View”)
hwndIES = FindWindowEx (hwndSDV, 0, 0, 0)
.如果真结束
.如果真结束 |
|