Не получается разобраться с кодом .

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

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

Пишу программу текстовый редактор , программа почти готова но не хватает печати , недавно нашол пример печати ( спасибо медведю Вини-Пуху Pooh ) но не знаю как добавить эту печать в мою программу .
Вот код программы

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
ublic Class Form1
    Private WithEvents docToPrint As New Printing.PrintDocument
    Dim Файл As String
 
    Private Sub document_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles docToPrint.PrintPage
        Dim text As String = RichTextBox1.Text
        Dim printFont = RichTextBox1.SelectionFont
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 10, 10)
    End Sub
    Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
    End Sub
    Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim Блокнот As New SaveFileDialog
        Блокнот.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt"
        If Блокнот.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Файл = Блокнот.FileName
        If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
            RichTextBox1.SaveFile(Файл)
        ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
            RichTextBox1.SaveFile(Файл, RichTextBoxStreamType.PlainText)
        End If
 
    End Sub
 
    Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
        Dim Блокнот1 As New OpenFileDialog
        Блокнот1.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt|"
        Блокнот1.Title = "Сохранить файл "
        Блокнот1.CheckPathExists = True
        If Блокнот1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Файл = Блокнот1.FileName
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                RichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                RichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            Else
                MsgBox("Не могу открыть файл такого формата")
            End If
        End If
 
    End Sub
 
    Private Sub ОчиститьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОчиститьToolStripMenuItem.Click
        RichTextBox1.Text = Nothing
 
    End Sub
 
    Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click
        If FontDialog1.ShowDialog() = DialogResult.OK Then
            RichTextBox1.SelectionFont = FontDialog1.Font
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        АссоциацияФайлов("rtf", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        Try
            Файл = Strings.Mid(Command(), 2, Len(Command()) - 2)
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                RichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                RichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            End If
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        Application.Exit()
    End Sub
 
 
    Private Sub КопироватьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click
        RichTextBox1.Copy()
 
    End Sub
 
    Private Sub ВырезатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click
        RichTextBox1.Cut()
    End Sub
 
    Private Sub ВставитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click
        RichTextBox1.Paste()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDialog1.AllowSomePages = True
        PrintDialog1.ShowHelp = True
        PrintDialog1.Document = docToPrint
        Dim result As DialogResult = PrintDialog1.ShowDialog()
        If (result = DialogResult.OK) Then
            docToPrint.Print()
        End If
 
    End Sub
End Class

и вот вложение " Печать " .

@OVSite · 02.10.2010, 21:32 **[ТС]**

Эх я так что то и не понял что делать с иконкой программы .

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

Памирыч · 02.10.2010, 22:01

Щас посмотрим, я тоже ищу.

Добавлено через 24 минуты
Странно, РТФ какой-то особенный чтоли.
Я уж и ветки удалял, он одно что вордом открывает. Но я правда не перезагружался.

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

@OVSite · 02.10.2010, 22:40 **[ТС]**

Сообщение от Памирыч

Почему бы не ввести свое расширение?

Не плохо было бы

Памирыч · 02.10.2010, 22:42

OVSite, А что такого? Запросто.
Только в коде надо будет везде сменить rtf на твое и все.

@OVSite · 02.10.2010, 22:48 **[ТС]**

Просто в коде rtf заменить на какой нибудь формат выдуманный мной и всё ?

Памирыч · 02.10.2010, 22:55

Да, именно

@OVSite · 03.10.2010, 11:25 **[ТС]**

Поменял вот так

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
Public Class Form1
 
    Dim Файл As String
 
    Private checkPrint As Integer
    Sub PrintDocument1BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
        checkPrint = 0
    End Sub
    Sub PrintDocument1PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        checkPrint = Me.ExtendedRichTextBox1.Print(checkPrint, Me.ExtendedRichTextBox1.TextLength, e)
        If checkPrint < Me.ExtendedRichTextBox1.TextLength Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
    End Sub
    Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        My.Computer.Registry.SetValue("HKEY_USERS\" & Our_SubKey & "\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\." & Расширение, "Application", ПутьКФайлу)
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
    End Sub
    Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
        Dim Блокнот1 As New OpenFileDialog
        Блокнот1.Filter = "RTOVS-файлы|*.RTOVS|Текстовые файлы|*.txt"
        Блокнот1.Title = "Сохранить файл "
        Блокнот1.CheckPathExists = True
        If Блокнот1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Файл = Блокнот1.FileName
            If Файл.EndsWith(".RTOVS") Or Файл.EndsWith(".rtovs") Then
                ExtendedRichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                ExtendedRichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            Else
                MsgBox("Не могу открыть файл такого формата")
            End If
        End If
    End Sub
 
    Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim Блокнот As New SaveFileDialog
        Блокнот.Filter = "RTFOVS-файлы|*.RTOVS|Текстовые файлы|*.txt"
        If Блокнот.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Файл = Блокнот.FileName
        If Файл.EndsWith(".RTOVS") Or Файл.EndsWith(".rtovs") Then
            ExtendedRichTextBox1.SaveFile(Файл)
        ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
            ExtendedRichTextBox1.SaveFile(Файл, RichTextBoxStreamType.PlainText)
        End If
    End Sub
 
    Private Sub ПечатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПечатьToolStripMenuItem.Click
        If PrintDialog1.ShowDialog() = DialogResult.OK Then
            Me.PrintDocument1.Print()
        End If
    End Sub
 
    Private Sub ПредварительныйПросмотрToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПредварительныйПросмотрToolStripMenuItem.Click
        PrintPreviewDialog1.ShowDialog()
    End Sub
 
    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        Application.Exit()
    End Sub
 
    Private Sub ПовторитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПовторитьToolStripMenuItem.Click
        ExtendedRichTextBox1.Undo()
    End Sub
 
    Private Sub ОтменитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОтменитьToolStripMenuItem.Click
        ExtendedRichTextBox1.Redo()
    End Sub
 
    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        ExtendedRichTextBox1.Text = Nothing
    End Sub
 
    Private Sub ВыделитьВсёToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыделитьВсёToolStripMenuItem.Click
        ExtendedRichTextBox1.SelectAll()
    End Sub
 
    Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click
        If FontDialog1.ShowDialog() = DialogResult.OK Then
            ExtendedRichTextBox1.SelectionFont = FontDialog1.Font
        End If
    End Sub
 
 
    Private Sub ЦветToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЦветToolStripMenuItem.Click
        If ColorDialog1.ShowDialog = DialogResult.OK Then
            ExtendedRichTextBox1.SelectionColor = ColorDialog1.Color
        End If
    End Sub
 
    Private Sub КопироватьToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click
        ExtendedRichTextBox1.Copy()
    End Sub
 
    Private Sub ВставитьToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click
        ExtendedRichTextBox1.Cut()
    End Sub
 
    Private Sub ВырезатьToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click
        ExtendedRichTextBox1.Paste()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        АссоциацияФайлов("rtovs", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        Try
            Файл = Strings.Mid(Command(), 2, Len(Command()) - 2)
            If Файл.EndsWith(".RTOVS") Or Файл.EndsWith(".rtovs") Then
                ExtendedRichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                ExtendedRichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

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

Памирыч · 03.10.2010, 11:34

Во, ништяк.
В Sub АссоциацииФайлов добавь:

VB.NET
1
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\shell\open\command", "", ПутьКФайлу & " %1")

@OVSite · 03.10.2010, 11:40 **[ТС]**

Всё также осталось
Вот как вставил код

VB.NET
1
2
3
4
5
6
7
Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        My.Computer.Registry.SetValue("HKEY_USERS\" & Our_SubKey & "\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\." & Расширение, "Application", ПутьКФайлу)
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\shell\open\command", "", ПутьКФайлу & " %1")
    End Sub

Памирыч · 03.10.2010, 11:42

Верно, грохни процесс эксплорер и снова запусти

@Сергей.NET · 03.10.2010, 11:44

Ovsite, ну замучил тебя этот проект,как меня ВПФ

@OVSite · 03.10.2010, 12:18 **[ТС]**

Это в смысле перезагрузить компьютер ?

Добавлено через 4 минуты
О у RTF файлов теперь мои иконки но открывает их в WordPad попробовал исправить так не помогло

VB.NET
1
2
3
4
5
6
7
  Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        'My.Computer.Registry.SetValue("HKEY_USERS\" & Our_SubKey & "\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\." & Расширение, "Application", ПутьКФайлу)
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\shell\open\command", "", ПутьКФайлу & " %1")
    End Sub

Добавлено через 5 минут
А всё завершил процесс эксплорер но не помогло .

Добавлено через 2 минуты
Заметил что если тот же файл который сохранил открыть в программе через "Открыть" то он открывается с текстом .

Памирыч · 03.10.2010, 12:28

Интересно. Попробуй вот это, поможет или нет?

@OVSite · 03.10.2010, 12:32 **[ТС]**

Не помогло файлы RTOVS запускаются моей программой но там нет никакого текста просто пустой ExtendedRichTextBox .

Памирыч · 03.10.2010, 12:37

OVSite, Странно. В коде ошибок нет (в твоем, в части загрузки).
А если тут:

VB.NET
1
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\shell\open\command", "", ПутьКФайлу & " %1")

Убрать %1?

@OVSite · 04.10.2010, 15:33 **[ТС]**

Не помогло .
Продолжу потом исправлять код щас срочно уезжать надо .

Добавлено через 5 часов 55 минут
Странно опять в Выборе программы при выборе моего .exe файла он не появляется в списке .

Добавлено через 20 часов 54 минуты
Памирыч спасибо с помощью Easy Admin стал больше понимать как работать с реестром с помощью Visual Basic.NET .

Памирыч · 04.10.2010, 16:54

Да, там проводятся различные операции. Главное, чтобы программа не попала в плохие руки, ведь у ней правая сторона - добрая, а левая - сущий дьявол.

@OVSite · 04.10.2010, 17:36 **[ТС]**

Если какой то начинающий хакер поймёт как работает твоя программа может не слабый вирус написать от которого Windows полный капец будет .

Добавлено через 2 минуты
Памирыч я другим проектом занялся и такой вопрос возник :
Вот чтобы если при отключении файла explorer.exe автаматически включалась моя программа .
Можно ли как то это сделать ?

Памирыч · 04.10.2010, 17:37

OVSite, программа писалась для борьбы с баннерами и помогала всегда. Сейчас вышла новая версия, где исправлены ошибки предыдущей версии и добавлена возможность разблокировки интернета (троян создает свою проксю).
То есть, против чего боремся, на то и можно давить.
И вообще, я сейчас уже не помню, для чего я сделал ряд красных кнопок.

@OVSite · 04.10.2010, 17:39 **[ТС]**

Памирыч пришли эту программу пожалуйста пригодиться .

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	02.10.2010, 21:32 [ТС]
	Эх я так что то и не понял что делать с иконкой программы . Добавлено через 1 минуту 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	02.10.2010, 22:01
	Щас посмотрим, я тоже ищу. Добавлено через 24 минуты Странно, РТФ какой-то особенный чтоли. Я уж и ветки удалял, он одно что вордом открывает. Но я правда не перезагружался. Добавлено через 1 минуту Кстати, тебе не обязательно использовать именно это расширение. Ты можешь в своей проге дать и другое, например .mcp И эти файлы будут только твоей прогой открываться. Почему бы не ввести свое* расширение? 1

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	02.10.2010, 22:42
	OVSite, А что такого? Запросто. Только в коде надо будет везде сменить rtf на твое и все. 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	02.10.2010, 22:48 [ТС]
	Просто в коде rtf заменить на какой нибудь формат выдуманный мной и всё ? 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	02.10.2010, 22:55
	Да, именно 1

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	03.10.2010, 11:42
	Верно, грохни процесс эксплорер и снова запусти 1

@Сергей.NET Программист 416 / 416 / 7 Регистрация: 10.09.2010 Сообщений: 1,344
	03.10.2010, 11:44
	Ovsite, ну замучил тебя этот проект,как меня ВПФ 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	03.10.2010, 12:28
	Интересно. Попробуй вот это, поможет или нет? 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	03.10.2010, 12:32 [ТС]
	Не помогло файлы RTOVS запускаются моей программой но там нет никакого текста просто пустой ExtendedRichTextBox . 0

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	04.10.2010, 15:33 [ТС]
	Не помогло . Продолжу потом исправлять код щас срочно уезжать надо . Добавлено через 5 часов 55 минут Странно опять в Выборе программы при выборе моего .exe файла он не появляется в списке . Добавлено через 20 часов 54 минуты Памирыч спасибо с помощью Easy Admin стал больше понимать как работать с реестром с помощью Visual Basic.NET . 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	04.10.2010, 16:54
	Да, там проводятся различные операции. Главное, чтобы программа не попала в плохие руки, ведь у ней правая сторона - добрая, а левая - сущий дьявол. 1

@OVSite 171 / 169 / 1 Регистрация: 22.08.2010 Сообщений: 1,251
	04.10.2010, 17:36 [ТС]
	Если какой то начинающий хакер поймёт как работает твоя программа может не слабый вирус написать от которого Windows полный капец будет . Добавлено через 2 минуты Памирыч я другим проектом занялся и такой вопрос возник : Вот чтобы если при отключении файла explorer.exe автаматически включалась моя программа . Можно ли как то это сделать ? 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	04.10.2010, 17:37
	OVSite, программа писалась для борьбы с баннерами и помогала всегда. Сейчас вышла новая версия, где исправлены ошибки предыдущей версии и добавлена возможность разблокировки интернета (троян создает свою проксю). То есть, против чего боремся, на то и можно давить. И вообще, я сейчас уже не помню, для чего я сделал ряд красных кнопок. 1

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