- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何保存用WebBrowser打开的网页 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85343)
-- 发布时间：2016/5/23 17:20:00
-- 如何保存用WebBrowser打开的网页
如何保存用WebBrowser打开的网页？查阅了帮助，看到了ShowSaveAsDialog方法，我想要的是，打开网页后，用代码保存当前网页？
-- 发布时间：2016/5/23 17:32:00
--
试试这样，但图片和js之类的，不会下载的......
Dim web = e.form.controls("webbrowser1").basecontrol
FileSys.WriteAllText("d:\\test.htm", web.DocumentText, false, Encoding.utf8)
[此贴子已经被作者于2016/5/23 17:31:47编辑过]
-- 发布时间：2016/5/23 20:37:00
--
可以保存网页，但出现乱码。我将Encoding: 可选参数，Encoding类型，可选的编码有：
Default
ASCII
BigEndianUnicode
Unicode
UTF32
UTF7
UTF8
全试了一遍，还是乱码。数字是对的
-- 发布时间：2016/5/23 20:39:00
--
我测试没问题。网址。
-- 发布时间：2016/5/23 20:52:00
--
我是单位内网。我做的程序是从内网的网页中获取每日的发送人信息，存在狐表中，以备其它调用。
-- 发布时间：2016/5/23 21:05:00
--
网页内容保存为txt发上来看看。
-- 发布时间：2016/5/23 21:14:00
--
这是网页txt，我是想 获取每日发送人的，保存于狐
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:query1.txt |
表。然后做数据分析用。
-- 发布时间：2016/5/23 21:21:00
--
没有乱码啊。
-- 发布时间：2016/5/23 21:43:00
--
又换了台电脑，还是同样的乱码，不知何故？
-- 发布时间：2016/5/23 21:47:00
--
试试这样，不行，就嘎DocumentText保存为txt发上来。
Dim getReader = new System.IO.StreamReader(web.DocumentStream, Encoding.utf8)
Dim str = getReader.ReadToEnd()
msgbox(str)