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

弱者  2007-12-08 07:21:12  No: 99909  IP: 192.*.*.*

windowsxp sp2 VB6

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

編集 削除
よわ  2007-12-08 18:28:06  No: 99910  IP: 192.*.*.*

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

編集 削除
中途半端  2007-12-10 15:50:24  No: 99911  IP: 192.*.*.*

参考にどうぞ。

'目的のページにアクセス ==============================================
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

編集 削除