Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
sst.djager
1 / 1 / 0
Регистрация: 17.08.2012
Сообщений: 132
1

Вывести сообщение об ошибке при выполнении кода

25.02.2019, 23:01. Просмотров 980. Ответов 3
Метки нет (Все метки)

Здравствуйте, не могу допетрить, как прикрутить сообщение с ошибкой (отсутствует связь с удаленным компьютером)

Делаю проверку типа системы на удаленном ПК в локальной сети, но если ввести компьютер, который в данный момент выключен, то срабатывает ошибка (не найден сетевой путь) как вывести это сообщение пользователю, но при этом не карша программу ?

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim namepc, b As String
        namepc = TextBox1.Text
        b = TextBox2.Text
        Dim MyReg As Microsoft.Win32.RegistryKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, namepc)
        Dim MyRegKey As Microsoft.Win32.RegistryKey
        Dim MyVal As String
        MyRegKey = MyReg.OpenSubKey("Software\Microsoft\Windows NT\currentVersion")
        MyVal = MyRegKey.GetValue("ProductName")
        MyRegKey.Close()
        Label4.Text = MyVal
    End Sub
End Class
Добавлено через 46 минут
Ответ нашел
vb.net
1
2
3
4
5
6
7
8
9
Try
            If My.Computer.Network.Ping("87.236.19.44") = True Then
                MsgBox("Есть инет!")
            Else
                MsgBox("Нет инета!")
            End If
        Catch
            MsgBox("Нет сети!")
        End Try
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.02.2019, 23:01
Ответы с готовыми решениями:

Как вывести сообщение об ошибке в блоке Try Catch
Привет. Сохраняю файл Visio: dim name as string="C: тут весь путь" if name<>"" then try...

Игнорирование ошибок при выполнении определенных участков кода
Здравствуйте, подскажите в чём ошибка MessageBox.Show( Try "Временная папка...

Сообщение при ошибке в коде
Доброго всем времени суток. При компиляции кода с ошибкой студия задает вопрос типа "запустить...

При выполнении батника появляется сообщение об ошибке "Непредвиденное появление: (0."
Добрый день, вот код, при выполнении батника выскакивает вот это: Непредвиденное появление: (0....

Сообщение об ошибке "Сервер RPC недоступен" при выполнении команды TASKLIST с ключом /S
Здравствуйте. Возникла следующая проблема: нужно вывести на экран список выполняющихся задач,...

3
Orlangur1991
1715 / 1383 / 346
Регистрация: 28.11.2014
Сообщений: 2,101
26.02.2019, 00:22 2
sst.djager,
Цитата Сообщение от sst.djager Посмотреть сообщение
Делаю проверку типа системы на удаленном ПК в локальной сети
Может стоит сначала формировать список, из которого уже можно будет выбрать нужную машину?
Пример можно посмотреть тут
Ip адреса сети
Так же по получению информации с удаленных пк могут быть полезны для ознакомления темы
Информация об удаленных ПК в сети
Узнать лицензионный ключ Windows
Узнать какой MS Office установлен на удаленном ПК в сети
2
sst.djager
1 / 1 / 0
Регистрация: 17.08.2012
Сообщений: 132
26.02.2019, 16:34  [ТС] 3
Можно,но список постоянно меняется, но я уже решил проблему(выше).
Вопрос еще такой есть, в 6-ой строчке кода, вылетает ошибка, мол нет доступа, хотя по пингу все гуд, но нет прав доступа. Понятно, что нужны права администратора и все такое, как мне сделать проверку разрешения на чтение/запись?

vb.net
1
Dim MyReg As Microsoft.Win32.RegistryKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, namepc)
0
Orlangur1991
1715 / 1383 / 346
Регистрация: 28.11.2014
Сообщений: 2,101
26.02.2019, 16:42 4
Лучший ответ Сообщение было отмечено sst.djager как решение

Решение

sst.djager,
Цитата Сообщение от sst.djager Посмотреть сообщение
Можно,но список постоянно меняется
так в чем проблема постоянно его обновлять?
По вопросу - оберните это так же в Try / Catch, при возникновении исключения выдайте сообщение, что нет доступа
0
26.02.2019, 16:42
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2019, 16:42

Сообщение об ошибке "Компьютер недоступен" при выполнении скрипта для инвентаризации компьютеров
Dragokas, Добрый день.помогите разобраться в чём дело с этой темой Const SILENT = False Const...

При выполнении кода форма зависает. Как вывести прогрессбар?
Пишу программу, которая должна с моего сайта скачать нудный файл, и старый заменить новым. Типа...

Сообщение об ошибке "Непредвиденное появление: B." при выполнении команды "FOR %B IN (*) DO ..."
бегло прочитал http://www.cyberforum.ru/cmd-bat/thread877664.html не нашел подходящей инфы пишу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru