VB操作网页代码.doc

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

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

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

3、frmWB.WebBrowser1.objectfrmWB.Visible=TruefrmWB.Top=Form1.TopfrmWB.Left=Form1.LeftfrmWB.Width=Form1.WidthfrmWB.Height=Form1.HeightEndSub功能差不多，任选一个。1、去掉滚动条PrivateSubWebBrowser1_DocumentComplete(ByValpDispAsObject,URLAs...专业........Variant)WebBrowser1.Document.Body.Scroll="no

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

5、放大点,将PictureBox变小点...PictureBox的appearance设置为0-flat，呵呵，OK~~1、禁止鼠标右键PrivateFunctionM_Dom_oncontextmenu()AsBooleanWebbrowser1.Document.oncontextmenu=FalseEndFunction'引用MicrosoftHTMLOBjectLibrary...专业........DimWithEventsM_DomAsMSHTML.HTMLDocumentPrivateFunctionM_Dom_oncontext

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