Как получить элементы, которые не имеют идентификатора в VBScript

Question

Я пытаюсь написать скрипт для управления моим IExplorer. Это работает хорошо до определенного момента, но затем мне нужно ввести значение в textarea и нажать кнопку, пока у них обоих нет идентификатора. Я понятия не имею, как я могу перемещаться в HTML DOM, используя VBScript, но было предложено где-то использовать document.all как-то. Я также думал о том, чтобы, возможно, использовать сценарий JS, чтобы дать им идентификаторы, а затем вернуться и использовать document.getElementbyid, но я не знаю, как запустить сценарий JS из VBScript с учетом инициализированного объекта документа. То, что у меня пока есть:

Option Explicit
With CreateObject("InternetExplorer.Application")
  .Visible = True
  .Navigate "https://adwords.google.co.uk/um/Logout"
  Do While .Busy
WScript.Sleep 100
  Loop
  .Document.getElementByID("Email").Value = "testtestingtton@gmail.com"
  .Document.getElementByID("Passwd").Value = "PWD"
  'Note: You could just get the form and submit it, but
  'you'll miss out on any special JavaScript associated 
  'with the Submit button.
  .Document.getElementByID("signIn").Click
  Do While .Busy
    WScript.Sleep 100
  Loop
      .Navigate "https://adwords.google.co.uk/o/Targeting/Explorer?"
        Do While .Busy
    WScript.Sleep 100
  Loop
'here begins the problem'
  .Document.All.tags("sB5 sPEB").Value = "southpark"
  '.Document.getElementsByTagName("sJ1").Click'

End With

Кроме того, поскольку поле, которое я пытаюсь заполнить, является

<textarea style="overflow-y: hidden; height: 36px;" class="sB5 sPEB"></textarea>

и у него нет атрибута значения, как вычисляется его значение?

Answer 1

Используйте MSXML DOM методы , такие как hasChildNodes и nextNode для перемещения или selectSingleNode и selectNodes для прямого доступа.Текстовое значение сохраняется как дочерний элемент элемента textarea в текстовом узле .

Ссылки

• Как создать динамическую подпись электронной почты

• Как автоматизировать удаление резервных копий в SharePoint Server 2007 и Windows SharePoint Services 3.0 с помощью Visual Basicскрипт

• Использование XPath для выполнения поиска без учета регистра с MSXML

• Как выполнитьИспользование XPath-запросов в MSXML DOM Метод selectNodes

• Использование правильной версии MSXML в Internet Explorer

Answer 2

вместо использования .Document.All.tags("sB5 sPEB").Value = "southpark"

Попробуйте следующие коды

1. проверить, является ли класс уникальным

   .Document.getElementsByClassName("sB5 sPEB").Value = "southpark"
   

В противном случае используйте цикл for и оператор if отправляет значение