Войти

Показать полную графическую версию : [решено] Наличие файла на сервере (да-да, знаю-знаю как надоел)


Онотоле_0001
07-10-2011, 22:18
Спасибо всем, кто не поленился открыть! =)
Тема такая - при старте проги, первым в очереди стоит *.bat, который должен проверять наличие файла на сервере и если, он есть, сказать что бы шли на форум, а сели нет файла - то прога запускалась бы. Вот так.

Дополню, что разумно было бы вместо *.bat, использовать *.vbs (чтоб выдавать MsgBox, в котором кнопки ДА/НЕТ; на ДА - шёл бы линк, на НЕТ - шла бы загрузка проги). Но, к сожалению, с трудом ворочаю что в BAT, что в VBS =)


Скорее всего, файл будет на http протоколе, но вся фича в том, что надо умудрится сделать вышеописаное ШТАТНЫМ набором средств.


С_П_А_С_И_Б_О!


[upd]
Забыл ещё тему, что если нет соединение с Инетом, то он должен выдавать MsgBox с ДА/НЕТ (если говорить о *.vbs).
Если о *.bat файле, то пусть пропингует www.ru и пошлёт юзера за интернетом коментарием (помоему в CMD нет вывода MsgBox'а).

СПАСИБО!

Iska
08-10-2011, 07:46
Онотоле_0001, пожалуйста, то же самое, но по-русски.

yurfed
08-10-2011, 07:54
Онотоле_0001, Вы хотите указать в какой очерёдности загрузиться конкретному файлу?

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

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

Iska
08-10-2011, 19:51
Онотоле_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
08-10-2011, 20:04
не, эт я в одном из топиков видал уже =)
фича №2 состоит в том, что сделать это надо ШТАТНЫМ набором средств -.-

Iska
09-10-2011, 17:08
фича №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
09-10-2011, 20:25
Спасибо, попробуем!)


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

Iska
09-10-2011, 21:11
Онотоле_0001, к сожалению, по моему недогляду, в пост попал последний вариант, когда я проверял работоспособность с несуществующей ссылкой:
strUrl = "http://www.nirsoft.net/utils/shexview2.zip"

Я исправил предыдущий пост (http://forum.oszone.net/post-1769469.html#post1769469). Пробуйте снова:
---------------------------
File [http://www.nirsoft.net/utils/shexview.zip] exists on server
---------------------------
Now you going to site «ShellExView - Shell Extensions Manager»
---------------------------
ОК Отмена
---------------------------

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

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

Iska
10-10-2011, 19:25
Не знаю как выразить благодарность, пивом что ли?) »
Это к Администрации ;).




© OSzone.net 2001-2012