|
Título: Asignar variables de un webbrower aVB. Publicado por: Menal_mur en 19 Agosto 2013, 17:25 pm 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 |