获得ActiveX控件所在网页的信息 .

 基本上翻译自以下两文
http://support.microsoft.com/kb/172763/EN-US/#appliesto
http://support.microsoft.com/kb/181678

一. 获得所在IE页面的URL

1.    获得IOleClientSite接口指针
2.    调用IOleClientSite::GetMoniker()获得client site的moniker对象指针
3.    调用IMoniker::GetDisplayName()获得当前文档的URL

下面是ATL中获得URL的例程,这里是在SetClientSite中获得,可以在其它任何时候获得
STDMETHOD(SetClientSite)(IOleClientSite *pClientSite)
{
if (pClientSite != NULL)
{
// Obtain URL from container moniker.
CComPtr<IMoniker> spmk;
LPOLESTR pszDisplayName;

if (SUCCEEDED(pClientSite->GetMoniker(
OLEGETMONIKER_TEMPFORUSER,
OLEWHICHMK_CONTAINER,
&spmk)))
{
if (SUCCEEDED(spmk->GetDisplayName(
NULL, NULL, &pszDisplayName)))
{
USES_CONVERSION;

CComBSTR bstrURL;
bstrURL = pszDisplayName;

ATLTRACE("The current URL is %s/n", OLE2T(bstrURL));
CoTaskMemFree((LPVOID)pszDisplayName);
}
}
}

return IOleObject_SetClientSite(pClientSite);
}
在MFC中,可以重载COleControl::OnSetClientSite在设置ClientSite时就获得URL
void CMyCtrl::OnSetClientSite(){
LPOLECLIENTSITE pClientSite = GetClientSite();
......//其它同上。
}

二.   访问所在文档的对象模型,即document,element等等东西

1.   获得IWebBrowserApp,使用
a.使用IOleClientSite接口获得IServiceProvider接口
CComQIPtr<IServiceProvider> pISP;
pClientSite->QueryInterface(IID_IServiceProvider,
(void **)&pISP);

b.使用IServiceProvider接口获得IWebBrowserApp接口
pISP->QueryService(SID_SWebBrowserApp, IID_IWebBrowserApp,
(void **)&pIWebBrowserApp));

对于IE4或以后版本,也可以获得IWebBrowserApp2接口
pISP->QueryService(IID_IWebBrowserApp, IID_IWebBrowser2,
(void **)&pIWebBrowser2));
2.使用IWebBrowserApp获得文档(document)对象,接着是其它对象。
获取计算机MAC、硬盘ID、操作系统等信息ActiveX库 示例程序: ClientInfoX JavaScript Sample xo=new ActiveXObject("ClientInfo.HostInfo") ////////////////////////////////////////////////// //函数与方法 ////////////////////////////////////////////////// function AddInfo(sInf) { document.getElementById("mbox").value = "\r" +sInf +document.getElementById("mbox").value; } function GetWindowsVersion() { AddInfo("GetWindowsVersion: "+xo.GetWindowsVersion()); getusername(); } function GetCPU_ID() { AddInfo("GetCPU_ID: "+xo.GetCPU_ID()); } function GetAdapterMac() { AddInfo("GetNET_ID: "+xo.GetAdapterMac(0)); } function GetIdeSerialNumber() { AddInfo("GetIdeSerialNumber: "+xo.GetIdeSerialNumber()); } function ClearmBox() { document.getElementById("mbox").value = ""; } //取得机器名,登录域及登录用户名 function getusername() { var WshNetwork = new ActiveXObject("WScript.Network"); alert("Domain = " + WshNetwork.UserDomain); alert("Computer Name = " + WshNetwork.ComputerName); alert("User Name = " + WshNetwork.UserName); } //取得系统目录 function getprocessnum() { var pnsys=new ActiveXObject("WScript.shell"); pn=pnsys.Environment("PROCESS"); alert(pn("WINDIR")); } //返回系统中特殊目录的路径 function getspecialfolder() { var mygetfolder=new ActiveXObject("WScript.shell"); if(mygetfolder.SpecialFolders("Fonts")!=null) { alert(mygetfolder.SpecialFolders("Fonts")); } } //取得磁盘信息 传入参数如:getdiskinfo('c') function getdiskinfo(para) { var fs=new ActiveXObject("scripting.filesystemobject"); d=fs.GetDrive(para); s="卷标:" + d.VolumnName; s+="------" + "剩余空间:" + d.FreeSpace/1024/1024 + "M"; s+="------" + "磁盘序列号:" + d.serialnumber; alert(s) } //取得系统目录 function getprocessnum() { var pnsys=new ActiveXObject("WScript.shell"); pn=pnsys.Environment("PROCESS"); alert(pn("WINDIR")); } //启动计算器 function runcalc() { var calc=new ActiveXObject("WScript.shell"); calc.Run("calc"); } //读取注册表中的值 function readreg() { var myreadreg=new ActiveXObject("WScript.shell"); try{ alert(myreadreg.RegRead ("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\NeroCheck")); } catch(e) { alert("读取的值不存在!"); } } //写注册表 function writereg() { var mywritereg=new ActiveXObject("WScript.shell"); try{ mywritereg.RegWrite("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\MyTest","c:\\mytest.exe"); alert("写入成功!"); } catch(e) { alert("写入路径不正确!"); } } //删除注册表 function delreg() { var mydelreg=new ActiveXObject("WScript.shell"); if(confirm("是否真的删除?")) { try{ mydelreg.RegDelete("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\MyTest"); alert("删除成功!"); } catch(e) { alert("删除路径不正确"); } } } //取得文件信息 调用方式如:getfileinfo('c:\\test.pdf') function getfileinfo(para) { var myfile=new ActiveXObject("scripting.filesystemobject"); var fi=myfile.GetFile(para); alert("文件类型:"+fi.type+"文件大小:"+fi.size/1024/1024+"M"+"最后一次访问时间:"+fi.DateLastAccessed); } //取得客户端的信息 function clientInfo() { strClientInfo="availHeight= "+window.screen.availHeight+"\n"+ "availWidth= "+window.screen.availWidth+"\n"+ "bufferDepth= "+window.screen.bufferDepth+"\n"+ "colorDepth= "+window.screen.colorDepth+"\n"+ "colorEnable= "+window.navigator.cookieEnabled+"\n"+ "cpuClass= "+window.navigator.cpuClass+"\n"+ "height= "+window.screen.height+"\n"+ "javaEnable= "+window.navigator.javaEnabled()+"\n"+ "platform= "+window.navigator.platform+"\n"+ "systemLanguage= "+window.navigator.systemLanguage+"\n"+ "userLanguage= "+window.navigator.userLanguage+"\n"+ "width= "+window.screen.width; alert(strClientInfo); } ClientInfoX.dll 实例 消息窗口
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值