Слишком много MsgBox в таймере при проверке

@OVSite · Регистрация: 22.08.2010

Студворк — интернет-сервис помощи студентам

Программа проверяет разрешён ли в реестре explorer.exe и если нет выводит окно и предлагает включить explorer.exe но таймер снова через 5 секунд проверяет и если не нажать да то выводить 2 окно потом 3 и 4 и так далее .
Как это можно исправить ?
Вот код

VB.NET
1
2
3
4
5
6
7
8
9
   Dim Explorer As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "0")
        If Explorer = "explorer.exe" Then
            Label2.Text = "В реестре разрешён "
        Else
            Label2.Text = "В реестре запрещён "
            MsgBox(" Explorer.exe запрещён в реестре . Разрешить explorer.exe ? ", MsgBoxStyle.YesNo)
            If MsgBoxResult.Yes Then
                My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "explorer.exe")
            End If

Памирыч · 09.10.2010, 15:05

После мессаги попробуй написать Exit Sub

@OVSite · 09.10.2010, 15:06 **[ТС]**

Памирыч посмотри личные сообщения и напиши что думаешь тут .

Памирыч · 09.10.2010, 15:07

Или сразу после Else

@OVSite · 09.10.2010, 15:07 **[ТС]**

не в новой теме , вообще я пытался сделать что бы программа предлагала в окне разрешить в реестре explorer.exe , а вот что вышло программа при каждом включении разрешает explorer.exe
Как это можно исправить ?

Памирыч · 09.10.2010, 15:08

Этот код не запускает Эксплорер, он лишь восстанавливает его при запуске компьютера

@OVSite · 09.10.2010, 15:15 **[ТС]**

Я это и имел ввиду что программа разрешает в реестре explorer.exe то ка не как мне надо , мне нужно что бы если explorer.exe не разрешён в реестре открывалось окно msgbox и предлагало включить explorer.exe , а не просто при включении программы explorer.exe разрешало в реестре .

Добавлено через 2 минуты
Я ваще не понимаю как программа может разрешать explorer.exe если я даже Да в msgbox не нажал

Памирыч · 09.10.2010, 15:16

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

Добавлено через 28 секунд
Теперь понял вопрос

@OVSite · 09.10.2010, 15:17 **[ТС]**

Ага решил немного по другому , но и по твоему попробую .
Возник теперь и вопрос о том почему программа разрешает explorer.exe без нажатие на кнопу Да ?

Памирыч · 09.10.2010, 15:18

VB.NET
1
2
3
 If MsgBox("Promt", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            'Your Code Here
        End If

@OVSite · 09.10.2010, 15:30 **[ТС]**

Памирыч сделал немного по другому но думаю дело не в этом .
Что же я неправильно в коде делаю ?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
Option Compare Text
Public Class Form1
    Dim Cls As Boolean = True
    Dim Explorer1 As Boolean
    Dim FullPath As String
    Public Sub Обновление()
        Dim E As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "0")
        If E = "explorer.exe" Then
            Label2.Text = "В реестре разрешён "
 
        Else
            Label2.Text = "В реестре запрещён "
 
        End If
       
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Explorer As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "0")
        If Explorer = "explorer.exe" Then
            Label2.Text = "В реестре разрешён "
        Else
            Label2.Text = "В реестре запрещён "
            Explorer1 = True
            If Explorer1 = True Then
                Timer1.Enabled = False
                MsgBox(" Explorer.exe запрещён в реестре . Разрешить explorer.exe ? ", MsgBoxStyle.YesNo)
            End If
            If MsgBoxResult.Yes Then
                My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "explorer.exe")
                Timer1.Enabled = True
            End If
            If MsgBoxResult.No Then
                Explorer1 = False
                Timer1.Enabled = True
            End If
            End If
            Dim P() As Process = Process.GetProcesses
            Dim Exs As Boolean = False
            Dim OurProcess As String = "explorer"
            For Each M As Process In P
                Try
                    If M.ProcessName = OurProcess Then
                        Exs = True
                        FullPath = M.MainModule.FileName
                    End If
                Catch ex As Exception
                End Try
            Next
            If Exs = False Then
                Process.Start(FullPath)
            End If
    End Sub
 
    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        Me.ShowInTaskbar = True
        Me.Opacity = 100%
        Me.Show()
        Cls = True
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Me.Opacity = 0%
 
        Me.ShowInTaskbar = False
        e.Cancel = Cls
        Me.Hide()
        Cls = False
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Cls = False
        Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Обновление()
     
        Dim Exs As Boolean
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", "Компьютерный щит", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        If Exs = False Then
            Label1.Text = "Процесс: Работает "
        End If
        If Exs = True Then
            Label1.Text = "Процесс: не работает "
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "0")
        Обновление()
        Explorer1 = True
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "explorer.exe")
        Обновление()
        Explorer1 = True
    End Sub
 
    Private Sub ВыключитьПрограммуToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыключитьПрограммуToolStripMenuItem.Click
        Cls = False
        Close()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Timer1.Enabled = True Then
            Timer1.Enabled = False
            NotifyIcon1.Icon = My.Resources.Программа_2
            Me.Icon = My.Resources.Программа_2
            Button4.Text = "Возобновить защиту"
        Else
            Timer1.Enabled = True
            Button4.Text = "Приостановить защиту"
            NotifyIcon1.Icon = My.Resources.Программа
            Me.Icon = My.Resources.Программа
        End If
    End Sub
End Class

Памирыч · 09.10.2010, 15:37

В чужом коде разбираться - это темный лес.
Что конкретно не работает и в какой процедуре?

@OVSite · 09.10.2010, 15:39 **[ТС]**

Я сам не знаю что и где не работает опять программа сама разрешает explorer.exe .

Памирыч · 09.10.2010, 15:40

Дак правильно, ты же не переправил код как я посоветовал (с мессадж)
И потом, каково назначение процедуры Обновление()?

@OVSite · 09.10.2010, 15:49 **[ТС]**

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

Добавлено через 1 минуту
Спасибо всё заработало

Памирыч · 09.10.2010, 15:52

Сообщение от OVSite

Обновление

Все понял, там в лейбл пишется, я перепутал.

@OVSite · 09.10.2010, 15:52 **[ТС]**

Теперь стало снова открываться много msgbox
Что я опять неправильно сделал ?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Option Compare Text
Public Class Form1
    Dim Cls As Boolean = True
    Dim Explorer1 As Boolean
    Dim FullPath As String
    Public Sub Обновление()
        Dim E As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "0")
        If E = "explorer.exe" Then
            Label2.Text = "В реестре разрешён "
 
        Else
            Label2.Text = "В реестре запрещён "
 
        End If
       
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Explorer As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "0")
        If Explorer = "explorer.exe" Then
            Label2.Text = "В реестре разрешён "
        Else
            Label2.Text = "В реестре запрещён "
            Explorer1 = True
            If Explorer1 = True Then
                Timer1.Enabled = False
            If MsgBox("Explorer.exe запрещён в реестре . Разрешить explorer.exe ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
                My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "explorer.exe")
                    Обновление()
            Else
                Explorer1 = False
                Timer1.Enabled = True
            End If
            End If
            End If
            Dim P() As Process = Process.GetProcesses
            Dim Exs As Boolean = False
            Dim OurProcess As String = "explorer"
            For Each M As Process In P
                Try
                    If M.ProcessName = OurProcess Then
                        Exs = True
                        FullPath = M.MainModule.FileName
                    End If
                Catch ex As Exception
                End Try
            Next
            If Exs = False Then
                Process.Start(FullPath)
            End If
    End Sub
 
    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        Me.ShowInTaskbar = True
        Me.Opacity = 100%
        Me.Show()
        Cls = True
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Me.Opacity = 0%
 
        Me.ShowInTaskbar = False
        e.Cancel = Cls
        Me.Hide()
        Cls = False
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Cls = False
        Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Обновление()
     
        Dim Exs As Boolean
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", "Компьютерный щит", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        If Exs = False Then
            Label1.Text = "Процесс: Работает "
        End If
        If Exs = True Then
            Label1.Text = "Процесс: не работает "
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "0")
        Обновление()
        Explorer1 = True
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "explorer.exe")
        Обновление()
        Explorer1 = True
    End Sub
 
    Private Sub ВыключитьПрограммуToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыключитьПрограммуToolStripMenuItem.Click
        Cls = False
        Close()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Timer1.Enabled = True Then
            Timer1.Enabled = False
            NotifyIcon1.Icon = My.Resources.Программа_2
            Me.Icon = My.Resources.Программа_2
            Button4.Text = "Возобновить защиту"
        Else
            Timer1.Enabled = True
            Button4.Text = "Приостановить защиту"
            NotifyIcon1.Icon = My.Resources.Программа
            Me.Icon = My.Resources.Программа
        End If
    End Sub
End Class

Памирыч · 09.10.2010, 15:55

В таймере после Else попробуй вписать Exit Sub

@OVSite · 09.10.2010, 17:06 **[ТС]**

Вот как поставил

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Dim Explorer As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "0")
        If Explorer = "explorer.exe" Then
            Label2.Text = "В реестре разрешён "
        Else
 
            Label2.Text = "В реестре запрещён "
            Explorer1 = True
            If Explorer1 = True Then
                Timer1.Enabled = False
                If MsgBox("Explorer.exe запрещён в реестре . Разрешить explorer.exe ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
                    My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "explorer.exe")
                    Обновление()
                Else
                    Explorer1 = False
                    Timer1.Enabled = True
                End If
            End If
        End If
        Exit Sub

не помогло .

Добавлено через 1 час 9 минут
Всё нашол как исправить просто мне по внимательней быть надо

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	09.10.2010, 15:05
	Сообщение было отмечено Памирыч как решение Решение После мессаги попробуй написать Exit Sub 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	09.10.2010, 15:06 [ТС]
	Памирыч посмотри личные сообщения и напиши что думаешь тут . 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	09.10.2010, 15:07
	Или сразу после Else 0

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	09.10.2010, 15:07 [ТС]
	не в новой теме , вообще я пытался сделать что бы программа предлагала в окне разрешить в реестре explorer.exe , а вот что вышло программа при каждом включении разрешает explorer.exe Как это можно исправить ? 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	09.10.2010, 15:08
	Этот код не запускает Эксплорер, он лишь восстанавливает его при запуске компьютера 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	09.10.2010, 15:15 [ТС]
	Я это и имел ввиду что программа разрешает в реестре explorer.exe то ка не как мне надо , мне нужно что бы если explorer.exe не разрешён в реестре открывалось окно msgbox и предлагало включить explorer.exe , а не просто при включении программы explorer.exe разрешало в реестре . Добавлено через 2 минуты Я ваще не понимаю как программа может разрешать explorer.exe если я даже Да в msgbox не нажал 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	09.10.2010, 15:16
	Вопрос был про многочисленность мессиджбоксов, если не ответить программе вовремя. Ты решил эту задачу? Добавлено через 28 секунд Теперь понял вопрос 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	09.10.2010, 15:17 [ТС]
	Ага решил немного по другому , но и по твоему попробую . Возник теперь и вопрос о том почему программа разрешает explorer.exe без нажатие на кнопу Да ? 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	09.10.2010, 15:37
	В чужом коде разбираться - это темный лес. Что конкретно не работает и в какой процедуре? 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	09.10.2010, 15:39 [ТС]
	Я сам не знаю что и где не работает опять программа сама разрешает explorer.exe . 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	09.10.2010, 15:40
	Дак правильно, ты же не переправил код как я посоветовал (с мессадж) И потом, каково назначение процедуры Обновление()? 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	09.10.2010, 15:49 [ТС]
	Обновление не знаю просто как по другому сделать что бы текст обновлялся при загрузке формы и нажатии на кнопки . Добавлено через 1 минуту Спасибо всё заработало 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	09.10.2010, 15:55
	В таймере после Else попробуй вписать Exit Sub 1

Слишком много MsgBox в таймере при проверке

Решение