«Нажмите кнопку javascript с VBA

Question

Бесконечный поиск в Google и множество решений, похоже, не помогли. Я постоянно получаю бесконечные ошибки разных типов и просто не могу найти элегантный способ щелчка по этой кнопке, если я не получу код, ожидающий четыре секунды, пока я нажимаю его вручную с помощью мыши.

Он работает на других кнопках, но я работаю, если проблема заключается в вложенной doPostBack и многих '' (замененных от "") в ней?

код ниже (я обрезанные из нерелевантные секции)

VBA Код:

Sub IE_Clicks() 

    Dim shellWins As ShellWindows 
    Dim IE As InternetExplorer 

    Set shellWins = New ShellWindows 

    If shellWins.Count > 0 Then 
    ' Get IE 
    Set IE = shellWins.Item(0) 
    IE.Visible = True 
    Else 
    ' Create IE 
    Set IE = New InternetExplorer 
    IE.Visible = True 
    End If 

    IE.Navigate ("[URL]") 

Do While (IE.Busy Or IE.READYSTATE <> READYSTATE.READYSTATE_COMPLETE) 
    DoEvents 
Loop 
    Call IE.document.parentWindow.execScript("WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions('ctl00$cphMain$btnAddTab', '', true, '', '', false, false))", "JavaScript") 

    Set IE = Nothing 
End Sub 

HTML код:

<input type="submit" name="ctl00$cphMain$btnAddTab" value="Add New" onclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions(&quot;ctl00$cphMain$btnAddTab&quot;, &quot;&quot;, true, &quot;&quot;, &quot;&quot;, false, false))" id="ctl00_cphMain_btnAddTab" class="ActionButton"> 

JavaScript:

<script type="text/javascript"> 
//<![CDATA[ 
var theForm = document.forms['aspnetForm']; 
if (!theForm) { 
    theForm = document.aspnetForm; 
} 
function __doPostBack(eventTarget, eventArgument) { 
    if (!theForm.onsubmit || (theForm.onsubmit() != false)) { 
     theForm.__EVENTTARGET.value = eventTarget; 
     theForm.__EVENTARGUMENT.value = eventArgument; 
     theForm.submit(); 
    } 
} 
//]]> 
</script> 

Что-то, что позволит мне нажмите эту кнопку, будет потрясающе.

Answer 1

Это должно работать:.

IE.document.getElementById("ctl00_cphMain_btnAddTab").Click