1 Тема от CyberW0rm

  • CyberW0rm
  • Участник
  • Неактивен

Тема: VBScript:InternetExplorer.Appilication

Set objIE = CreatEObject("InternetExplorer.Application")
objIE.Visible = True
strURL = "yandex.ru"
objIE.Navigate strURL
While objIE.ReadyState <> 4
    WScript.Sleep 100
Wend

Вообщем суть в том чтобы программно получить коллекцию ссылок на странице
и сделать методом click() по индексу этой коллекции.
В vbscript плохо разбираюсь так что не судите строго.

P.s Помоему получить ссылки можно через  objIE.Document.(.....)
А как сделать клик  по элементу?:/

2 Ответ от Felix Faria

  • Felix Faria
  • Разработчик
  • Неактивен

Re: VBScript:InternetExplorer.Appilication

В vbscript плохо разбираюсь так что не судите строго.

Тогда очень поможет эта страничка: Использование HTML DOM (Document Object Model) в скриптах на базе Windows Script Host
Ссылки можно так собрать: 


Sub Navigate(Link)
	objIE.Navigate Link
	While objIE.Busy
		WScript.Sleep 100
	Wend
End Sub 

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

Navigate "http://www.yandex.ru/"
For Each tag In objIE.Document.getElementsByTagName("a")
	link = tag.getAttribute("href")
    If (InStr(link,"http")<>0) Then 
		WScript.Echo link
    End If 
Next
'objIE.Quit
В основе всего лежит простота.