動的にJavaScriptを実行する

JavaScriptを動的に書き出す」参照。

Public Sub Sample()
  Dim d As Object
  Dim oDiv As Object
  
  Set d = CreateObject("htmlfile")
  Set oDiv = d.createElement("div")
  oDiv.innerHTML = "&nbsp;<script defer>alert(document.parentWindow.clientInformation.userAgent);</script>"
  d.body.appendChild oDiv
End Sub
広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中


%d人のブロガーが「いいね」をつけました。