javascript - 如何使用 COM 和 Autohotkey 访问 Javascript 数组

Question

我已经使用 Autohotkey 来访问网页上的某些元素有一段时间了，我可以使用 wb.document.elements[x].forms[x].value 并将其分配给一个值来很好地做到这一点。我很抱歉，但我对 Javascript 的了解非常有限。

最近我查看了该页面的代码并注意到以下内容:

<script type="text/javascript" defer="defer"> 
form = new ActiveForm('EditingServiceInformationforSOMEGUY','Editing Service Information for SOME GUY');
    data = {};
    data.header = ["addressid", "contactid", "address1", "address2", "city", "state", "zip"];
    data.body = [["275101010", "254101010", "1001 Maudlin", "Apt. 1774", "Beverly Hills", "CA", "90210"]];

我一直在尝试通过 AHK 访问该数据的 data.body 部分，但没有成功。如果我在查看页面时在地址栏中输入:

javascript: alert(data.body[0])

我收到一个消息框，其中 data.body 值以逗号分隔。

我似乎无法通过 Autohotkey 复制此内容。我尝试了很多不同的语法，但我在这里遗漏了一些东西。我想获得一个与我在 Javascript 警报中看到的值相同的 msgbox，然后从那里进一步操作它们。

我在脚本中尝试了许多不同的组合来将 data.body 显示为逗号分隔变量的列表，但似乎无法正确触发。

我当前的 AHK 代码如下，尝试分配 tempvar 的行是我无法正确执行的行。

Settitlematchmode, 2
WinGetTitle, Webstring, Title of the page
wb := IEGet(Webstring)

    tempvar := wb.document(data.header[0])
    msgbox % tempvar . "|" . Isobject(tempvar)
    IEGet(Name:="") {
        IfEqual, Name,, WinGetTitle, Name, ahk_class IEFrame
            Name := ( Name="New Tab - Windows Internet Explorer" ) ? "about:Tabs"
            : RegExReplace( Name, " - (Windows|Microsoft) Internet Explorer" )
        For wb in ComObjCreate( "Shell.Application" ).Windows
            If ( wb.LocationName = Name ) && InStr( wb.FullName, "iexplore.exe" )
                Return wb
    }

Answer 1

@vasili111 走在正确的轨道上。试试这个:

Settitlematchmode, 2
WinGetTitle, Webstring, Title of the page
wb := IEGet(Webstring)

IID := "{332C4427-26CB-11D0-B483-00C04FD90119}" ; IID_IHTMLWindow2
window := ComObj(9,ComObjQuery(wb,IID,IID),1)

    tempvar := window.data.header.0
    ; or use
    ;tempvar := window.eval("data.header[0]")

    msgbox % tempvar . "|" . Isobject(tempvar)
    IEGet(Name:="") {
        IfEqual, Name,, WinGetTitle, Name, ahk_class IEFrame
            Name := ( Name="New Tab - Windows Internet Explorer" ) ? "about:Tabs"
            : RegExReplace( Name, " - (Windows|Microsoft) Internet Explorer" )
        For wb in ComObjCreate( "Shell.Application" ).Windows
            If ( wb.LocationName = Name ) && InStr( wb.FullName, "iexplore.exe" )
                Return wb
    }