Hola a tod@s, soy nuevo en este mundillo y me gustaría que alguién más experto me pueda sugerir alguna idea de como hacer lo que detallo a continuación:
Tengo un programa que hace una llamada a traves de un Web Browser a una pagina HTML, pues bien en dicha pagina hay unos datos que necesito para trabajar con ellos y me gustaría pasarlos a unas variables previamente definidas en VB.
La pagina HTML tiene este código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0039)http://192.168.0.226/Actual_Values.shtm -->
<HTML><HEAD><TITLE>Actual Values - FIXED Mode</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<META content=http://schemas.microsoft.com/intellisense/ie5
name=vs_targetSchema>
<META http-equiv=refresh content=2>
<SCRIPT language=javascript>
<!--
function getBit( Id, value, mask )
{
if ( value & mask )
{
Id.innerText = "YES";
}
else
{
Id.innerText = "NO";
}
}
//-->
</SCRIPT>
<SCRIPT language=javascript id=clientEventHandlersJS>
<!--
function window_onload()
{
getBit(Stat2Bit0,85,1);
getBit(Stat2Bit5,85,32);
getBit(Stat2Bit6,85,64);
}
//-->
</SCRIPT>
</HEAD>
<BODY language=javascript onload="return window_onload()"><FONT
face="MS SANS SERIF">
<TABLE width="100%" border=1>
<COLGROUP>
<COL width="40%">
<COL width="20%">
<COL width="40%"></COLGROUP>
<TBODY>
<TR align=left>
<TD><B>INTECONT PLUS VBW20600-09 1759 </B></TD>
<TD><B>Actual Values</B></TD>
<TD><B>192.168.0.226</B></TD></TR>
<TR align=left>
<TD>Scale on</TD>
<TD>
<DIV id=Stat2Bit0 style="DISPLAY: inline; WIDTH: 70px; HEIGHT: 15px"
ms_positioning="FlowLayout">Stat2Bit0 $$v</DIV></TD>
<TD></TD></TR>
<TR align=left>
<TD>General warning</TD>
<TD>
<DIV id=Stat2Bit6 style="DISPLAY: inline; WIDTH: 70px; HEIGHT: 15px"
ms_positioning="FlowLayout">Stat2Bit6 $$v</DIV></TD>
<TD></TD></TR>
<TR align=left>
<TD>General alarm</TD>
<TD>
<DIV id=Stat2Bit5 style="DISPLAY: inline; WIDTH: 70px; HEIGHT: 15px"
ms_positioning="FlowLayout">Stat2Bit5 $$v</DIV></TD>
<TD></TD></TR>
<TR align=left>
<TD>Highest-Priority Event</TD>
<TD>0318030C</TD>
<TD></TD></TR>
<TR align=left>
<TD>Feed Rate</TD>
<TD>485934.97</TD>
<TD>kg/h</TD></TR>
<TR align=left>
<TD>Totalizer 1</TD>
<TD>3506407.00</TD>
<TD>kg</TD></TR>
<TR align=left>
<TD>Fill Weight</TD>
<TD>66.87</TD>
<TD>kg</TD></TR>
<TR align=left>
<TD>Totalizer 2</TD>
<TD>2.02</TD>
<TD>kg</TD></TR>
<TR align=left>
<TD>Actual Setpoint</TD>
<TD>78100912.00</TD>
<TD>kg/h</TD></TR></TBODY></TABLE></FONT></BODY></HTML>
Este código lo he sacado de la propia pagina dandole a VER CODIGO FUENTE.
Las variables que necesito son estas:
Stat2Bit0
Stat2Bit5
Stat2Bit6
para ver su estado "1" o "0" una vez que las tenga asignadas a las nuevas variables de VB.
Gracias de antemano y un saludo