Scarpetah Postado Março 25, 2017 Denunciar Share Postado Março 25, 2017 Pessoal; Estou com um problema em um codigo; eu consigo inserir as informações mais não consigo fazer ele clicar automaticamente, não da erro mais não acessa processa; <input type="image" class="cmdNormal" name="imgExec" src="../media/exec.jpg" border="0" value="Enviar"> info da pagina ====================================== Sub insert_mac() Dim ieApp As Object Dim Button As HTMLInputElement Set ieApp = CreateObject("InternetExplorer.Application") With ieApp .Visible = True .navigate ("http://datacenter.ctb.virtua.com.br/cable/cableresult.php") Do Until .ReadyState = 4 DoEvents Loop .document.all.Item("mac5").Value = "80" .document.all.Item("mac4").Value = "C6" .document.all.Item("mac3").Value = "AB" .document.all.Item("mac2").Value = "C5" .document.all.Item("mac1").Value = "71" .document.all.Item("mac").Value = "6A" IE.document.all.Item("Enviar").submit End With For Each Button In ieApp.document.getElementsByTagName("Enviar") Button.Click Next Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Scarpetah
Pessoal;
Estou com um problema em um codigo;
eu consigo inserir as informações mais não consigo fazer ele clicar automaticamente, não da erro mais não acessa processa;
<input type="image" class="cmdNormal" name="imgExec" src="../media/exec.jpg" border="0" value="Enviar">
info da pagina
======================================
Sub insert_mac()
Dim ieApp As Object
Dim Button As HTMLInputElement
Set ieApp = CreateObject("InternetExplorer.Application")
With ieApp
.Visible = True
.navigate ("http://datacenter.ctb.virtua.com.br/cable/cableresult.php")
Do Until .ReadyState = 4
DoEvents
Loop
.document.all.Item("mac5").Value = "80"
.document.all.Item("mac4").Value = "C6"
.document.all.Item("mac3").Value = "AB"
.document.all.Item("mac2").Value = "C5"
.document.all.Item("mac1").Value = "71"
.document.all.Item("mac").Value = "6A"
IE.document.all.Item("Enviar").submit
End With
For Each Button In ieApp.document.getElementsByTagName("Enviar")
Button.Click
Next
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.