VB6でIEで開いているページを全て選択するには？ (ID:81314)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Option Explicit Private Const OLECMDEXECOPT_DODEFAULT As Variant = 0& Private Const OLECMDID_COPY As Variant = 12& Private Const OLECMDID_SELECTALL As Variant = 17& Private Sub Command1_Click() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate2 "http://www.google.co.jp/" Do DoEvents Loop Until IE.ReadyState = 4 IE.Left = -1000000 IE.Top = -1000000 IE.Visible = True IE.Document.parentWindow.focus IE.Document.focus Clipboard.Clear IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT IE.Quit Set IE = Nothing End Sub