请教大侠们用VB6和Webbrowse做程序 遇到这样的元素该怎么操作
请问大侠们用VB6和Webbrowse做程序 遇到这样的元素该如何操作？
以下是网页源码：
<H1><A href="/StudentCenter/Right.aspx">首页</A> >> 我的课堂</H1><LABEL>客服：(免长话费)</LABEL>
<DIV class=divC></DIV></DIV>
<SCRIPT type=text/javascript src="../JScript/jquery.js"></SCRIPT>
<SCRIPT language=javascript type=text/javascript src="../JScript/Evaluation.js"></SCRIPT>
<SCRIPT language=jscript>
<!--
function SelectCourseID(ddlCourse)
{
window.location = "ClassRoom.aspx?CourseID="+ddlCourse.value;
}
-->
</SCRIPT>
<SCRIPT type=text/javascript>
//<![CDATA[
Sys.WebForms.PageRequestManager._initialize('ctl00$ContentPlaceHolder1$CourseIndex2$ScriptManager1', document.getElementById('aspnetForm'));
Sys.WebForms.PageRequestManager.getInstance()._updateControls(['tctl00$ContentPlaceHolder1$CourseIndex2$UpdatePanel1'], [], [], 90);
//]]>
</SCRIPT>
<!--课程列表开始 -->
<DIV class=courseSelectConBorder>
<TABLE class=courseSelectTab cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD class=cousreSelectTit>
<H1>大学英语（一）高起专 <SPAN style="FONT-WEIGHT: normal">高起专计算机科学与技术</SPAN></H1></TD>
<TD class=cousreSelectForm><SELECT id=ctl00_ContentPlaceHolder1_CourseIndex2_ddlCourse class=inputBlueLong onchange=SelectCourseID(this) name=ctl00$ContentPlaceHolder1$CourseIndex2$ddlCourse> <OPTION selected value=5319>大学英语（一）高起专</OPTION> <OPTION value=81541>高等数学（一）（高起专）</OPTION> <OPTION value=81548>教育学（高起专）</OPTION> <OPTION value=720>现代远程学习概论</OPTION> <OPTION value=81554>线性代数（高起专）</OPTION> <OPTION value=81744>心理学（高起专）</OPTION></SELECT> </TD></TR></TBODY></TABLE></DIV><!--课程列表结束 -->
<DIV id=ctl00_ContentPlaceHolder1_CourseIndex2_UpdatePanel1>
<UL class=myClassRoomUl>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnChat class=myCourseNavOut href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnChat','')">实时交流</A></LI>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnOfflineJob class=myCourseNavOut href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnOfflineJob','')">离线作业</A></LI>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnOnlineJob class=myCourseNavOut href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnOnlineJob','')">在线作业</A></LI>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnCourseWare class=myCourseNavOver href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnCourseWare','')">课件浏览</A></LI>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnArticle class=myCourseNavOut href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnArticle','')">课程公告</A></LI></UL>
<DIV class=classRoomConBorderGreen>
<DIV class=classRoomCon>
<DIV class=classRoomDiv> <A id=ctl00_ContentPlaceHolder1_CourseIndex2_ctl01_lBtnVirExp></A>
<DIV style="MARGIN: 10px; DISPLAY: none" id=ctl00_ContentPlaceHolder1_CourseIndex2_ctl01_tip>各位同学，<BR><BR> 奥鹏学习平台课件浏览系统升级维护，暂定时间为2012年1月8日上午9:00—2012年1月9日9:00，在此时间段内课件不能正常浏览，2012年1月9日上午9:00，课件浏览恢复正常，如给同学的学习带来不便，敬请谅解！ <BR><BR> 奥鹏学生服务中心 助学服务部<BR></DIV>
<TABLE id=InCourse class=showCourseListTab border=0 cellSpacing=0 cellPadding=0>
<THEAD>
<TR>
<TH style="WIDTH: 49%">课件名称</TH>
以下是网页源码：
<H1><A href="/StudentCenter/Right.aspx">首页</A> >> 我的课堂</H1><LABEL>客服：(免长话费)</LABEL>
<DIV class=divC></DIV></DIV>
<SCRIPT type=text/javascript src="../JScript/jquery.js"></SCRIPT>
<SCRIPT language=javascript type=text/javascript src="../JScript/Evaluation.js"></SCRIPT>
<SCRIPT language=jscript>
<!--
function SelectCourseID(ddlCourse)
{
window.location = "ClassRoom.aspx?CourseID="+ddlCourse.value;
}
-->
</SCRIPT>
<SCRIPT type=text/javascript>
//<![CDATA[
Sys.WebForms.PageRequestManager._initialize('ctl00$ContentPlaceHolder1$CourseIndex2$ScriptManager1', document.getElementById('aspnetForm'));
Sys.WebForms.PageRequestManager.getInstance()._updateControls(['tctl00$ContentPlaceHolder1$CourseIndex2$UpdatePanel1'], [], [], 90);
//]]>
</SCRIPT>
<!--课程列表开始 -->
<DIV class=courseSelectConBorder>
<TABLE class=courseSelectTab cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD class=cousreSelectTit>
<H1>大学英语（一）高起专 <SPAN style="FONT-WEIGHT: normal">高起专计算机科学与技术</SPAN></H1></TD>
<TD class=cousreSelectForm><SELECT id=ctl00_ContentPlaceHolder1_CourseIndex2_ddlCourse class=inputBlueLong onchange=SelectCourseID(this) name=ctl00$ContentPlaceHolder1$CourseIndex2$ddlCourse> <OPTION selected value=5319>大学英语（一）高起专</OPTION> <OPTION value=81541>高等数学（一）（高起专）</OPTION> <OPTION value=81548>教育学（高起专）</OPTION> <OPTION value=720>现代远程学习概论</OPTION> <OPTION value=81554>线性代数（高起专）</OPTION> <OPTION value=81744>心理学（高起专）</OPTION></SELECT> </TD></TR></TBODY></TABLE></DIV><!--课程列表结束 -->
<DIV id=ctl00_ContentPlaceHolder1_CourseIndex2_UpdatePanel1>
<UL class=myClassRoomUl>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnChat class=myCourseNavOut href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnChat','')">实时交流</A></LI>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnOfflineJob class=myCourseNavOut href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnOfflineJob','')">离线作业</A></LI>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnOnlineJob class=myCourseNavOut href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnOnlineJob','')">在线作业</A></LI>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnCourseWare class=myCourseNavOver href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnCourseWare','')">课件浏览</A></LI>
<LI><A id=ctl00_ContentPlaceHolder1_CourseIndex2_lbtnArticle class=myCourseNavOut href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$CourseIndex2$lbtnArticle','')">课程公告</A></LI></UL>
<DIV class=classRoomConBorderGreen>
<DIV class=classRoomCon>
<DIV class=classRoomDiv> <A id=ctl00_ContentPlaceHolder1_CourseIndex2_ctl01_lBtnVirExp></A>
<DIV style="MARGIN: 10px; DISPLAY: none" id=ctl00_ContentPlaceHolder1_CourseIndex2_ctl01_tip>各位同学，<BR><BR> 奥鹏学习平台课件浏览系统升级维护，暂定时间为2012年1月8日上午9:00—2012年1月9日9:00，在此时间段内课件不能正常浏览，2012年1月9日上午9:00，课件浏览恢复正常，如给同学的学习带来不便，敬请谅解！ <BR><BR> 奥鹏学生服务中心 助学服务部<BR></DIV>
<TABLE id=InCourse class=showCourseListTab border=0 cellSpacing=0 cellPadding=0>
<THEAD>
<TR>
<TH style="WIDTH: 49%">课件名称</TH>