Конференция VBStreets

**romanow** » 25.09.2006 (Пн) 9:47

подскажите пожалуста какие свойства есть у команды пинг в vb6

**Viper** » 25.09.2006 (Пн) 9:50

а в vb6 есть команда ping? давно?

**Хакер** » 25.09.2006 (Пн) 11:45

!Viper!
Там кстати, вообще никаких команд нет

Надеемся что автор придёт и расскажет всем, что же он хотел.

**Конь** » 11.10.2006 (Ср) 11:38

А как можно пропинговать сервер?

**Конь** » 11.10.2006 (Ср) 11:39

Вобщем, как создать аналог программы ping.exe?

**Конь** » 11.10.2006 (Ср) 11:40

Надеюсь, это не посчитают некрофилией... :roll:

**Viper** » 11.10.2006 (Ср) 11:56

это посчитают незнанием местонахождения кнопки правка!!! :twisted:

Что касается вопроса, то ответ находится поиском с полпинка вводом строки "ping", ответ например есть тут

**tyomitch** » 11.10.2006 (Ср) 17:40

Конь, ещё одно замечание -- и всё.

**Nicky** » 12.10.2006 (Чт) 16:23

Где-то встретил интересное применение для пинговых целей функции GetRTTAndHopCount

**Konst_One** » 12.10.2006 (Чт) 16:29

здесь что-ли: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/getrttandhopcount.asp
:lol:

**Nicky** » 13.10.2006 (Пт) 6:13

Konst_One писал(а):здесь что-ли: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/getrttandhopcount.asp

:):) Но вообще-то нет

**RayShade** » 13.10.2006 (Пт) 10:01

Я пингую обычно с помощью WMI:

Код: Выделить всё: strComputer = "." Set objWMIService = GetObject(_ "winmgmts:\\" & strComputer & "\root\cimv2") Set colPings = objWMIService.ExecQuery _ ("Select * From Win32_PingStatus where Address = '192.168.1.1'") For Each objStatus in colPings If IsNull(objStatus.StatusCode) _ or objStatus.StatusCode<>0 Then WScript.Echo "Computer did not respond." Else Wscript.Echo "Computer responded." End If Next

**Konst_One** » 13.10.2006 (Пт) 11:27

интересное решение, никогда не применял.
спасибо за данный вариант :wink:

**Конь** » 13.10.2006 (Пт) 14:43

RayShade
Спасибо.

**zaf** » 13.10.2006 (Пт) 16:11

А можно ли пинговать при помощи таймера и winsock?
Как только пришел отвер - остановка таймера и вывод на эеран цифру которые таймер переплюсил за это время

**Konst_One** » 13.10.2006 (Пт) 16:40

ping работает по протоколу ICMP

**zaf** » 13.10.2006 (Пт) 17:23

Konst_One писал(а):ping работает по протоколу ICMP

Я понял что описанный мною способ не работает...

Моим способом можно проверить "ping" до php интерплетатора или к серверу smtp/pop3 итп. ;D

могу поспорить скоро выйдет понятие как PHPing :-D

После того как прочитают мой пост :lol:

**_ae_** » 13.10.2006 (Пт) 17:43

zaf
ICMP позволяет выяснить факт налчия некоторой машины с сети. А то что ты написал - позволяет выяснить факт поддержки некоторых сервисов машиной. Разницу чувствуешь?

**yaklit** » 19.10.2006 (Чт) 21:18

можно так

Код: Выделить всё: sIP="82.223.85.67" Randomize A=int(rnd*100) open "C:\TEMP"+a+".CMD" for output as #12 print #12, "ping "+sIP+">C:\TMP"+a+".DAT" print #12, "del "+"C:\TEMP"+a+".CMD" close #12 shell "C:\TEMP"+a+".CMD", vbHide do doevents loop until dir("C:\TEMP"+a+".CMD")=""

А потом считать Результаты "C:\TMP"+a+".DAT"