VB操作网页代码.docVIP

下载本文档

4
0
约1.43万字
约 17页
2019-05-19 发布于安徽
举报
版权申诉

VB操作网页代码.doc

1、本文档共17页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

. . 防止新窗口里头打开网页代码1： Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Dim frm As Form1 Set frm = New Form1 frm.Visible = True Set ppDisp = frm.WebBrowser1.object End Sub 代码2：有这段代码，有许多网页会出错，经常提示脚本错误，可以用silent属性为True来屏蔽，不过也有些不足！！！ Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Cancel = True WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href End Sub 代码3： Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) On Error Resume Next Dim frmWB As Form1 Set frmWB = New Form1 frmWB.WebBrowser1.RegisterAsBrowser = True Set ppDisp = frmWB.WebBrowser1.object frmWB.Visible = True frmWB.Top = Form1.Top frmWB.Left = Form1.Left frmWB.Width = Form1.Width frmWB.Height = Form1.Height End Sub 功能差不多，任选一个。去掉滚动条 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.Document.Body.Scroll = "no" End Sub 实际上上面的效果不咋地，如果懂得HTML知识，你可以在读取网页的时候，读取HTML源码，查找替换，再写入只需在 <body> </body> 之间插入代码： <body style= "overflow-x:hidden;overflow-y:hidden "> 即可。其中x表示水平滚动条，将其改为y的话就可以隐藏垂直滚动条。当然也有其他方法，比如修改网页的尺寸呀？有的时候部分元素的居中改为左对齐也能有效果将WebBrower放在PictureBox控件中，用PictureBox的边框挡住WebBrower的边框。例如,将WebBrowser1放大点,将PictureBox变小点...PictureBox的appearance设置为0-flat，呵呵，OK~~ 禁止鼠标右键 Private Function M_Dom_oncontextmenu() As Boolean Webbrowser1.Document.oncontextmenu = False End Function '引用Microsoft HTML OBject Library Dim WithEvents M_Dom As MSHTML.HTMLDocument Private Function M_Dom_oncontextmenu() As Boolean M_Dom_oncontextmenu = False End Function Private Sub Webbrowser1_DownloadComplete() Set M_Dom = Webbrowser1.Document End Sub 如何获得网页的内容先给个例子： innerHTML:设置或获取位于对象起始和结束标签内的 HTML 测试一下： <div id="d" style="background-color:#ff9966">这是一个层</div> <input type="button" value="获取innerHTML" onclick="getinnerHTML()"> <input type="button" value="设置innerHTML" onclick="setinnerHTML()"> <script language="javascript"> function getinnerHTML() { alert(document.getElementById("d").innerHTML) } function setinnerHTML() { doc