Dim ScriptControl As New MSScriptControl.ScriptControl
ScriptControl.Language = "JavaScript" '设置语言种类
ScriptControl.AddCode("function TestFunc(){return 'Hello world!'}") '添加脚本代码
MsgBox(ScriptControl.Run("TestFunc"))'显示一下那段脚本的返回值（这里你将看到Hello world!字符)
不想用点击，直接执行，那么你肯定就不能用onclick事件了。在网页中JS函数自动执行常用三种方法
在HTML中的Head区域中，有如下函数：
<SCRIPT
LANGUAGE="JavaScript">
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！")
}
</SCRIPT>
下面，我们就针对上面的函数，让其在网页载入的时候自动运行！
①第一种方法
将如上代码改为：
<SCRIPT
LANGUAGE="JavaScript">
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！")
}
window.onload=MyAutoRun()
//仅需要加这一句
</SCRIPT>
②第二种方法
修改网页的Body为：
<body onLoad="MyAutoRun()">
或者改为：
<body onLoad="javascript:MyAutoRun()">
③第三种方法
使用JS定时器来间断性的执行函数：
setTimeout("MyAutoRun()",1000) //隔1000毫秒就执行一次MyAutoRun()函数
实现方法，将最上面的那JS函数，改为：
<SCRIPT
LANGUAGE="JavaScript">
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！")
}
setTimeout("MyAutoRun()",1000)
//这样就行拉
</SCRIPT>
