VB操作网页代码

《VB操作网页代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.1、防止新窗口里头打开网页代码1：PrivateSubWebBrowser1_NewWindow2(ppDispAsObject,CancelAsBoolean)DimfrmAsForm1Setfrm=NewForm1frm.Visible=TrueSetppDisp=frm.WebBrowser1.objectEndSub代码2：有这段代码，有许多网页会出错，经常提示脚本错误，可以用silent属性为True来屏蔽，不过也有些不足！！！PrivateSubWebBrowser1_NewWindow2(ppDispAsObject,CancelA

2、sBoolean)Cancel=TrueWebBrowser1.Navigate2WebBrowser1.Document.activeElement.hrefEndSub代码3：PrivateSubWebBrowser1_NewWindow2(ppDispAsObject,CancelAsBoolean)OnErrorResumeNextDimfrmWBAsForm1SetfrmWB=NewForm1frmWB.WebBrowser1.RegisterAsBrowser=TrueSetppDisp=frmWB.WebBrowser1.object

3、frmWB.Visible=TruefrmWB.Top=Form1.TopfrmWB.Left=Form1.LeftfrmWB.Width=Form1.WidthfrmWB.Height=Form1.HeightEndSub功能差不多，任选一个。..1、去掉滚动条PrivateSubWebBrowser1_DocumentComplete(ByValpDispAsObject,URLAsVariant)WebBrowser1.Document.Body.Scroll="no"EndSub实际上上面的效果不咋地，如果懂得HTML知识，你可以在读取网页

4、的时候，读取HTML源码，查找替换，再写入只需在之间插入代码：即可。其中x表示水平滚动条，将其改为y的话就可以隐藏垂直滚动条。当然也有其他方法，比如修改网页的尺寸呀？有的时候部分元素的居中改为左对齐也能有效果将WebBrower放在PictureBox控件中，用PictureBox的边框挡住WebBrower的边框。例如,将WebBrowser1放大点,将PictureBox变小点...PictureBox的appearanc

5、e设置为0-flat，呵呵，OK~~2、禁止鼠标右键PrivateFunctionM_Dom_oncontextmenu()AsBooleanWebbrowser1.Document.oncontextmenu=FalseEndFunction'引用MicrosoftHTMLOBjectLibraryDimWithEventsM_DomAsMSHTML.HTMLDocumentPrivateFunctionM_Dom_oncontextmenu()AsBooleanM_Dom_oncontextmenu=FalseEndFunctionPrivat

6、eSubWebbrowser1_DownloadComplete()SetM_Dom=Webbrowser1.DocumentEndSub3、如何获得网页的内容先给个例子：..innerHTML:设置或获取位于对象起始和结束标签内的HTML测试一下：这是一个层