读书人

还是关于WebBrowser控件获取网页文本的

发布时间: 2012-02-03 22:02:47 作者: rapoo

还是关于WebBrowser控件获取网页文本的
[code=VB][/code]Private Sub Command1_Click()
Dim s As String, l As Integer
s = WebBrowser1.Document.body.innerText
Text1.Text = s
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://192.168.1.1"
End Sub

上面是套用老张的源代码,登陆的是路由器管理页面。可是提取不了任何文本
[code=HTML][/code]<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="5">
<title></title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function chang_btn_name()
{
if (form1.con_dis_stat.value=='1')
{
form1.disconnect_connect.value=' 断 开 ';
form1.input_value.value="0";
}
else
{
form1.disconnect_connect.value=' 连 接 ';
form1.input_value.value="1";
}
}
function check()
{
form1.click_value.value='1';
if(form1.con_dis_stat.value=='1')
{
form1.input_value.value="0";
//alert(form1.input_value.value);
}
else
{
form1.input_value.value="1";
//alert(form1.input_value.value);
}
}
</script>
</head>

<body onLoad="chang_btn_name();">
<table width="610" border="0" class="menu_td">
<tr>
<td height="15"><table width="570" height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="153" class="item_left" ><span class="menu_string_display">
WAN 状态</span></td>
<td width="388"> </td>
</tr>
<tr>
<td height="1" colspan="2" class="subtitle_underbar"></td>
</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
</table> <table width="570" border="0" cellpadding="0" cellspacing="0" class="content_table">

<tr>
<td width="124" class="item_title"><span class="item_title_string">
 连接方式</span></td>
<td width="459" class="item_center"><div align="left"><span class="item_string">PPPoE</span></div></td>
</tr>
<tr>
<td class="item_title"><span class="item_title_string">
 MAC地址</span></td>
<td class="item_center"><div align="left"><span class="item_string">00-15-F2-3C-37-D0</span></div></td>
</tr>
<tr>
<td class="item_title"><span class="item_title_string">  IP    地址</span></td>
<td class="item_center"><div align="left"><span class="item_string">123.184.73.116</span></div></td>
</tr>
<tr>


<td class="item_title"><span class="item_title_string">
 子网掩码</span></td>
<td class="item_center"><div align="left"><span class="item_string">255.255.255.255</span></div></td>
</tr>
<tr>
<td class="item_title"><span class="item_title_string">
 默认网关</span></td>
<td class="item_center"><div align="left"><span class="item_string">123.184.73.116</span></div></td>
</tr>
<tr>
<td class="item_title"><span class="item_title_string">
 首选DNS</span></td>
<td class="item_center"><div align="left"><span class="item_string">219.148.204.66</span></div></td>
</tr>
<tr>
<td class="item_title"><span class="item_title_string">
 备份DNS</span></td>
<td class="item_center"><div align="left"><span class="item_string">219.149.6.99</span></div></td>
</tr>
<tr>
<td height="33" colspan="2" class="item_center"><span class="item_title_string">
</span>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="72%" height="21"> <div align="center"><span class="item_title_string">
本页面每 5 秒刷新一次 </span></div></td>
<form name="form1" action="wan_connect_disconnect.cgi" method="post">
<td width="28%"><input type="submit" name="disconnect_connect" value=" 连 接 " onclick="check();"><input type="hidden" name="click_value" value="999"><input type="hidden" name="input_value" value="999"><input type="hidden" name="con_dis_stat" value="1"></td>
</form>
</tr>
</table></td>
</tr>

</table> <table width="100%" height="2" border="0" cellpadding="0" cellspacing="0" class="table_space">
<tr>
<td> </td>
</tr>
</table>
<table width="570" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="item_left" ><span class="menu_string_display">LAN 状态</span></td>
<td width="392"> </td>
</tr>
<tr>
<td height="1" colspan="2" class="subtitle_underbar"></td>


</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
</table> <table width="570" border="0" cellpadding="0" cellspacing="0" class="content_table">

<tr>
<td width="119" class="item_title"><span class="item_title_string">
 MAC地址</span></td>
<td width="430" class="item_center"><div align="left"><span class="item_string">08-10-17-F8-EF-5E</span></div></td>
</tr>
<tr>
<td class="item_title"><span class="item_title_string">  IP    地址</span></td>
<td class="item_center"><div align="left"><span class="item_string">192.168.1.1</span></div></td>
</tr>
<tr>
<td class="item_title"><span class="item_title_string">
 子网掩码</span></td>
<td class="item_center"><div align="left"><span class="item_string">255.255.255.0</span></div></td>
</tr>
<tr>
<td class="item_title"><span class="item_title_string">  DHCP
Server </span></td>
<td class="item_center"><div align="left"><span class="item_string">ON</span></div></td>
</tr>

</table> <table width="100%" height="2" border="0" cellpadding="0" cellspacing="0" class="table_space">
<tr>
<td> </td>
</tr>
</table>
<table width="570" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="item_left" ><span class="menu_string_display">系统信息</span></td>
<td width="392"> </td>
</tr>
<tr>
<td height="1" colspan="2" class="subtitle_underbar"></td>
</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
</table> <table width="570" border="0" cellpadding="0" cellspacing="0" class="content_table">

<tr>
<td width="124" class="item_title"><span class="item_title_string">
 版本信息</span></td>
<td width="459" class="item_center"><div align="left"><span class="item_string">IGD-M4H-V2.30-U7CN-Netcoretec(2305NR), IGD software for 2305NR, V2.30 Simplified Chinese version, 2005.06.14.11:00



Copyright(c) by Netcore Technology Co.Ltd. All rights reserved.


</span></div></td>
</tr>

</table></td>
</tr>
</table>

</body>
</html>

上面是路由器页面的全部源代码,拜托那位高手能指点一下,不爱提供源码,告诉我应该参考哪方面材料也行。还有我需要点击断开网络连接的按钮,也能一起告诉我,将非常感谢。thx

[解决办法]
有什么问题?这个页面要密码.

读书人网 >VB

热点推荐