VBNet - Форум - определить процессы

Вопрос: определить процессы Добавлено: 24.02.03 03:56

Автор вопроса: Alex Lebedev

Как определить какие процессы выполняются в данный момент и их место расположения на диске.

Ответить

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

Номер ответа: 1
Автор ответа:

vitus

Вопросов: 9
Ответов: 43

Web-сайт: www.jgukz.narod.ru
Профиль | | #1

Добавлено: 24.02.03 06:23

Здесь на этом сайте есть отличный пример по работе с процессами только я не помню где он находиться вот мой переделанный код вроде работает

Private Sub Command1_Click()

    Snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0)
    Proc.dwSize = Len(Proc)
    TheLoop = ProcessFirst(Snap, Proc)
    Index = 0
    myArProcess.ProcessCount = 0

    While TheLoop <> 0
        ReDim Preserve myArProcess.IDKodProcess(0 To Index)
        ReDim Preserve myArProcess.IDProcess(0 To Index)
        ReDim Preserve myArProcess.NameProcess(0 To Index)

        myArProcess.IDKodProcess(Index) = Index
        myArProcess.IDProcess(Index) = Proc.th32ProcessID
        myArProcess.NameProcess(Index) = Proc.szExeFile
        Index = Index + 1
        TheLoop = ProcessNext(Snap, Proc)
        myArProcess.ProcessCount = Index
    Wend

AddFlexProcess
End Sub

Sub AddFlexProcess()
With FlexProcess
If myArProcess.ProcessCount = 0 Then
.ClearStructure
End If

.Rows = myArProcess.ProcessCount + 1
.Cols = 3
.TextMatrix(0, 1) = "Name Process"
.ColWidth(1) = 2500
.TextMatrix(0, 2) = "ID Process"
.ColWidth(2) = 1000
.Refresh
    DoEvents
    .Visible = True
t = 1
For i = 0 To myArProcess.ProcessCount - 1
    .TextMatrix(t, 1) = myArProcess.NameProcess(i)
    .TextMatrix(t, 2) = myArProcess.IDProcess(i)
    .TextMatrix(t, 0) = t
    t = t + 1
Next

End With
End Sub
Если не понятно могу выслать пример

Ответить

Номер ответа: 2
Автор ответа:

Alex Lebedev

Вопросов: 1
Ответов: 1

Профиль | | #2

Добавлено: 24.02.03 07:26

Даааа! От примера бы не отказался.

Ответить

Номер ответа: 3 Автор ответа: vitus Вопросов: 9 Ответов: 43	Web-сайт: www.jgukz.narod.ru Профиль \| \| #3	Добавлено: 28.02.03 06:45
	Alex Lebedev пример тебе выслал даже два один не мой. Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 01.03.03 14:30
	Дофурыч пожалуйста свой пример чтоб процесс убить можно было и вышли мне его на E-mail Ответить

Страница: 1 |