WebBrowser Problemas...

25/01/2013

8

Olá a todos vocês amigos... estou com problemas relacionados ao WebBrowser...

Bom as linhas em html é a seguinte...

</td></tr>
<tr><td colspan="2" class="fond">
<div style="height:19px;width:5px;background-position:-29px -377px;" class="fond nr fl"></div>
<div style="height:19px;width:5px;background-position:-34px -377px;" class="fond nr fr"></div>
<div style="top:auto; margin-left:10px; position:absolute; display:none" class="auto asindex" id="autocptobj"><div style="height:9px;"></div>
<div class="as_header"><div class="as_corner"></div><div class="as_bar"></div></div><ul id="as_ul"><li><span id="autocpt"></span> </li></ul><div class="as_footer"><div class="as_corner"></div><div class="as_bar"></div></div><div class="as_footfl"><div class="as_fleche"></div></div></div></td>
</tr><tr>
<td colspan="2" style=" border-left:1px solid #d9d9d9;background-color:#FFFFFF; padding:0px 5px 0px 10px;">
<h4 style="text-indent:10px;" >Type the Email name of your choice</h4>
<div style="padding-top:8px;"><form id="f" method="post" action="."><table border="0" cellpadding="0" cellspacing="0" ><tr><td style="width:1px;"><a  class="butcpt" href="javascript:menuvoir('menucpt');" onmouseout="menucacher('menucpt')" title="My disposable Email addresses"></a></td><td class="nw" style="text-align:left;"><input type="hidden" name="yp" id="yp" value="NZwN3ZwpmAmV4AwplZwRjZD" /><input onclick="setTimeout('foc()',1000);" style="width:145px;" onkeyup="try{CptonKeyUp();}catch(ex){}" onfocus="javascript:cptfocus=true;" onblur="javascript:cptfocus=false;" class="scpt" tabindex="0" type="text" id="login" name="login" maxlength="40" value="regis" /></td><td><div style="width:6px;"></div></td><td style="width:1px;"><input class="sbut" action="/" type="submit" value="Check Inbox" title="Check inbox @yopmail.com"/></td></tr><tr><td class="al_l" colspan="2" style="height:3px;"><div onmouseover="menuvoir('menucpt')" onmouseout="menucacher('menucpt')" class="menu bordfin" id="menucpt" style="visibility:hidden;display:none;"><ul>
<li class="alc" ><center><span class="titmenu">- My addresses -</span></center><hr/></li><li ><a  style="float:left;width:152px;"href="?login=regis">regis</a><a style="color:#F00;float:right;width:5px; " href="?clearlist=1&clearcpt=regis" class="delcpt">x</a></li><li> <br/><a style="float:right; text-align:right; padding:0px; margin:0px;color:blue;" class="petit alr" href="?clearlist=1">Clear list </a></li></ul></div></td></tr><tr><td class="rbutcpt"></td><td class="rscpt"><div class="rscptl"></div><div class="rscptr"></div></td><td></td>
<td class="rsbut"><div class="rsbutl"></div><div class="rsbutr"></div></td></tr></table></form></div>
<div class="petit nb nw" style=" float:right; ;color:#999999; letter-spacing:-1px; position:relative;top:-17px;">
<a style="color:#999999;" href="conditions.php">
</a></div>
<table width="80px"><tr>
<td><a href="https://twitter.com/share" class="twitter-share-button" data-url="http://www.yopmail.com/en/" data-count="horizontal">Tweet</a><script type="text/javascript" src="//platform.twitter.com/widgets.js"></script></td>
<td><g:plusone size="medium"></g:plusone></td>
</tr>
</table>

</td></tr>


Até ai tudo bem, existe um botão ai Chamado "Check Inbox"

<td style="width:1px;"><input class="sbut" action="/" type="submit" value="Check Inbox" title="Check inbox @yopmail.com"/></td></tr>


Como eu faço para que o programa faça o click nesse botão utilizando o WebBrowser ?

tentei

WebBrowser1.OleObject.Document.All.Tags('input').item('submit').click;


Porém sem nenhum sucesso...

poderiam me ajudar? desde já grato.
Responder

Posts

30/01/2013

Hudson Leite

Regis Santos

WebBrowser1.OleObject.Document.All.Tags('input').item('submit').click;

substitua por:
WebBrowser1.OleObject.Document.All.Tags('input').item(posicao do componente).click;

Imaginando que este componente esta na posição ( 2 ) do form, então o codigo ficaria assim:

WebBrowser1.OleObject.Document.All.Tags('input').item(2).click;

outros exemplos:
WebBrowser1.OleObject.Document.All.Tags('input').item(8).Focus;
WebBrowser1.OleObject.Document.All.Tags('input').item(2).value := '9999999';
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira