本帖最后由 wowfiowow 于
10:35:09 编辑
Private&Sub&Form_Load()
sUrl&=&&/&
Set&xmlhttp&=&CreateObject(&msxml2.xmlhttp&)
xmlhttp.open&&GET&,&sUrl,&False
xmlhttp.send
Dim&x()&As&Byte
x()&=&xmlhttp.responsebody
xmlhttp.abort
Set&xmlhttp&=&Nothing
Set&htmlfile&=&New&HTMLDocument
htmlfile.designMode&=&&on&
htmlfile.write&StrConv(x(),&vbUnicode)
MsgBox&htmlfile.links.Item(2)
Set&htmlfile&=&Nothing
结果地址前总带有个about:blank,糟糕的是有些机器上前面的是about..
因为无法预测到底是什么？所以问下有没有办法让他消失（不用replace之类的）或直接带上前面的地址??&(对了，我这个baidu是登陆过的，不登陆的话自己调节item()里的数字，有些会出现此现象)
还有个问题，一般说Dim&x&as&XXX然后在程序里再Set&x&=&new&xxx，2句可以合成一句Dim&x&as&new&xxx,为什么这个例子里不可以直接写&Dim&htmlfile&As&New&HTMLDocument&呢？？？？
回复讨论(解决方案)
“因为无法预测到底是什么？”这是句汉语么？
还有个问题，一般说Dim&x&as&XXX然后在程序里再Set&x&=&new&xxx，2句可以合成一句Dim&x&as&new&xxx,为什么这个例子里不可以直接写&Dim&htmlfile&As&New&HTMLDocument&呢？？？？
这个例子使用了CreateObject来创建对象.那说明并未在工程中引用这个库,因此无法使用前期绑定.
sorry,看走眼了.
你的代码中肯定需要引用HTML库,而无法直接Dim&htmlfile&As&New&HTMLDocument的原因曾经在某篇文章上看到过,是因为HTMLDocument对象的接口什么的不能直接实例化,而要将实例绑定到一个接口中.具体描述忘了.
所以完整的代码应该是这样子的:
dim&oHTML&as&IHTMLDocument&&&&&&'接口
set&oHTML&=&new&htmldocument&&&&'对象实例
sorry,看走眼了.
你的代码中肯定需要引用HTML库,而无法直接Dim&htmlfile&As&New&HTMLDocument的原因曾经在某篇文章上看到过,是因为HTMLDocument对象的接口什么的不能直接实例化,而要将实例绑定到一个接口中.具体描述忘了.
所以完整的代码应该是这样子的:
dim&oHTML&as&IHTMLDocument&&&&&……
哦，事实上我没写dim&oHTML&as&IHTMLDocument&直接就set&oHTML&=&new&htmldocument了
说下第一个问题吧，那个about:blank怎么让他去掉呢？
把Set&htmlfile&=&Nothing去掉
好象没发现这情况.
有啊有啊，我那个程序是百度登陆帐号后西恶毒，你一个个遍列links总会出现地址前面是about:blank什么之类的啊
Private&Sub&Form_Load()
&&&&Dim&I&As&Long
&&&&sUrl&=&&/&
&&&&Set&xmlhttp&=&CreateObject(&msxml2.xmlhttp&)
&&&&xmlhttp.open&&GET&,&sUrl,&False
&&&&xmlhttp.send
&&&&Dim&x()&As&Byte
&&&&x()&=&xmlhttp.responseBody
&&&&xmlhttp.abort
&&&&Set&xmlhttp&=&Nothing
&&&&Set&htmlfile&=&New&HTMLDocument
&&&&htmlfile.designMode&=&&on&
&&&&htmlfile.write&StrConv(x(),&vbUnicode)
&&&&For&I&=&0&To&htmlfile.links.length&-&1
&&&&&&&&Debug.Print&htmlfile.links.Item(I)
&&&&Set&htmlfile&=&Nothing
about:blank#
about:_ylt=Al9geyCCisTzNOpzyHSBpEqbvZx4/SIG=119rip0qb/EXP=/**http%3A///
about:_ylt=Al9geyCCisTzNOpzyHSBpEqbvZx4/SIG=119rip0qb/EXP=/**http%3A///
about:_ylt=AoEYteiMYQwLqgJyMmhO6eObvZx4/SIG=11c2jvdhd/EXP=/**http%3A///
about:_ylt=Ag5t1aHI2WNPsPboNfZS90ObvZx4/SIG=11pkgj9o1/EXP=/**http%3A//images./images
about:_ylt=AkOjtl3I0uqCAv.4h2XddAKbvZx4/SIG=11ni8j06a/EXP=/**http%3A//video./video
about:_ylt=Ah.Y8YdqE7HMMXZuLpE2U_ybvZx4/SIG=11imtg132/EXP=/**http%3A///results
about:_ylt=Akh9cbl7pLnVcngwtJirl7abvZx4/SIG=11k57dco5/EXP=/**http%3A///search
about:_ylt=AnomHWMWc2kjH8MwAC89d_ObvZx4/SIG=1291oeb3v/EXP=/**http%3A//tools./about/forsearchers.html
about:blank#suggestions
/;_ylt=Alt9imdDZfLMiAp3NkTMCHWbvZx4
about:_ylt=AvkJo8orHI5_UjYen1kmiYCbvZx4/SIG=118k0sh7j/EXP=/**http%3A///
about:_ylt=AvkJo8orHI5_UjYen1kmiYCbvZx4/SIG=118k0sh7j/EXP=/**http%3A///
about:_ylt=AuqKoro7jJDwUktPG9GIyMmbvZx4/SIG=c/EXP=/**http%3A///
about:_ylt=Aur6lll8QvzP14X0LQAO5IqbvZx4/SIG=11gd84trr/EXP=/**http%3A///bin/set
about:_ylt=AjyW.y_Y.SAt3XCPJ7RJigWbvZx4/SIG=11c5p07b2/EXP=/**http%3A///y
about:_ylt=AvfhUGXCv2YJZO9UtiwxDBubvZx4/SIG=11c5p07b2/EXP=/**http%3A///y
about:_ylt=Ap_eWTTot5yOsXgYi3PrC1SbvZx4/SIG=11c5p07b2/EXP=/**http%3A///y
about:_ylt=Ah3d4svjfhigMGcFREIMzlubvZx4/SIG=11bvc7v6v/EXP=/**http%3A///
about:_ylt=AlWuoAK88UYUKD4kAaPxDGWbvZx4/SIG=12uihv14v/EXP=/**https%3A///config/eval_profile%3F.done=http%3A///
about:_ylt=AgzqnqrO45lNRHLxpl5gwCKbvZx4/SIG=11c5p07b2/EXP=/**http%3A///y
about:_ylt=AjyfqhhYU2G8qITqik8KW.2bvZx4/SIG=13s5rk78c/EXP=/**https%3A///config/login%3F.src=fpctx%26logout=1%26.direct=1%26.done=http%3A///
about:blank#
/;_ylt=Ai6sXiyMDU5HXZd0PavKCl.bvZx4?.intl=us
about:_ylt=Ap_KgLYYAvvLSVW4TJJW0qebvZx4/SIG=11b2u4jqj/EXP=/**http%3A///
about:_ylt=AiHJamj5GCbCw4DvDD1UxbubvZx4/SIG=12hi8rljq/EXP=/**http%3A///%3Ftrackingid=bannerid=673168
about:_ylt=Ai6fgmf2sz55U1IXi36ArWObvZx4/SIG=11d5nmr0d/EXP=/**http%3A///
about:_ylt=AoK0.3erjL6FNm5NnMZ5J8ibvZx4/SIG=11bqr1b0q/EXP=/**http%3A///
about:_ylt=Ao8XJoO3c_X5HFFLzwoDK.SbvZx4/SIG=11c11n82m/EXP=/**http%3A//health.yahoo.net/
about:_ylt=AuG7XbpBi8vSo5LmLdFWBM6bvZx4/SIG=11lu6319c/EXP=/**http%3A///astrology/
about:_ylt=AmVZUSHSlmb4O7mBbHQBfECbvZx4/SIG=125qej2cm/EXP=/**http%3A///%3FWT.mc_n=yta_trough_main
about:_ylt=AuWLYEUUX51vxDrrh7DElk2bvZx4/SIG=11itiv1su/EXP=/**http%3A//us./
about:_ylt=Aop7YxoayKEbwGCbEEE1At.bvZx4/SIG=11ci04d8r/EXP=/**http%3A///
about:_ylt=AtqWECgfVXJB9LZJlVhUyZqbvZx4/SIG=119ca7aqh/EXP=/**http%3A///
about:_ylt=AvPCL8UviKb9Guml3zBwo6ebvZx4/SIG=11g2la4sr/EXP=/**http%3A///
about:_ylt=AusSNGt.iozj04d9ySZPxbibvZx4/SIG=11b65sv56/EXP=/**http%3A///
about:_ylt=AvWKy9LEzF69AfXHFSgXXi2bvZx4/SIG=11e97kg64/EXP=/**http%3A///
about:_ylt=AvSIbsHazbBDmP9H_ELtYQ2bvZx4/SIG=11c4krvne/EXP=/**http%3A///
about:_ylt=ApQE1Lt0HwU.0YOmHhnQnx6bvZx4/SIG=11cd7qpmm/EXP=/**http%3A///
about:_ylt=AuynccmUisyC_8Z7quvO0n2bvZx4/SIG=11bvc7v6v/EXP=/**http%3A///
about:_ylt=Ao6pespzSN5myS.6t7SckfObvZx4/SIG=125puqldn/EXP=/**http%3A///forecast/CHXX0098_c.html
about:_ylt=Ai0l_PPN2OV8dDRw7qWSl8ybvZx4/SIG=11g1aa6d6/EXP=/**http%3A///
about:_ylt=At8DEsgShhP323tL73NnD46bvZx4/SIG=11c60hbu9/EXP=/**http%3A///
about:_ylt=AnRjJEujpJ9cxaZFDKxDGdWbvZx4/SIG=11b32h14e/EXP=/**http%3A///
javascript:void(0);
/l/us/yahoo/homepage/homepage/quicklinks_migration/migratelinks.html
/add/page?id=myy_metro&mintl=us
about:_ylt=AremlimX3WgDRM9tO84T5aybvZx4;_ylu=X3oDMTQ3ZnJnODdiBGEDMTEwNDI2IFNFRyBnYW1lcyBwbGF5c3RhdGlvbiBuZXR3b3JrIGRvd24gdARjcG9zAzEEZwNpZC04NjYzNwRpbnRsA3VzBGl0YwMwBHBrZ3YDMjAEcG9zAzEEc2VjA3RkLWZlYXQEc2xrA2ltYWdlBHRlc3QDNzAxBHdvZQMxMjcxMzczOA--/SIG=13dtmr0t8/EXP=/**http%3A//blog./blog/631-sony-issues-warning-after-playstation-network-attack
about:_ylt=Avh2cQm_UYlz.DL8pajsT96bvZx4;_ylu=X3oDMTQ3c2twcWI0BGEDMTEwNDI2IFNFRyBnYW1lcyBwbGF5c3RhdGlvbiBuZXR3b3JrIGRvd24gdARjcG9zAzEEZwNpZC04NjYzNwRpbnRsA3VzBGl0YwMwBHBrZ3YDMjAEcG9zAzIEc2VjA3RkLWZlYXQEc2xrA3RpdGxlBHRlc3QDNzAxBHdvZQMxMjcxMzczOA--/SIG=13dtmr0t8/EXP=/**http%3A//blog./blog/631-sony-issues-warning-after-playstation-network-attack
以上是我这里输出的结果的一部分.
看样子&about:&这个串是一定有的,那么就可以直接替换掉它.
Private&Sub&Form_Load()
&&&&Dim&I&As&Long
&&&&sUrl&=&&/&
&&&&Set&xmlhttp&=&CreateObject(&msxml2.xmlhttp&)
&&&&xmlhttp.open&&GET&,&sUrl,&False
&&&&xmlhttp.send
老马啊，你的我这里显示是about:blank_ylt=AremlimX3WgDRM9tO84T5aybvZx4;_ylu=X3oDMTQ3ZnJnODdiBGEDMTEwNDI2IFN
这样的啊，我前面说了不同的机器前面的字符不一样啊
这都有2种可能了，那万一再出第3种可能呢？&htmlfile里应该有个属性可以设置基础地址的吧？找了下有个什么baseurl属性不知道干啥用的
因为HTMLDocument并不是自己从网上获得的网页，所以如果是链接不是绝对地址的话（&a&hare='/1.htm&这种为绝对地址，&a&hare=1.htm&这种为相对地址）HTMLDocument是不知道怎么填充成完整地址的。只能用替换的方法。