Показать сообщение отдельно
Старый 06.06.2004, 01:45     # 12
nibl
Junior Member
 
Аватар для nibl
 
Регистрация: 14.09.2003
Адрес: тут
Сообщения: 60

nibl Известность не заставит себя ждать
Или так:
Код:
var URL = 'http://targeturl';
var oIE   = WScript.CreateObject("InternetExplorer.Application");
var oIE1 = WScript.CreateObject("InternetExplorer.Application");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var URLlist = fso.CreateTextFile("urllist.txt", true);

oIE.navigate( URL );
oIE.visible = 1;		// Keep visible
while (oIE.Busy) {WScript.Sleep(200);}	// Important: wait until Internet Explorer is ready.

for( i=0; i<oIE.document.links.length; i++ ){
	oIE1.navigate( oIE.document.links[i] );
	while (oIE1.Busy) {WScript.Sleep(200);}
	for( j=0; j<oIE1.document.links.length; j++ ){
		URLlist.WriteLine( oIE1.document.links[j] );
	};
};
URLlist.Close();
WScript.Echo( 'Done');
На выходе файл urllist.txt, который можно запихнуть в любую качалку.
Вот только работать будет долго.
__________________
Часто истина ... зависит от твоей точки зрения. © Оби Ван Кеноби.
nibl вне форума