是要获得鼠标所在的标记？
对象．对象型方法 （"elementFromPoint"，x，y）
这个方法可以获得鼠标所在位置的标记对象。
----------
还是要在鼠标处插入标记？
对象．对象型方法 （"createElement"，eTag）
创建之后在把返回的对象指定X，Y就行了
这样只能算是插入标记，不能算是HTML代码
----------
最笨的，
document.body.innerHTML+=document.body.innerHTML+"<a href=www.baidu.com>baidu</a>";
把原来的HTML代码在加上新代码重写进去。
下面方法是可以插入,就是要设置位置才能做到任意位置插入HTML代码!
QUOTE:向Webbrowser中写入HTML内容的几种方法 首先在Form_Load中加入 WebBrowser1.Navigate "about:blank" 确保Webbrowser1可用 方法1： Dim s As String Dim stream As IStream s = "" s = s + "" s = s + "" s = s + " hello world " s = s + "" s = s + " WebBrowser1.Document.Write s 方法2： Dim o Set o = WebBrowser1.Document.selection.createrange Debug.Print o If (Not o Is Nothing) Then o.pasteHTML "哈哈" Set o = Nothing End If 方法3： '插入文本框 Dim o Set o = WebBrowser1.Document.selection.createrange o.execCommand "InsertTextArea", False, "xxx"
我用的是方法2 可以当插入HTML代码
