VPF::Оперелить связь с инетом - Форум программистов

ПапаМишка

Дата 26.7.2006, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 171
Регистрация: 30.10.2005
Где: Саратов

Репутация: нет
Всего: нет

Никто не может подсказать или наставить на путь, какими командами и пр. возможно определить возможность соединенгия с каким-либо сайтом, то есть грубо говоря ping если из командной строки винды

mihanik

Дата 26.7.2006, 10:26 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

ПапаМишка, попробуй использовать WshUrlShortcut.

Цитата

WshUrlShortcut

Allows you to create a shortcut to an Internet resource programmatically.

Remarks
The WshUrlShortcut object is a child object of the WshShell object — you must use the WshShell method CreateShortcut to create a WshUrlShortcut object (e.g., WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")).

--------------------

Программистами не рождаются, - это родовая травма...

mihanik

Дата 26.7.2006, 12:24 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

О!!!

Ещё нашёл!!!

Цитата

Exec Method WshScriptExec Object

Runs an application in a child command-shell, providing access to the StdIn/StdOut/StdErr streams.

object.Exec(strCommand)

Arguments
object
WshShell object.
strCommand

String value indicating the command line used to run the script.
The command line should appear exactly as it would if you typed it at the command prompt.

Remarks

The Exec method returns a WshScriptExec object, which provides status and error information
about a script run with Exec along with access to the StdIn, StdOut, and StdErr channels.
The Exec method allows the execution of command line applications only.
The Exec method cannot be used to run remote scripts.
Do not confuse the Exec method with the Execute method (of the WshRemote object).

Example

The following example demonstrates the basics of the Exec method.

Код


Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("calc")

Do While oExec.Status = 0
     WScript.Sleep 100
Loop

WScript.Echo oExec.Status

Думаю, что можно будет тебе запустить, используя метод Exec, команду ping и получить от неё ответ...
Ответ проанализируешь и поймёшь, есть пинг или его нет.

C VBScript на VB всё это можно переложить...

Это сообщение отредактировал(а) mihanik - 26.7.2006, 12:28

--------------------

Программистами не рождаются, - это родовая травма...

Akina

Дата 26.7.2006, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

ПапаМишка
Вопрос некорректен. Узел может отвечать на пинг (узел жив, IP-стек жив), но возможности соединения не будет (скажем ФТП-демон повис или Апача выгружена).

Определись что именно тебе нужно.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

ПапаМишка

Дата 26.7.2006, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 171
Регистрация: 30.10.2005
Где: Саратов

Репутация: нет
Всего: нет

mihanik
Огромное спасибо!!! щаз попробую.

Akina
Сам пинг тут просто как способ пытаюсь применить,
а если конкретнее, то надо что бы программа с определённым интервалом времени
проверяла, находится ли компьютер в сети, то есть есть возможность передачи данных,
и в случае отсутвия связи с инетом, комп перегружался бы.
Это если целиком, то что надо

Мне на Дельфи помогли написать, но я его совсем не знаю, даже и код не знаю куда внести,
не говоря уже о том что бы его потом корректировать

Akina

Дата 26.7.2006, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

В таком случае тупо берешь Windows Internet Transfer Control и периодически пытаешься получить близколежащую инфу (например, main page веб-сервера провайдера или контент каталога его ФТП-шника). При невозможности - анализируешь код ошибки. Или используешь WinSock Control... или через WinAPI дергаешь, к примеру, GetHostByName (проверка доступности ДНС-сервера)...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »