[Iska]

Онотоле_0001, пожалуйста, то же самое, но по-русски.

[yurfed]

Онотоле_0001, Вы хотите указать в какой очерёдности загрузиться конкретному файлу?

Вы бы действительно, перевели ваш сумбур на русский язык
И вы наверно в чатах любите сидеть

[Онотоле_0001]

Ну блин, старался тут расписывал)
Вобщем соль вот в чём - батник/скрипт должен проверять подключение к интернету и, при наличии такого, проверить наличие файла на http и выдать Msgbox с предложением пойти по ссылке на форум.
в чатах сидеть привычки не имею

[Iska]

Онотоле_0001, проверять подключение к интернету ни к чему. Достаточно проверить доступность файла.

Например, так:

Код:

"%ProgramFiles%\WGet\wget.exe" --spider --quiet "http://www.nirsoft.net/utils/shexview.zip" && (msg.exe * /w /time:15 "Now you going to site «ShellExView - Shell Extensions Manager»" & start "" "http://www.nirsoft.net/utils/shexview.html")

[Онотоле_0001]

не, эт я в одном из топиков видал уже
фича №2 состоит в том, что сделать это надо ШТАТНЫМ набором средств -.-

[Iska]

фича №2 состоит в том, что сделать это надо ШТАТНЫМ набором средств -.- »

Попробуйте так:

Код:

Option Explicit

Dim strUrl


strUrl = "http://www.nirsoft.net/utils/shexview.zip"

With WScript.CreateObject("Microsoft.XMLHTTP")
	.open "HEAD", strUrl, False
	.setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
	.send
	
	If .status = 200 Then
		If WScript.CreateObject("WScript.Shell").Popup( _
			"Now you going to site «ShellExView - Shell Extensions Manager»" , 15, "File [" & strUrl & "] exists on server", vbOKCancel + vbInformation _
		) <> vbCancel Then
			
			WScript.CreateObject("Shell.Application").ShellExecute "http://www.nirsoft.net/utils/shexview.html"
		End If
	Else
		'WScript.Echo "File [" & strUrl & "] not exists on server"
	End If
End With

WScript.Quit

[Онотоле_0001]

Спасибо, попробуем!)


[upd] Не, не работает, ничего не выдаёт, да и процесс в диспетчере на пару секунд повляется, думаю, что просто проверяет на правильность и вырубается.

[Iska]

Онотоле_0001, к сожалению, по моему недогляду, в пост попал последний вариант, когда я проверял работоспособность с несуществующей ссылкой:

Код:

strUrl = "http://www.nirsoft.net/utils/shexview2.zip"

Я исправил предыдущий пост. Пробуйте снова:

Код: --------------------------- File [http://www.nirsoft.net/utils/shexview.zip] exists on server --------------------------- Now you going to site «ShellExView - Shell Extensions Manager» --------------------------- ОК Отмена ---------------------------

[Онотоле_0001]

СПАСИБО ОГРОМНОЕ!
Двоечка многое поменяла)
Не знаю как выразить благодарность, пивом что ли?)
СПАСИБО!

Тема закрыта.