webbrowserコントロール（VBからJScriptの関数を実行できますか？） (ID:79301)

名前

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

本文

> VBのボタンからコントロールに表示したHTML内のJScriptの関数を
> 使用しようしたいのですが、この様な処理は可能でしょうか？

内容によっては呼べる事もあります。具体的には、どのような関数でしょうか？

例えば、「http://www.makoto3.net/」というURLが示すページには、
   //num1からnum2の間の数値をランダムに返す汎用関数
   function rangeRandom(num1,num2)
   {
      /* 省略 */
   }
のようなJScriptが含まれていますが、たとえば、この戻り値を得るために、
以下のようなコードを書くことができます。(スマートな方法では無いですが…)

Option Explicit

Private Sub Form_Load()
    Me.WebBrowser1.Navigate2 "http://www.makoto3.net/"
End Sub

Private Sub Command1_Click()
    Me.WebBrowser1.Navigate2 "javascript:function POMURIN(){document.body.benshi=rangeRandom(1,20)}POMURIN()"
    Do
        DoEvents
    Loop While Me.WebBrowser1.Busy
    MsgBox "rangeRandom(1,20)の結果は、" & Me.WebBrowser1.Document.body.benshi & "です。"
End Sub

> また、html内に<EMBED ID="SVGFile" SRC="test.svg" />などと
> 埋め込まれたSVGファイルの内容をDHTML形式？（TagName、IDなど）で
> 参照する方法がありましたら、こちらも教えて頂けましたら幸いです。

EMBEDエレメントのSCR属性の値(すなわち、"test.svg"という文字列)を
得る事は可能です。document.getElementById("SVGFile").src ですね。

しかしDHTMLからは、それが指し示すSVGファイルの内容を得る事はできません。

もし、SVGファイルの内容を得たい場合は、WebBrowser/MSHTML経由ではなく、
XMLHTTPオブジェクトを使うなどして、別途、読み出せば良いかと思います。

←解決時は質問者本人がここをチェックしてください。

戻る