На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Проверка на онлайн
    Приветствую!

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

    Заранее благодарю
      Что такое "онлайн" в твоём понимании?
      Есть претензии ко мне как к модератору? читайте Правила, разделы 5 и 6, и действуйте соответственно.
      Есть претензии ко мне как к участнику? да ради бога.
      Не нравятся мои ответы? не читайте их.
      В общем, берегите себя. Нервные клетки не восстанавливаются.
        ASCII код кнопки Enter=13
        а сумма ASCII кодов кнопок werqaz=666
          Цитата GRAFF @

          Спасибо за идею, но может есть более простой код? (Просто отправка 1-го пакета и если он дошел, то выводить сообщение)
            Ещё примеры для проверки:
            ExpandedWrap disabled
              Function Avaible(name) 'пингом проверяет доступность компьютера name в сети
                  On Error Resume Next
                  Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
                      ExecQuery("select * from Win32_PingStatus where address = '"_
                      & name & "'")
                  For Each objStatus in objPing
                      If IsNull(objStatus.StatusCode) Or objStatus.StatusCode = 0 Then
                          Avaible = False
                      Else
                          Avaible = True
                      End If
                  Next
              End Function
              ' примеры вызова
              Print Avaible("Vasya")
              Print Avaible("192.168.0.1")
            Мой Add-in для VB и VBA: VBStyleCode
              А если на шлюзе запрещено хождение ICMP?
              Есть претензии ко мне как к модератору? читайте Правила, разделы 5 и 6, и действуйте соответственно.
              Есть претензии ко мне как к участнику? да ради бога.
              Не нравятся мои ответы? не читайте их.
              В общем, берегите себя. Нервные клетки не восстанавливаются.
                Без пинга определение идет долго, но можно попытаться подключить. Если подключен - то компьютер в сети.
                Мой Add-in для VB и VBA: VBStyleCode
                1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                0 пользователей:


                Рейтинг@Mail.ru
                [ Script Execution time: 0,0973 ]   [ 15 queries used ]   [ Generated: 18.01.20, 06:37 GMT ]