JavaScript の function をVBで実行するには

弱者 2007-12-08 16:21:12 No: 99909

windowsxp sp2 VB6

WebBrowserに表示した
JavaScript のfunctionを VBで起動させたりしたいのですが
できませんか

よわ 2007-12-09 03:28:06 No: 99910

条件付きでやり方によります。

中途半端 2007-12-11 00:50:24 No: 99911

参考にどうぞ。

'目的のページにアクセス ==============================================
Me.WebBrowser1.Navigate2 "http://TARGET_URLXXXXXXXXXX/"

         'ページ表示まで待機
         Do While .WebBrowser1.Busy Or .WebBrowser1.ReadyState <> 4
                DoEvents
         Loop

'Javascriptを作成 ===================================================
StrScript = "javascript:function MYSCRIPT()" & vbCrLf & _
                "{xxxxxxxxx;" & vbCrLf & _
                "zzzzzzzzzzzzzzzzzzzzzz;" & vbCrLf & _
                "zzzzzzzzzzzzzzzzzzzzzz;}" & _
                "MYSCRIPT()"

'ＶＢ側で作成したJavaScriptを実行 ===================================
Me.WebBrowser1.Navigate2 StrScript

JavaScript の function をVBで 実行するには

JavaScript の function をVBで実行するには