- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 导出网站application内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148730)
-- 发布时间：2020/4/14 12:03:00
-- 导出网站application内容
老师，如果把网站从WebBrowser1打开，可以设计一个按钮，点击后吧application的内容另存为文本文档或者Excel吗？其实什么文件都没关系，主要是能让foxtable能再次读取到的文件。感谢 感谢
[此贴子已经被作者于2020/4/14 12:17:54编辑过]
-- 发布时间：2020/4/14 13:36:00
--
output.show（web.Document.Body.OuterHtml）
FileSys.WriteAllText("C:\\data\\Table.Txt", web.Document.Body.OuterHtml, True)
-- 发布时间：2020/4/14 15:26:00
--
老师 这个代码说放到按钮里面吗？
能帮忙看看吗？
-- 发布时间：2020/4/14 17:01:00
--
放到全局代码里：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808
-- 发布时间：2020/4/14 17:31:00
--
老师，那两个例子可以吧网站application的内容导出为文本文档之类的吗？
-- 发布时间：2020/4/14 17:40:00
--
可以，获取web.Document.Body.OuterHtml保存下来即可
-- 发布时间：2020/4/15 9:49:00
--
谢谢老师，老师，foxtable可以判断和读取网站的代码吗 ？
比如：
此主题相关图片如下：qq截图20200415094801.jpg
-- 发布时间：2020/4/15 10:11:00
--
自食其力，自行学习：https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.htmlelement?view=netframework-4.8
-- 发布时间：2020/4/15 10:56:00
--
ok 好的 谢谢老师。
-- 发布时间：2020/4/15 17:35:00
--
此主题相关图片如下：qq截图20200415173022.jpg
老师，我实在是看不懂了，能不能在帮忙看看呀？实在是吃不消了，感谢 感谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:小米判断，读取.table |
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("https://account.xiaomi.com/pass/serviceLogin?callback=https%3A%2F%2Fi.mi.com%2Fsts%3Fsign%3DGG5Rl90ZUHyfddB9UqMqGbLjxD0%253D%26followup%3Dhttps%253A%252F%252Fi.mi.com%252F%2523homenew%26sid%3Di.mi.com&sid=i.mi.com&_locale=zh_CN&_snsNone=true")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim btns = web.Document.GetElementsByTagName("input")
For Each btn As object In btns
If btn.getattribute("name") = "user" Then
btn.setattribute("value", "13594605935")
ElseIf btn.getattribute("name") = "password" Then
btn.setattribute("value", "ab123456789")
End If
Next
Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.Window.Frames(1).Document.GetElementsByTagName("status-container-3dQ_7")
For i As Integer = 0 To hec.Count-1
If hec(i).OuterHtml.Contains("重新定位") Then
\'hec(i).InvokeMember("click")
\'lb="去精华板块"
Dim r As DataRow = Tables("表A").Current.DataRow
Dim dwsj As String = loc("infoTime").ToString
dwsj = dwsj.SubString(0,10)
Dim d1 As Date = DateAdd("s",CInt(dwsj), "1970-1-1 0:0:0") \'时间戳转时间
Dim d As Date = DateAdd("h", 8, d1)
r("定位中文地址")=d
MessageBox.Show("读取成功")
Exit For
End If
Next
此主题相关图片如下：qq截图20200415172952.jpg
[此贴子已经被作者于2020/4/15 17:36:02编辑过]