以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取当前网页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110518)

--  作者:OKK
--  发布时间:2017/12/4 19:22:00
--  [求助]获取当前网页
打开网页后,获取当前网页到文本框里面,请问怎么写?
--  作者:有点蓝
--  发布时间:2017/12/4 20:17:00
--  

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.baidu.com/")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
e.form.controls("Textbox1").Text = web.Document.body.outerhtml

--  作者:OKK
--  发布时间:2017/12/4 22:45:00
--  
我是想写在HTTPREQEUST里面

例如:alert(window.location.href;)

但这个代码获取后以弹屏的方式显示,不知道如何能写入到TEXT框里

--  作者:有点蓝
--  发布时间:2017/12/4 23:09:00
--  
动态更新网页?参考:http://www.foxtable.com/mobilehelp/scr/0103.htm