webbrowser 自动滚动到底部

Question

如何让webbrowser 自动滚动到底部 和禁止右键!
因为RICHTEXTBOX我搞不定就用WEBBROWSER了

Answer 1

自动滚动到底部
with RICHTEXTBOX
  .selstart = len(.text)
end with

Answer 2

Private Sub Form_Load()
   WebBrowser1.Navigate "http://www.baidu.com/"
End SubPrivate Sub Command1_Click()
   WebBrowser1.Document.parentWindow.scrollTo 0, WebBrowser1.Document.body.scrollHeight
   'WebBrowser1.Document.parentWindow.scrollTo 100, 100
End Sub
'屏蔽WebBroser右键的代码,使用下面两个API
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long留个邮箱我发给你. 

Answer 3

以下是完整的代码，实现了右键屏蔽和滚动条滚到底部的功能'------------------------------------------------------
'        程序名称:WebBrowserDemo
'        功    能:屏蔽鼠标右键,控制滚动条位置
'        作    者:lyserver
'------------------------------------------------------
Option ExplicitDim WithEvents m_pDoc As MSHTML.HTMLDocumentPrivate Sub Form_Load()
    Me.WebBrowser1.Navigate2 "http://www.google.cn"
End SubPrivate Function m_pDoc_oncontextmenu() As Boolean
    '屏蔽鼠标右键
    m_pDoc_oncontextmenu = False
End FunctionPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim Item As Object
    Dim strHTML As String
    
    '设置滚动条到底部
    WebBrowser1.Document.parentWindow.Scroll 0, WebBrowser1.Document.Body.scrollHeight
    
    '设置Document,将事件引入窗口的消息泵,实现鼠标右键的屏蔽
    Set m_pDoc = WebBrowser1.Document
End Sub

Answer 4

要使用HTMLDocument数据类型（实质是IHTMLDocument接口），先引用“Microsoft HTML Object Library“。

Answer 5

mshtml.HTMLDocument doc1 = (mshtml.HTMLDocument)this.webBrowser1.Document.DomDocument;
doc.parentWindow.scrollBy(0, 要滚动的高度);  
 这招是可以用，但是 怎么会自动回到原位置呢？
滚动条向下到最下，然后马上有回到 最上去了。