CodeItBetter Programming Another VB Programming Blog

'Internet - How to Grab all of the text from WebBrowser control.
Option Explicit
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_CONTROL = &H11
Private Const VK_C = &H43
Private Const VK_A = &H41
Private Const KEYEVENTF_KEYUP = &H2
 
Private Sub Command1_Click()
    ' Clear the clipboard.
    Clipboard.Clear
 
    ' Set focus to the WebBrowser control.
    WebBrowser1.SetFocus
 
    ' Control-A.
    ' Press Control.
    keybd_event VK_CONTROL, 0, 0, 0
    DoEvents
 
    ' Press A.
    keybd_event VK_A, 1, 0, 0
    DoEvents
 
    ' Control-C.
    ' Press Control.
    keybd_event VK_CONTROL, 0, 0, 0
    DoEvents
 
    ' Press C.
    keybd_event VK_C, 1, 0, 0
    DoEvents
 
    ' Release Control.
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
    DoEvents
 
    ' Get the text from the clipboard.
    Text1.Text = Clipboard.GetText
End Sub
 
Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.codeitbetter.co.nr"
End Sub