首先感叹下:冬至了,别人都去聚餐言欢,我去孤独写这些文字
之所以写这个东西,是一个网管朋友出50元大洋让我写的,有了这个东东,在网吧可以很轻松的做网吧增值广告了.当时是星期天,想着又没有事做,就答应了,虽知星期天的事情还真多,知道昨天晚上才搞定.
我们来看下这位朋友的要求:
1、网站址：http://www.v232.com/?username，后面的username最好能在配置文件中配置。
2、打开软件后搜索一次（搜索关键词最好从我那网站调用，因为我那网站的关键字是随机网络热门关键字地址是http://61.187.248.172:8099/listc.do这个地址最好也能配置，因为有时会变）
3、搜索一次后还必须要点击一次搜索到的结果，不然会视为无效搜索。
4、等上几秒（最好可以通过配置文件配置）再运行一次搜索即可，当然最好能让他运行三次，运行三次后还是等上几十分钟（最好能配置）再运行。
5、全后台运行，不能移动改变鼠标位置。
一条条分析下:
第一个要求,too easy ,编程花费时间可以忽略不计,用ini文件,用GetPrivateProfile**的api搞定
第二个要求:分两步,
(1)获取关键字,CInternetSession + CHttpFile后再截取字符串搞定(当然换了地址,代码换了就不行了)
(2)搜索一次,这个一次搜索,过程也是比较难搞的,大家可以打开那个http://www.v232.com/?username这个网站其实用搜狗的广告联盟,过程挺简单的,给搜索框填写关键字,然后单击搜索按钮,这里起初我想的也是很简单的,可是问题确实不断的出来,不过最终都解决了,要不我也不敢在这些这些字了,呵呵
这个过程要用本文的主角IHMLDocument2了,而且还用到了跨域访问,可以看那个网站,是把搜狗网站用iframe引进来了,两个document属于不同的域,访问就不便了,这个接口竟然也有这种限制.不过不用怕,网页都到自己的电脑上了,自己的电脑,难道还不听自己的话么.如果真是这样我宁愿把电脑砸了.
第三个要求:没什么了,第二个要求中的差不多,其实应该还简单的,因为搜索结果是一个框架的,而且又没有跨域的问题.不过唯一不好的就是搜索结果的链接默认是在新窗口打开的,这样的话,这个软件就不能够足够的隐藏了,因为会打开一个新的浏览器窗口了,解决办法,就是在当前打开了,所以更改链接的target属性.
第四个要求:用SetTimer搞定即可.
第五个要求:没什么了,隐藏对话框窗口.
先搞个图片:
下面就开始主演登场了
首先盗用别人的一张图来展示下网页的结构
我用的是VS2008中的activeX Microsoft web browser控件所以可以很容易获取到IHTMLDocument2对象
m_ie是与activeX Microsoft web browser控件关联的变量,CComPtr是Com了,可以实现智能指针
代码
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
上面在分析中说了要第二个要求中,有框架的,还要跨域的,可以看上图,我们知道对已访问框架网页的IHtmlDocument2,我们需要要获取Frame对象,然后是Window对象,然后再次才是框架网页的IHTMLDocument2对象.
所以就按此顺序来了
代码
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0) //检测下状态
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;//为了跨域访问
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd); //为了跨域访问,此函数突破跨域限制
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0) //检测下状态
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;//为了跨域访问
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd); //为了跨域访问,此函数突破跨域限制
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
做这些访问操作,需要多加判断,或者用try catch了.
主要是这个IDispatch,刚才我也弄得头晕了,后来就明白了,可以把这个看成对封装一大堆元素东西的结构,就像我们访问Document中的元素,一次得到都是封装的,这个IDsipach可以返回我们想要的,记得用get_all,get_frames,get_forms等返回的都是一块东西,我们没有办法直接访问,然后有一个专门拆包的人,我们说要个input元素,然后这个人就到包里找,找到了就给我们,找不到了,就不进行操作了.就像我高中学校里的传达室一样,每次都有很多邮件在一个箱子里,我没有权利去检查里面有没有我或者我同学的信,我每次都得问那老爷爷有没有"谁谁谁"的信,老爷爷在里面找半天,有了就给我,没了,也不理我,继续给其他同学找信.
传达室就像一个Document对象,而箱子就是一些元素的集合,老爷爷就是IDispatch了,信和邮件就是我们要的网页元素了,像a input table等.
上面的代码中有突破跨域的,其实也是很实用的,这个传达室没有我的邮件,我得到另一个找找看了,不能吊死到一棵树上呀
上面用到得HtmlWindowToHtmlDocument函数是从MSDN的forum上找到得,经过我稍微的改版,改成适合我当前工程的函数,下面贴出来了
代码
CComPtr<IWebBrowser2> CTimerSerachDlg::HtmlWindowToHtmlWebBrowser(CComPtr<IHTMLWindow2> spWindow)
{
ATLASSERT(spWindow != NULL);
CComQIPtr<IServiceProvider> spServiceProvider = spWindow;
if (spServiceProvider == NULL)
{
return CComPtr<IWebBrowser2>();
}
CComPtr<IWebBrowser2> spWebBrws;
HRESULT hRes = spServiceProvider->QueryService(IID_IWebBrowserApp, IID_IWebBrowser2, (void**)&spWebBrws);
if (hRes != S_OK)
{
return CComPtr<IWebBrowser2>();
}
return spWebBrws;
}
// Converts a IHTMLWindow2 object to a IHTMLDocument2. Returns NULL in case of failure.
// It takes into account accessing the DOM across frames loaded from different domains.
CComPtr<IHTMLDocument2> CTimerSerachDlg::HtmlWindowToHtmlDocument(CComPtr<IHTMLWindow2> spWindow)
{
ATLASSERT(spWindow != NULL);
CComPtr<IHTMLDocument2> spDocument;
HRESULT hRes = spWindow->get_document(&spDocument);
if ((S_OK == hRes) && (spDocument != NULL))
{
// The html document was properly retrieved.
return spDocument;
}
// hRes could be E_ACCESSDENIED that means a security restriction that
// prevents scripting across frames that loads documents from different internet domains.
CComPtr<IWebBrowser2> spBrws = HtmlWindowToHtmlWebBrowser(spWindow);
if (spBrws == NULL)
{
return CComPtr<IHTMLDocument2>();
}
// Get the document object from the IWebBrowser2 object.
CComPtr<IDispatch> spDisp; hRes = spBrws->get_Document(&spDisp);
spDocument = spDisp;
return spDocument;
}
{
ATLASSERT(spWindow != NULL);
CComQIPtr<IServiceProvider> spServiceProvider = spWindow;
if (spServiceProvider == NULL)
{
return CComPtr<IWebBrowser2>();
}
CComPtr<IWebBrowser2> spWebBrws;
HRESULT hRes = spServiceProvider->QueryService(IID_IWebBrowserApp, IID_IWebBrowser2, (void**)&spWebBrws);
if (hRes != S_OK)
{
return CComPtr<IWebBrowser2>();
}
return spWebBrws;
}
// Converts a IHTMLWindow2 object to a IHTMLDocument2. Returns NULL in case of failure.
// It takes into account accessing the DOM across frames loaded from different domains.
CComPtr<IHTMLDocument2> CTimerSerachDlg::HtmlWindowToHtmlDocument(CComPtr<IHTMLWindow2> spWindow)
{
ATLASSERT(spWindow != NULL);
CComPtr<IHTMLDocument2> spDocument;
HRESULT hRes = spWindow->get_document(&spDocument);
if ((S_OK == hRes) && (spDocument != NULL))
{
// The html document was properly retrieved.
return spDocument;
}
// hRes could be E_ACCESSDENIED that means a security restriction that
// prevents scripting across frames that loads documents from different internet domains.
CComPtr<IWebBrowser2> spBrws = HtmlWindowToHtmlWebBrowser(spWindow);
if (spBrws == NULL)
{
return CComPtr<IHTMLDocument2>();
}
// Get the document object from the IWebBrowser2 object.
CComPtr<IDispatch> spDisp; hRes = spBrws->get_Document(&spDisp);
spDocument = spDisp;
return spDocument;
}
英文注释都保留了,原理就是同window来获取Document对象了,我早说了,自己的电脑能不听自己的话么.即使不听,也得教训下,让它听话.
其实上面基本就是核心代码了,这里需要注意的就是VARIANT 和BSTR类型变量的使用,这个网上的资料还是很多的,我看网上的资料没看明白,看msdn明白了.
VARIANT 就是一个为了实现语言无关性,Com接口中的.用的时候,就是指定下当前的数据类型,然后往指定的数据类型的属性中赋值就可以了,是一个封装了大多数基本数据类型的类.
还有一个难点就是,到了搜索结果页,直接用IHTMLLinkElement2 和IHTMLLinkElement都得不到A的链接,无奈了,用IHTMElement2 IHTMElement 都可以了的,起初直接用IHTMLLinkElement2强制转换IHTMElement2 ,然后修改链接的target(IHTMLLinkElement2才有的)属性,不行,肯定不行了,向下类的继承也知道不行的.这折腾了我好长时间.就又到msdn看呀看,终于看了到了IHTMLElement 的SetAttribute、RemoveAttribute，顿感救星来了，果然如此，用SetAttribute("target","_self");当然里面的字符串要用BSTR了,到此就完成了,中间隔时间,我全部用SetTimer来完成,下面贴出OnTimer的代码(我调试的代码都在,有的代码是没有用的了)
代码
void CTimerSerachDlg::OnTimer(UINT_PTR nIDEvent)
{
// TODO: 在此添加消息处理程序代码和/或调用默认值
BSTR state = {0};
char *pSate=NULL;
if (nIDEvent==1)
{
GetKeyWord();
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0) //检测下状态
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd);
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pForms = NULL;
pChilDoc->get_forms(&pForms);
long formCount = 0;
pForms->get_length(&formCount);
CComPtr<IDispatch> formDis = NULL;
_variant_t index = 0;
hr = pForms->item(index,index,&formDis);
if (hr!=S_OK)
{
return;
}
//get the form interface
CComPtr<IHTMLFormElement> pFirstForm = NULL;
hr = formDis->QueryInterface(IID_IHTMLFormElement,(void **)&pFirstForm);
if (hr!=S_OK)
{
return;
}
formDis.Release();
BSTR formName = {0};
pFirstForm->get_name(&formName);
CComPtr<IDispatch> inputDis = NULL;
index = 4;
pFirstForm->item(index,index,&inputDis);
CComPtr<IHTMLInputTextElement> qElem = NULL;
inputDis->QueryInterface(IID_IHTMLInputTextElement,(void**)&qElem);
inputDis.Release();
BSTR tagName={0};
BSTR id={0};
qElem->get_name(&tagName);
BSTR value = {0};
qElem->put_value(value);
value=m_keyWord.AllocSysString();
qElem->put_value(value);
SysFreeString(value);
//成功后,就不用了
KillTimer(1);
SetTimer(2,5000,NULL);//开始单击按钮
}
if (nIDEvent==2)
{
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0)
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd);
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pForms = NULL;
pChilDoc->get_forms(&pForms);
long formCount = 0;
pForms->get_length(&formCount);
CComPtr<IDispatch> formDis = NULL;
_variant_t index = 0;
hr = pForms->item(index,index,&formDis);
if (hr!=S_OK)
{
return;
}
//get the form interface
CComPtr<IHTMLFormElement> pFirstForm = NULL;
hr = formDis->QueryInterface(IID_IHTMLFormElement,(void **)&pFirstForm);
if (hr!=S_OK)
{
return;
}
formDis.Release();
BSTR formName = {0};
pFirstForm->get_name(&formName);
CComPtr<IDispatch> inputDis = NULL;
index = 5;
pFirstForm->item(index,index,&inputDis);
CComPtr<IHTMLElement> qElem = NULL;
inputDis->QueryInterface(IID_IHTMLElement,(void**)&qElem);
inputDis.Release();
BSTR tagName={0};
BSTR id={0};
qElem->get_tagName(&tagName);
qElem->get_title(&tagName);
/*BSTR value = {0};
qElem->put_value(value);
value=m_keyWord.AllocSysString();
qElem->put_value(value);
SysFreeString(value); */
qElem->click();
//成功后,就不用了
KillTimer(2);
SetTimer(3,5000,NULL);//开始单击搜索结果
}
if (nIDEvent==3)
{
//重新获取Document
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0)
{
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pElems=NULL;
hr = spHtmlDoc->get_all(&pElems);
if (S_OK!=hr || pElems==NULL)
{
return;
}
CComPtr<IDispatch> elemDis = NULL;
VARIANT vName;
VARIANT vIndex;
vName.vt = VT_BSTR;
vIndex.vt = VT_I4;
vIndex.intVal = 0;
BSTR bstrName;
CString strName=_T("dttl");
vName.bstrVal = strName.AllocSysString();
hr = pElems->item(vName,vIndex,&elemDis);
if (S_OK!=hr || elemDis==NULL)
{
return;
}
IHTMLElement2 *pLink = NULL;
hr = elemDis->QueryInterface(IID_IHTMLElement2,(void **)&pLink);
if (S_OK!=hr || pLink==NULL)
{
return;
}
BSTR tagName={0};
//pLink->get_tagName(&tagName);
IHTMLLinkElement2 * link = (IHTMLLinkElement2*)pLink;
//link->get_type(&tagName);
//pLink->QueryInterface(IID_IHTMLLinkElement2,(void **)&link);
CString strTarget=_T("_self");
link->get_target(&tagName);
BSTR bstrTarget = strTarget.AllocSysString();
link->put_target(bstrTarget);
//SysFreeString(bstrTarget);
link->get_target(&tagName);
//pLink->get_outerHTML(&tagName);
//pLink->click();
IHTMLElement *pClickElem = NULL;
hr = elemDis->QueryInterface(IID_IHTMLElement,(void **)&pClickElem);
elemDis.Release();
if (S_OK!=hr || pClickElem==NULL)
{
return;
}
IHTMLLinkElement *pClickLink = (IHTMLLinkElement *)pClickElem;
//pClickLink->get_href(&tagName);
pClickElem->get_outerHTML(&tagName);
CString attr = _T("target");
BSTR attrName = attr.AllocSysString();
VARIANT attrValue;
CString strAttrValue = _T("_self");
hr = pClickElem->getAttribute(attrName,2,&attrValue);
attrValue.bstrVal = strAttrValue.AllocSysString();
hr = pClickElem->setAttribute(attrName,attrValue,0);
hr = pClickElem->getAttribute(attrName,2,&attrValue);
//pClickLink->get_href(&tagName);
pClickElem->click();
KillTimer(3);
SetTimer(4,m_nSecond * 1000,NULL);//再次进行搜索,过上几秒
//
}
if(nIDEvent==4)
{
m_ie.Navigate(m_url,NULL,NULL,NULL,NULL);
GetKeyWord();
SetTimer(5,5000,NULL);//再次获取Document进行搜索
KillTimer(4);
}
if (nIDEvent==5)
{
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0)
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd);
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pForms = NULL;
pChilDoc->get_forms(&pForms);
long formCount = 0;
pForms->get_length(&formCount);
CComPtr<IDispatch> formDis = NULL;
_variant_t index = 0;
hr = pForms->item(index,index,&formDis);
if (hr!=S_OK)
{
return;
}
//get the form interface
CComPtr<IHTMLFormElement> pFirstForm = NULL;
hr = formDis->QueryInterface(IID_IHTMLFormElement,(void **)&pFirstForm);
if (hr!=S_OK)
{
return;
}
formDis.Release();
BSTR formName = {0};
pFirstForm->get_name(&formName);
CComPtr<IDispatch> inputDis = NULL;
index = 4;
pFirstForm->item(index,index,&inputDis);
CComPtr<IHTMLInputTextElement> qElem = NULL;
inputDis->QueryInterface(IID_IHTMLInputTextElement,(void**)&qElem);
inputDis.Release();
BSTR tagName={0};
BSTR id={0};
qElem->get_name(&tagName);
BSTR value = {0};
qElem->put_value(value);
value=m_keyWord.AllocSysString();
qElem->put_value(value);
SysFreeString(value);
//成功后,就不用了
KillTimer(5);
SetTimer(6,5000,NULL);//第二次单击按钮
}
if(nIDEvent==6)
{
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0)
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd);
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pForms = NULL;
pChilDoc->get_forms(&pForms);
long formCount = 0;
pForms->get_length(&formCount);
CComPtr<IDispatch> formDis = NULL;
_variant_t index = 0;
hr = pForms->item(index,index,&formDis);
if (hr!=S_OK)
{
return;
}
//get the form interface
CComPtr<IHTMLFormElement> pFirstForm = NULL;
hr = formDis->QueryInterface(IID_IHTMLFormElement,(void **)&pFirstForm);
if (hr!=S_OK)
{
return;
}
formDis.Release();
BSTR formName = {0};
pFirstForm->get_name(&formName);
CComPtr<IDispatch> inputDis = NULL;
index = 5;
pFirstForm->item(index,index,&inputDis);
CComPtr<IHTMLElement> qElem = NULL;
inputDis->QueryInterface(IID_IHTMLElement,(void**)&qElem);
inputDis.Release();
BSTR tagName={0};
BSTR id={0};
qElem->get_tagName(&tagName);
qElem->get_title(&tagName);
/*BSTR value = {0};
qElem->put_value(value);
value=m_keyWord.AllocSysString();
qElem->put_value(value);
SysFreeString(value); */
qElem->click();
//成功后,就不用了
KillTimer(6);
SetTimer(1,m_nMinute*60*1000,NULL);//又重新开始
}
CDialog::OnTimer(nIDEvent);
}
{
// TODO: 在此添加消息处理程序代码和/或调用默认值
BSTR state = {0};
char *pSate=NULL;
if (nIDEvent==1)
{
GetKeyWord();
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0) //检测下状态
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd);
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pForms = NULL;
pChilDoc->get_forms(&pForms);
long formCount = 0;
pForms->get_length(&formCount);
CComPtr<IDispatch> formDis = NULL;
_variant_t index = 0;
hr = pForms->item(index,index,&formDis);
if (hr!=S_OK)
{
return;
}
//get the form interface
CComPtr<IHTMLFormElement> pFirstForm = NULL;
hr = formDis->QueryInterface(IID_IHTMLFormElement,(void **)&pFirstForm);
if (hr!=S_OK)
{
return;
}
formDis.Release();
BSTR formName = {0};
pFirstForm->get_name(&formName);
CComPtr<IDispatch> inputDis = NULL;
index = 4;
pFirstForm->item(index,index,&inputDis);
CComPtr<IHTMLInputTextElement> qElem = NULL;
inputDis->QueryInterface(IID_IHTMLInputTextElement,(void**)&qElem);
inputDis.Release();
BSTR tagName={0};
BSTR id={0};
qElem->get_name(&tagName);
BSTR value = {0};
qElem->put_value(value);
value=m_keyWord.AllocSysString();
qElem->put_value(value);
SysFreeString(value);
//成功后,就不用了
KillTimer(1);
SetTimer(2,5000,NULL);//开始单击按钮
}
if (nIDEvent==2)
{
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0)
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd);
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pForms = NULL;
pChilDoc->get_forms(&pForms);
long formCount = 0;
pForms->get_length(&formCount);
CComPtr<IDispatch> formDis = NULL;
_variant_t index = 0;
hr = pForms->item(index,index,&formDis);
if (hr!=S_OK)
{
return;
}
//get the form interface
CComPtr<IHTMLFormElement> pFirstForm = NULL;
hr = formDis->QueryInterface(IID_IHTMLFormElement,(void **)&pFirstForm);
if (hr!=S_OK)
{
return;
}
formDis.Release();
BSTR formName = {0};
pFirstForm->get_name(&formName);
CComPtr<IDispatch> inputDis = NULL;
index = 5;
pFirstForm->item(index,index,&inputDis);
CComPtr<IHTMLElement> qElem = NULL;
inputDis->QueryInterface(IID_IHTMLElement,(void**)&qElem);
inputDis.Release();
BSTR tagName={0};
BSTR id={0};
qElem->get_tagName(&tagName);
qElem->get_title(&tagName);
/*BSTR value = {0};
qElem->put_value(value);
value=m_keyWord.AllocSysString();
qElem->put_value(value);
SysFreeString(value); */
qElem->click();
//成功后,就不用了
KillTimer(2);
SetTimer(3,5000,NULL);//开始单击搜索结果
}
if (nIDEvent==3)
{
//重新获取Document
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0)
{
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pElems=NULL;
hr = spHtmlDoc->get_all(&pElems);
if (S_OK!=hr || pElems==NULL)
{
return;
}
CComPtr<IDispatch> elemDis = NULL;
VARIANT vName;
VARIANT vIndex;
vName.vt = VT_BSTR;
vIndex.vt = VT_I4;
vIndex.intVal = 0;
BSTR bstrName;
CString strName=_T("dttl");
vName.bstrVal = strName.AllocSysString();
hr = pElems->item(vName,vIndex,&elemDis);
if (S_OK!=hr || elemDis==NULL)
{
return;
}
IHTMLElement2 *pLink = NULL;
hr = elemDis->QueryInterface(IID_IHTMLElement2,(void **)&pLink);
if (S_OK!=hr || pLink==NULL)
{
return;
}
BSTR tagName={0};
//pLink->get_tagName(&tagName);
IHTMLLinkElement2 * link = (IHTMLLinkElement2*)pLink;
//link->get_type(&tagName);
//pLink->QueryInterface(IID_IHTMLLinkElement2,(void **)&link);
CString strTarget=_T("_self");
link->get_target(&tagName);
BSTR bstrTarget = strTarget.AllocSysString();
link->put_target(bstrTarget);
//SysFreeString(bstrTarget);
link->get_target(&tagName);
//pLink->get_outerHTML(&tagName);
//pLink->click();
IHTMLElement *pClickElem = NULL;
hr = elemDis->QueryInterface(IID_IHTMLElement,(void **)&pClickElem);
elemDis.Release();
if (S_OK!=hr || pClickElem==NULL)
{
return;
}
IHTMLLinkElement *pClickLink = (IHTMLLinkElement *)pClickElem;
//pClickLink->get_href(&tagName);
pClickElem->get_outerHTML(&tagName);
CString attr = _T("target");
BSTR attrName = attr.AllocSysString();
VARIANT attrValue;
CString strAttrValue = _T("_self");
hr = pClickElem->getAttribute(attrName,2,&attrValue);
attrValue.bstrVal = strAttrValue.AllocSysString();
hr = pClickElem->setAttribute(attrName,attrValue,0);
hr = pClickElem->getAttribute(attrName,2,&attrValue);
//pClickLink->get_href(&tagName);
pClickElem->click();
KillTimer(3);
SetTimer(4,m_nSecond * 1000,NULL);//再次进行搜索,过上几秒
//
}
if(nIDEvent==4)
{
m_ie.Navigate(m_url,NULL,NULL,NULL,NULL);
GetKeyWord();
SetTimer(5,5000,NULL);//再次获取Document进行搜索
KillTimer(4);
}
if (nIDEvent==5)
{
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0)
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd);
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pForms = NULL;
pChilDoc->get_forms(&pForms);
long formCount = 0;
pForms->get_length(&formCount);
CComPtr<IDispatch> formDis = NULL;
_variant_t index = 0;
hr = pForms->item(index,index,&formDis);
if (hr!=S_OK)
{
return;
}
//get the form interface
CComPtr<IHTMLFormElement> pFirstForm = NULL;
hr = formDis->QueryInterface(IID_IHTMLFormElement,(void **)&pFirstForm);
if (hr!=S_OK)
{
return;
}
formDis.Release();
BSTR formName = {0};
pFirstForm->get_name(&formName);
CComPtr<IDispatch> inputDis = NULL;
index = 4;
pFirstForm->item(index,index,&inputDis);
CComPtr<IHTMLInputTextElement> qElem = NULL;
inputDis->QueryInterface(IID_IHTMLInputTextElement,(void**)&qElem);
inputDis.Release();
BSTR tagName={0};
BSTR id={0};
qElem->get_name(&tagName);
BSTR value = {0};
qElem->put_value(value);
value=m_keyWord.AllocSysString();
qElem->put_value(value);
SysFreeString(value);
//成功后,就不用了
KillTimer(5);
SetTimer(6,5000,NULL);//第二次单击按钮
}
if(nIDEvent==6)
{
HRESULT hr = E_FAIL;
CComPtr<IDispatch> spDispDoc = m_ie.get_Document();
CComPtr<IHTMLDocument2> spHtmlDoc = NULL;
hr = spDispDoc->QueryInterface(IID_IHTMLDocument2,(void **)&spHtmlDoc);
if (FAILED(hr) || NULL == spHtmlDoc)
{
//return FALSE;
}
spHtmlDoc->get_readyState(&state);
pSate = _com_util::ConvertBSTRToString(state);
if(strcmp(pSate,"complete")==0)
{
}
else
{
return;
}
//开始解析网页
CComPtr<IHTMLWindow2> pHTMLWnd = NULL;
CComPtr<IHTMLDocument2> pChilDoc = NULL;
LPDISPATCH lpDispatch;
CComPtr<IHTMLFramesCollection2> pFrames=NULL;
spHtmlDoc->get_frames(&pFrames);
long frameCount = 0;
pFrames->get_length(&frameCount);
//获取第一个frame
VARIANT varindex,varresult;
varresult.vt=VT_DISPATCH;
varindex.vt = VT_I4;
varindex.lVal = 0;
hr = pFrames->item(&varindex, &varresult);
if (S_OK != hr)
{
return;
}
lpDispatch = (LPDISPATCH)varresult.ppdispVal;
if(SUCCEEDED(lpDispatch->QueryInterface(IID_IHTMLWindow2, (LPVOID *)&pHTMLWnd)))
{
pChilDoc = HtmlWindowToHtmlDocument(pHTMLWnd);
if (pChilDoc==NULL)
{
return;
}
}
else
{
return;
}
CComPtr<IHTMLElementCollection> pForms = NULL;
pChilDoc->get_forms(&pForms);
long formCount = 0;
pForms->get_length(&formCount);
CComPtr<IDispatch> formDis = NULL;
_variant_t index = 0;
hr = pForms->item(index,index,&formDis);
if (hr!=S_OK)
{
return;
}
//get the form interface
CComPtr<IHTMLFormElement> pFirstForm = NULL;
hr = formDis->QueryInterface(IID_IHTMLFormElement,(void **)&pFirstForm);
if (hr!=S_OK)
{
return;
}
formDis.Release();
BSTR formName = {0};
pFirstForm->get_name(&formName);
CComPtr<IDispatch> inputDis = NULL;
index = 5;
pFirstForm->item(index,index,&inputDis);
CComPtr<IHTMLElement> qElem = NULL;
inputDis->QueryInterface(IID_IHTMLElement,(void**)&qElem);
inputDis.Release();
BSTR tagName={0};
BSTR id={0};
qElem->get_tagName(&tagName);
qElem->get_title(&tagName);
/*BSTR value = {0};
qElem->put_value(value);
value=m_keyWord.AllocSysString();
qElem->put_value(value);
SysFreeString(value); */
qElem->click();
//成功后,就不用了
KillTimer(6);
SetTimer(1,m_nMinute*60*1000,NULL);//又重新开始
}
CDialog::OnTimer(nIDEvent);
}
小软件没有设计,所有代码都放到一起了,每个timer里一些代码都是重复的,就是复制的,就是对于特定元素访问了,这里没能够像js或者jQuery之类框架那样很便利的获取元素了,如果以后有时间,倒想写一个这样类出来,可以方便以后的使用,做个小软件开发,刷个流量,自动搜索,自动投票,等等,很多东西都可以做的出来了.
以前晚黑的时候,经常光临啊D的博客,记得他好像在一篇博文里展示了自己修改Dom,打开百度主页,百度俩字变成啊D了,一直很是崇拜,现在自己也可以实现,想想可以用很多种方式实现的,也没有什么新鲜的感觉了.
哎,俯仰之间,向之欣欣已为陈迹,和当初我喜欢的女孩一样
