以下代码可以做到在光标处插入代码，如果有选择区域，则会使用选择区域生效。
1、vbcode.js 文件中 
替换函数 vbcode 为下面内容
复制代码 代码如下:
function vbcode(theform,vbcode,prompttext) {  
　if (theform.message.createtextrange && theform.message.caretpos) {  
var caretpos = theform.message.caretpos;  
if(caretpos.text.length > 0)  
　caretpos.text = [+vbcode+] + caretpos.text + [/+vbcode+];  
else  
　caretpos.text = [+vbcode+] + [/+vbcode+];  
　}  
　theform.message.focus();  
}
替换函数 fontformat 为下面内容 
复制代码 代码如下:
function fontformat(theform,thevalue,thetype) {  
　if (theform.message.createtextrange && theform.message.caretpos) {  
var caretpos = theform.message.caretpos;  
if(caretpos.text.length > 0)  
　caretpos.text = [+thetype+=+thevalue+] + caretpos.text + [/+thetype+];  
else  
　caretpos.text = [+thetype+=+thevalue+] + [/+thetype+];  
　}  
　theform.sizeselect.selectedindex = 0;  
　theform.fontselect.selectedindex = 0;  
　theform.colorselect.selectedindex = 0;  
　theform.message.focus();  
}
替换函数 smilie 为下面内容 
复制代码 代码如下:
function smilie(thesmilie) {  
// inserts smilie text  
　if (document.vbform.message.createtextrange && document.vbform.message.caretpos) {  
var caretpos = document.vbform.message.caretpos;  
caretpos.text = thesmilie;  
　}  
　document.vbform.message.focus();  
}
加入下面代码 
复制代码 代码如下:
function storecaret(textel) {  
　if (textel.createtextrange)  
textel.caretpos = document.selection.createrange().duplicate();  
}
2、color.js 文件 
查找函数 inserttag 替换成下面内容 
复制代码 代码如下:
function inserttag(mystring)  
{  
　bbopen=''  
　bbclose='';
if (mm_findobj('message').createtextrange && mm_findobj('message').caretpos) {  
var text = bbopen + bbclose ;  
var caretpos = mm_findobj('message').caretpos;  
if(caretpos.text.length > 0)  
　caretpos.text = bbopen + caretpos.text + bbclose;  
else  
　caretpos.text = text;  
　} else {  
mm_findobj('message').value += bbopen + bbclose;  
　}  
　mm_findobj('message').focus();  
　return;  
}
3、修改 editpost、newthread 和 newreply 模板 
查找 
$postinfo[message] 
替换成 
$postinfo[message]