两种博文编辑模式中怎么切换?难住我了

Question

我在学习写网易博客群发功能,有一个难点因水平有限不会了,特请教高人指点: 这是网易的博文(日志)编辑器截图: 
有所见即所得模式和HTML代码模式,怎么用VB实现在这两种模式中切换? 
其中,手动模式切换是通过按"<>"(显示HTML代码)来实现的,怎么用程序实现呢?请写出具体代码,谢谢大家! 注:没有网易帐号的朋友可以用这个帐号登录:博客帐号: [email protected],登录密码:123456abc 

Answer 1

不好意思，现补上网址和网页代码方便大家帮研究：我试用了以下方法但不能切换： 
＇－－－－－－－－－－－－－ 
  Dim vDoc, vTag 
  Set vDoc = WebBrowser1.Document 
  WebBrowser1.Document.getElementByID("ShowCodeBtn").Click 
＇－－－－－－－－－－－－－－ 
大家帮看看怎么办？ 
如果大家要具体登录博文帮研究，网址如下：http://12cbv.blog.163.com/blog/getBlog.do 
博客帐号: [email protected],登录密码:123456abc附：完整网页代码方便大家研究： <DIV class="g_c_container g_blog_add" id=_$$_blog_form> 
<FORM name=editorForm method=post> <!-- 编辑器容器 --> 
<DIV class=bd01 id=edt> 
<DIV class=edt_relt id=editorWrap> <INPUT id=HEContent type=hidden 
name=HEContent> 
<DIV id=toolbar> 
<DIV class=edt_relt id=small_toolbar style="DISPLAY: none"> </DIV> 
<DIV class=edt_relt id=big_toolbar style="DISPLAY: block; ZOOM: 1"> 
<TABLE class=nEdt border=0> 
<TBODY> 
<TR class=top> 
<TD class=td0 rowSpan=2>&nbsp; </TD> 
<TD class=td1 rowSpan=2> 
<DIV class=com id=PasteBtn title=粘贴> 
<DIV class="av_ pst i"> <IMG class=bpic 
src="http://b.bst.126.net/style/common/empty.gif"> </DIV> </DIV> </TD> 
<TD class=td2> ．．．．．． <DIV class=com id=MediaBtn title=插入多媒体> 
<DIV class="av_ mdi i"> <IMG class=pic 
src="http://b.bst.126.net/style/common/empty.gif"> </DIV> </DIV> </TD> 
<TD class=td2> 
<DIV class=com id=ShowCodeBtn title=显示HTML代码> 
<DIV class="av_ prv i"> <IMG class=pic 
src="http://b.bst.126.net/style/common/empty.gif"> </DIV> </DIV> </TD> 
<TD>&nbsp; </TD> </TR> </TBODY> </TABLE> 
<DIV class=disbBar id=toolbarCover style="DISPLAY: none"> </DIV> </DIV> </DIV> <!--以下是编辑区--> 
<DIV class=EdtPaper id=editorDiv style="DISPLAY: block"> 
<DIV class="pp shw"> 
<DIV class=t> </DIV> 
<DIV class=wp> 
<DIV class=uRule> <INPUT class=tt id=title maxLength=255 value=在这里添加日志标题 
name=title AUTOCOMPLETE="off"> </DIV> 
<DIV class=content id=designEditorDiv> <IFRAME id=designEditor 
src="/blankEditor.html" frameBorder=0 width=726 height=350 
designMode="on"> </IFRAME> </DIV> 
<DIV class=bRule> </DIV> </DIV> 
<DIV class=b> </DIV> </DIV> </DIV> 
<DIV class=sourEdt id=sourceDiv style="DISPLAY: none"> <TEXTAREA class=content id=sourceEditor style="WIDTH: 898px; HEIGHT: 570px"> </TEXTAREA> 
</DIV> </DIV> </DIV> <!-- 结束-编辑器容器 --> 
<DIV class="g_w_95 g_c_hmgin" id=previewsubtitle style="DISPLAY: none"> 
<DIV class="g_h_25 g_t_right c06" id=previewtab> <A class=g_c_noul 
onclick="NEBlog.gEditBlog.toEdit();return false;" href="#"> <SPAN 
class="n_ e14">&nbsp; </SPAN> </A> <A 
onclick="NEBlog.gEditBlog.toEdit();return false;" href="#">返回编辑状态 </A> </DIV> 
<DIV class=g_blog_list style="PADDING-TOP: 5px"> 
<DIV class="item bd1t bd1b">

Answer 2

   On Error Resume Next
   Dim vDoc, vTag
   Set vDoc = WebBrowser2.Document
   WebBrowser2.Document.getElementById("ShowCodeBtn").onMouseDown