VBNet - Форум - Обойти процессы к которым нет доступа

Вопрос: Обойти процессы к которым нет доступа Добавлено: 09.05.09 21:16

Автор вопроса: maza_____ | Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) | ICQ: 9968842

Я циклом перебираю все процессы и сравниваю их время запуска, но не все процессы дают доступ для этого. Как можно сделать что бы если процесс не дает доступа к своей памяти пропустить работу с ним и продолжать цикл дальше?
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: MegaÐefender Вопросов: 19 Ответов: 313	Web-сайт: safetyAV.narod.ru Профиль \| \| #1	Добавлено: 09.05.09 21:36
	VB6-On Error Resume Next, где resume next, можно указать кусок кода, например: On Error GoTo err_handler 'CODE' Exit Sub err_handler: MsgBox "err" VB.NET- не знаю, скорее всего так же. Ответить

Номер ответа: 2 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #2	Добавлено: 09.05.09 21:44
	Не там Try Catch но цикл летит к чертям собачим Ответить

Номер ответа: 3 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #3	Добавлено: 09.05.09 21:49
	ну код то покажи хоть, как там у тя интересно при трай кэч цикл летит Ответить

Номер ответа: 4 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #4	Добавлено: 09.05.09 22:09
	вот: Function kill(ByVal ss As Process, ByVal m As String) If ss.StartTime > CDate(m) Then ss.Kill() End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim t, d As String t = DateTime.Now.ToString.Substring(0, 16) d = DateTime.Now.ToString.Substring(14, 2) d = CDbl(d) - 2 t = t.Substring(0, 13) t = t & ":" & d Dim proc() As Process = Process.GetProcesses For Each k As Process In proc Call kill(k, t) Next End Sub End Class Ответить

Номер ответа: 5 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #5	Добавлено: 09.05.09 22:15
	Ой сорри уже всё норм чо то я ступил Ответить

Номер ответа: 6 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #6	Добавлено: 09.05.09 22:20
	чото я try-catch тут не наблюдаю Dim proc() As Process = Process.GetProcesses For Each k As Process In proc Try Dim time As Date = k.StartTime Catch ex As Exception End Try Next Ответить

Страница: 1 |