vb全选并复制webbrowser中的内容

来源：百度知道 编辑：UC知道 时间：2024/05/18 03:05:22
我想做到单击按钮后复制WEBBROWSER网页中的所有内容到TEXT中!
请高手指点!在线等

Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
Command1.Enabled = False
Command1.Caption = "复制全部"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Command1.Enabled = True
End Sub

Private Sub Command1_Click()
WebBrowser1.Document.body.focus
WebBrowser1.Document.execCommand "SelectAll"
WebBrowser1.Document.execCommand "copy"
Text1.Text = Clipboard.GetText
End Sub