‘点正常链接方法很多，这里介绍的是自动点JavaScript链接
Function RunJS(scripts)
‘VB 自动点网页中的Javascript链接
Dim Document
On Error GoTo ErrHandle
If scripts = "" Then Exit Function
Set Document = WebBrowser1.Document
Document.ParentWindow.execScript scripts, "javascript"
Exit Function
ErrHandle:
MsgBox "Err"
End Function
‘——————
调用：Call RunJS(Javascript:jsfunci())
JavaScript中的Window窗口对象
他是JavaScript中最大的对象，它描述的是一个浏览器窗口。一般要引用它的属性和方法时，不需要用“window.xxx”这种形式，而直接使用“xxx”。一个框架页面也是一个窗口。
Window窗口对象有如下属性：
name 窗口的名称，由打开它的连接（<a target="..." ......
substr() 方法可在字符串中抽取从 start 下标开始的指定数目的字符.
stringObject.substr(start,length);start必须,length可选.
start 是截取的开始位置的下标,从0开始算起,必须是数字.可以是负数,-1是倒数第一个字符,-2是倒数第二个字符,以此类推.
length 是要截取的字符的长度,必须是数字.如果未指定,则从start位置处� ......
