Question

vb来操作HTML中的javascript代码

<script language="javascript">
//与按钮有关的脚本
//2个字宽度46，4个字70，5个字79，6个字92
var buttonList = newArrayFor2D(4,5);
var buttonIndex = 0;
buttonList[buttonIndex][0]="参考脚本"; //名称
buttonList[buttonIndex][1]="TableButton4"; //样式
buttonList[buttonIndex][2]="70"; //宽度
buttonList[buttonIndex][3]="javascript:void(getScript())";//href
buttonList[buttonIndex][4]="";//target
buttonList[buttonIndex][5]="1";//是否可用
buttonIndex++;
buttonList[buttonIndex][0]="打印报表"; //名称
buttonList[buttonIndex][1]="TableButton4"; //样式
buttonList[buttonIndex][2]="70"; //宽度
buttonList[buttonIndex][3]="javascript:void(printRep())";//href
buttonList[buttonIndex][4]="";//target
buttonList[buttonIndex][5]="1";//是否可用
buttonIndex++;
buttonList[buttonIndex][0]="浏览报表"; //名称
buttonList[buttonIndex][1]="TableButton4"; //样式
buttonList[buttonIndex][2]="70"; //宽度
buttonList[buttonIndex][3]="javascript:void(browRep())";//href
buttonList[buttonIndex][4]="";//target
buttonList[buttonIndex][5]="1";//是否可用
buttonIndex++;
if (ispagearea=="1"){
buttonList[buttonIndex][0]="关闭"; //名称
}else{
buttonList[buttonIndex][0]="取消"; //名称
}
buttonList[buttonIndex][1]="TableButton"; //样式
buttonList[buttonIndex][2]="46"; //宽度
buttonList[buttonIndex][3]="javascript:void(exit())";//href
buttonList[buttonIndex][4]="";//target
buttonList[buttonIndex][5]="1";//是否可用
//与按钮有关的脚本结束
</script>
上面是代码内容，如何用VB编程点击HTML中的按钮="打印报表"; ，运行按钮中函数javascript:void(browRep())"？？？？？

Answer 1

Dim code As Object
Set code = CreateObject("ScriptControl")
code.Language = "JavaScript"

查询一下如何使用 VBS ScriptControl

VB/VBS 动态执行 代码
我们有时候需要在程序中动态执行一段string类型的代码，类似js中的eval函数，
下面的操作可以满足这一要求。
（有一点要注意，ScriptControl 调用的是vbs，有的vb的函数不能用，如val ）
我们需要使用ScriptControl
在部件中添加MS Script Control 1.0
在窗体中添加一个MS Script Control
使用方法如下：
ScriptControl1.Language = "VBScript" '定义语言
ScriptControl1.AddObject "Text1", Text1 '添加控件，否则在执行时无法调用，
'需要什么控件添加什么就行
ScriptControl1.ExecuteStatement("Text1.Text=""12345""") '执行语句

也可以用ScriptControl1.AddCode来添加函数
如：
ScriptControl1.AddObject "Label1", Label1
ScriptControl1.AddCode "sub Test() label1=""hello"" end sub" '定义了一个函数test
ScriptControl1.Run ("test") '调用函数test甚至可以给添加的函数加上参数，如：

ScriptControl1.AddObject "Label1", Label1
ScriptControl1.AddCode "sub test(str)" & vbCrLf & " label1=str " & vbCrLf & " end sub"
ScriptControl1.Run "test", "Hello" '第二个参数是一个Variant型的数组，用来传递函数test的参数

Answer 2

Private Sub Command1_Click()
Dim code As Object
Set code = CreateObject("ScriptControl")
code.Language = "JavaScript"
code.AddCode ("function test(n){ return n*n}")
MsgBox code.Eval("test(123)")
End Sub

追问

从第5行就不太懂了，求注解.

追答

"function test(n){ return n*n}"这个是是js脚本

code.Eval("test(123)") 执行什么的脚本内容 test是函数名称123才参数

对应test（n）

Answer 3

WebBrowser1.Document.parentWindow.execScript "void(browRep())"

追问

Webbrowser1中有框架集〈frame〉标签，上面的代码是标签中的内容，用vb怎么写？