如何控制webbrowser控件的滚动条.txt

VB技巧问答10000例,是一个教程

这 个 问 题 可 以 这 样 解 决 ： 
     1、 加 入 一 个 Timer定 时 器 控 件 ， 设 置 为 你 所 需 要 翻 页 的 时 间 
     2、 利 用 API函 数 产 生 模 拟 按 键 
    下 面 为 程 序 代 码 ： 
     Private Declare Function GetForegroundWindow& Lib "user32" () 
     Private Declare Function GetWindowText& Lib "user32" Alias "GetWindowTextA" _ 
     (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) 
     Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan _ 
     As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 
     
     
     Public Sub MyCapture() '生 成 一 次 模 拟 击 键 Pagedown 
     keybd_event vbKeyPageDown, 0, 0, 0 
     End Sub 
     
     
     Private Sub Timer_Timer() 
     Dim dl1&, dl2& 
     Dim Canp As String * 255 
     dl1& = GetForegroundWindow&() '获 取 当 前 活 动 窗 口 的 句 柄 
     dl2& = GetWindowText&(dl1&, Canp$, 255) '获 取 窗 口 的 标 题 
     If Canp$ <> Me.CaptionThen: Exit Sub '如 当 前 活 动 窗 体 不 
     '为 本 窗 体 ， 则 不 作 处 理 
     MyCapture 
     End Sub 
    另 外 ， 也 可 以 用 SENDKEYS语 句 来 实 现 ： 
     sendkeys "{PGDN}" 
<END>