Компьютер включен/выключен?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Компьютер включен/выключен?

Сообщение JohnK » 09.04.2006 (Вс) 10:54

Есть ситуации, когда нужно узнать включен сейчас компьютер в сети или нет. Это можно было бы проделать простым пингером, но существуют файрволы.
Как узнать по IP? комп включен или выключен?
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 09.04.2006 (Вс) 11:04

А никак.


Интересно, кто доверит тебе перевод рефератов и курсовых, если у тебя и в подписи-то ошибка? ;-)
Изображение

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 09.04.2006 (Вс) 11:37

Да, на уровне IP никак. Если нет достоверных данных, что ЭВМ доступен по какомунить порту или протоколу.

Если рашать задачу глобально, выходя за рамки VB, то ARP тебе в помощь.
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 09.04.2006 (Вс) 11:44

Sebas писал(а):Если рашать задачу глобально, выходя за рамки VB, то ARP тебе в помощь.

Это как раз не глобально, а очень даже локально.
Область действия ARP ограничена одним сегментом сети.
Изображение

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 09.04.2006 (Вс) 11:52

tyomitch писал(а):
Sebas писал(а):Если рашать задачу глобально, выходя за рамки VB, то ARP тебе в помощь.

Это как раз не глобально, а очень даже локально.
Область действия ARP ограничена одним сегментом сети.


Да, за шлюзом, не прокатит(
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 09.04.2006 (Вс) 11:52

tyomitch ну доверяют же....

Всем А как это делает NetView ?
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 09.04.2006 (Вс) 11:53

Sebas писал(а):Да, на уровне IP никак. Если нет достоверных данных, что ЭВМ доступен по какомунить порту или протоколу.

Если решать задачу глобально, выходя за рамки VB, то ARP тебе в помощь.
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 09.04.2006 (Вс) 20:48

Sebas писал(а):...доступен по какомунить порту или протоколу.

100% согласен!
Правда придёться клиент высылать, что не есть гуд =(

Wild VB Code for Food
Постоялец
Постоялец
 
Сообщения: 387
Зарегистрирован: 16.06.2005 (Чт) 17:34
Откуда: ты, друг? =)) Сообщений: 1234

Сообщение Wild VB Code for Food » 09.04.2006 (Вс) 23:04

если комп с виндой можно попробовать подключится к порту COM (21 вроде), если не отвечает - либо выключен, либо фаерволл, либо.... :roll:

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 09.04.2006 (Вс) 23:05

Это какой порт COM? Последовательный порт, что-ли?
Lasciate ogni speranza, voi ch'entrate.

Wild VB Code for Food
Постоялец
Постоялец
 
Сообщения: 387
Зарегистрирован: 16.06.2005 (Чт) 17:34
Откуда: ты, друг? =)) Сообщений: 1234

Сообщение Wild VB Code for Food » 09.04.2006 (Вс) 23:48

нет, для работы с DCOM(ActiveX). Я где-то читал что DCOM работает через loopback интерфейс винды. и через фаерволл можно запретить использование DCOM.

Нашёл....

http://www.iana.com/assignments/port-numbers
http://bugtraq.ru/cgi-bin/forum.mcgi?ty ... 5&m=120809

ЗЫ. 135 порт а не 2х, вот.. конектся туда....если отвечает - работает, если не отвечает - не работает....

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 10.04.2006 (Пн) 7:49

Wild VB Code for Food писал(а):если комп с виндой можно попробовать подключится к порту COM (21 вроде), если не отвечает - либо выключен, либо фаерволл, либо.... :roll:

21 -- это FTP‍.
Кроме того, если фаервола нет, то и пингов достаточно. А если фаервол есть, то и это не поможет.
Изображение

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 10.04.2006 (Пн) 7:54

Wild VB Code for Food писал(а):ЗЫ. 135 порт а не 2х, вот.. конектся туда....если отвечает - работает, если не отвечает - не работает....

У тебя 135 порт открыт наружу? Какой говоришь у тебя IP-адрес?
Lasciate ogni speranza, voi ch'entrate.

JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 10.04.2006 (Пн) 9:53

А действительно, если пытаться конектиться на:
135 epmap
139 netbios-ssn
445 microsoft-ds

Имеется ввиду внутри локалки, эти порты при нормальной настройки файера открыты...
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty

Wild VB Code for Food
Постоялец
Постоялец
 
Сообщения: 387
Зарегистрирован: 16.06.2005 (Чт) 17:34
Откуда: ты, друг? =)) Сообщений: 1234

Сообщение Wild VB Code for Food » 10.04.2006 (Пн) 10:05

alibek
Но есть одно но, после одного хотфикса мелкомягких, связаная с win32.blast система сама блoкирует эти порты на входящий траффик.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 10.04.2006 (Пн) 10:56

Если есть админские права, то, может стоит пробовать получать скажем, список Win32_Process? Или, какого нибудь "железного" WMI класса?

Wild VB Code for Food
Постоялец
Постоялец
 
Сообщения: 387
Зарегистрирован: 16.06.2005 (Чт) 17:34
Откуда: ты, друг? =)) Сообщений: 1234

Сообщение Wild VB Code for Food » 10.04.2006 (Пн) 10:59

в сегменте сети лучше всего не извращятся и испольовать пинг, можно попробовать просканировать порты, дёшево и сердито......

А чем так страшен фаерволл на выходе из сегмента, скажите ещё что он исходящий/входящий траффик не пускает.....

ЗЫ. Это смотря какая сеть.....если на работе - скорее всего закрыты все порты кроме 80, FileServer, и ещё 2-3 портов...
а если домашняя (домовая) то скорее открыты почти все порты....
Последний раз редактировалось Wild VB Code for Food 10.04.2006 (Пн) 11:06, всего редактировалось 3 раз(а).

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 10.04.2006 (Пн) 11:01

Здесь было легкое издевательство над Wild VB Code for Food, но он предусмотрительно отредактировал предыдущее сообщение :lol:
Последний раз редактировалось uhm 10.04.2006 (Пн) 15:03, всего редактировалось 1 раз.
Быть... или не быть. Вот. В чём вопрос?

JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 10.04.2006 (Пн) 14:53

NetView 139 порт юзает! Будем в этом направлении идти
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty

Wild VB Code for Food
Постоялец
Постоялец
 
Сообщения: 387
Зарегистрирован: 16.06.2005 (Чт) 17:34
Откуда: ты, друг? =)) Сообщений: 1234

Сообщение Wild VB Code for Food » 10.04.2006 (Пн) 16:42

uhm
Я его редактировал в тот момент как ты его постил.....просто вопрос плохо прочитал и заметил ошибку до того как ты запостил....

JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 11.04.2006 (Вт) 0:09

Все подтвердилось.

вот примерчик:

Код: Выделить всё
   If WS_139.state <> sckClosed Then WS_139.Close
   WS_139.RemoteHost = IP
   WS_139.RemotePort = 139
    DoEvents
    WS_139.Connect
     .......



Код: Выделить всё
Private Sub WS_139_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Select Case Number
    Case 10060  ' NOT Online
             .....
    Case 10053  ' Online
             .....
   Timer3.Enabled = True


Это работает в локалке
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty

Бяка
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 219
Зарегистрирован: 21.09.2005 (Ср) 21:28

Сообщение Бяка » 11.04.2006 (Вт) 23:40

Как узнать по IP?


Да, на уровне IP никак.


да? можно, если , конечно, на стороне жертвы стоит какой либо обработчик командного IPпакета :roll: и файрвол непоможет :roll:

Wild VB Code for Food
Постоялец
Постоялец
 
Сообщения: 387
Зарегистрирован: 16.06.2005 (Чт) 17:34
Откуда: ты, друг? =)) Сообщений: 1234

Сообщение Wild VB Code for Food » 12.04.2006 (Ср) 1:10

Бяка
:) :twisted: ты гений! :?

Бяка
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 219
Зарегистрирован: 21.09.2005 (Ср) 21:28

Сообщение Бяка » 12.04.2006 (Ср) 23:21

и не сомневайся! :wink: я гений!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 39

    TopList