本人最近在做一個視頻對話的功能，這個視頻對話功能主要分為兩個部分，服務器和客戶端，服務器用ASP.NET開發，網頁中嵌套一個用VC寫的程式，用來呼叫視頻對話的Actix控制元件。
服務端現在基本跑通，現在主要問題在客戶端，客戶端是用VB.NET寫的，我在視頻的頁面里面定義了一個WebBrowser，通過WebBrowser呼叫一個靜態網頁，通過網頁中的JS呼叫external.xxx來呼叫本地注冊的com組件。但是說external屬性不存在。
一下是代碼：
頁面代碼
<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\error1.html")
WebBrowser1.DocumentText = fileContents
WebBrowser1.ObjectForScripting = Me
WebBrowser1.Navigate(Application.StartupPath & "\error1.html")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim param() As Object = New Object() {"你好", "豬八戒"}
WebBrowser1.Document.InvokeScript("StartUp")
End Sub
End Class
HTML頁面JS代碼：
<script type="text/javascript">
function StartUp()
{
var strAdmin = "admin";
var strPwd = "698D51A19D8A121CE581499D7B701668";
var strIp = "192.168.0.55";
var strConf = "上海消防總隊";
external.StartUpAv(strAdmin,strPwd,strIp,strConf,1);
}
function hallo(ss, name) {
alert(ss + name);
}
function sayHallo() {
alert(window.external);
window.external.Test("hello", 15);
}
</script>
請問下問題出在哪里？
uj5u.com熱心網友回復：
我用VB6的webbrowser，在自己的程式中是可以接收到window.external.方法名（引數）原理里是實作webbrowser的介面，我不知道.net中怎么用。
uj5u.com熱心網友回復：
能不能發來看看？ 求教 [email protected]
uj5u.com熱心網友回復：
vb6中咋弄呀，有沒有代碼？完整的
uj5u.com熱心網友回復：
http://blog.csdn.net/vansoft/article/details/3547261
uj5u.com熱心網友回復：
http://blog.csdn.net/vansoft/article/details/3547261
uj5u.com熱心網友回復：
VB6實作界面與功能代碼分離 ，有什么用？如果只是為了分離比方網頁上點什么，軟體上就執行相應的功能，那只要用一個<a HREF就可以了
按不同的鏈接執行不同的功能，并且網頁并不會切換到另一個界面
比方http://www.baidu.com/#3 #4
這種標簽式的原理也行
uj5u.com熱心網友回復：
用Implements IDocHostUIHandler這個是可以，但是他本身的LIB就有500K，我做好的程式可能才50K呢olelib這個庫太大了，要是能直接用VB實作的話，沒必要用別的組件，否則要是大家都不知道這個組件，豈不是就無法實作了？
現在呢，我碰到的一個問題是，JAVASCRIPT呼叫某個內部函式時，能在VB中攔截掉獲取就好了，這樣就有辦法處理了。
比方網頁上有一個方法：external.HelloWorld();
一旦執行，VB能攔截到就好了
Private WithEvents Doc As HTMLDocument
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set Doc = WebBrowser1.Document
End Sub
這個有很多事件，onclick等等，就是不知哪一個是ONscript run(腳本呼叫），有這個就很簡單了
uj5u.com熱心網友回復：