VFP 取得某WebBrowser网页内容！

yrt888 2010-12-20 10:30:09

一个表单里有一个WebBrowser控件，打开一个网页，知道是一个网游网页，里看到有FLUSH，想在想如何在WebBrowser里确定网页里有FLUSH，谢谢 !

...全文

638 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

yrt888 2010-12-20

打赏
举报

[Quote=引用 9 楼 wwwwb 的回复:]
这样试试
strContent =''
For i = 0 To thisform.web.Document.All.length - 1
If thisform.web.Document.All(i).tagName = "HTML" Then
strContent = strContent + thisform.Web.Document.All(i).innerHTML
……
[/Quote]
这个方法可以保存网页内容，谢谢！
经观察，确定FLASH 十分复杂，还是先不理了，谢谢！

wwwwb 2010-12-20

打赏
举报

这样试试
strContent =''
For i = 0 To thisform.web.Document.All.length - 1
If thisform.web.Document.All(i).tagName = "HTML" Then
strContent = strContent + thisform.Web.Document.All(i).innerHTML
*Exit For
EndIf
NEXT
=STRTOFILE(strContent,'r:\temp\123.txt')

十豆三 2010-12-20

打赏
举报

如：VFP将网页保存到本地
Local lcRemoteUrl,lcRemoteFile,lcLocalhtm,lcLocalFile
Declare Integer DeleteUrlCacheEntry In Wininet.Dll String szUrl
Declare Integer URLDownloadToFile In urlmon.Dll Integer pCaller,String szURL,String szFileName,Integer dwReserved,Integer lpfnCB
*--下载网页
lcRemoteUrl="http://www.163.com"
lcLocalhtm="c:\xxx.htm"
=DeleteUrlCacheEntry(lcRemoteUrl) &&清理缓存，这对实时刷新的数据时很有用。
If URLDownloadToFile(0,lcRemoteUrl,lcLocalhtm,0,0)=0
Messagebox("下载成功！",64,'信息提示')
这里用 Filetostr将 c:\xxx.htm转成字符串，然后对字符串查找
Else
Messagebox("下载失败",48,'信息提示')
Endif

十豆三 2010-12-20

打赏
举报

[Quote=引用 5 楼 yrt888 的回复:]
汗，发现我的WEB 里没有 document 这个属性的，记得以前好像有的！
[/Quote]

这个要在运行时加载文档后才有的。

十豆三 2010-12-20

打赏
举报

.body.innerHTML

根据网页不同可能不是通用的，所以还有一个通用的方法，就是将网页另存为文本等，然后用FileToStr将文本转成字符串，在字符串中查找即可。

yrt888 2010-12-20

打赏
举报

汗，发现我的WEB 里没有 document 这个属性的，记得以前好像有的！

十豆三 2010-12-20

打赏
举报

[Quote=引用 3 楼 yrt888 的回复:]
引用 2 楼 apple_8180 的回复:
是 Flash ？

打错了，是！

我这行代码：
BS=THISFORM.Olecontrol1.document.innerhtml
运行后提示：OLE 错误码 : UNKNOWN NAME

不知错在哪里，谢谢！
[/Quote]

试试这个
Thisform.Olecontrol1.Document.body.innerHTML

yrt888 2010-12-20