Процессы

[_Мика_]

Вот есть такой код

Код: Выделить всё

    Sub Proc(ByVal sListBox As ListBox)
        sListBox.Items.Clear()
        Dim running() As Process = Process.GetProcesses()
        If running.Length > 0 Then
            Dim Cnt As Integer
            For Cnt = 0 To running.Length - 1
                sListBox.Items.Add(running(Cnt).ProcessName)
            Next Cnt
        End If


Он выдает какие то странные процессы, которых нету в TaskManager!

И еще, как опрелеоитб для кадлого процесса PID, Путь к файлу и закгрузку процессора + общую загрузку процессора

[hCORe]

В порядке: PID, путь к главному модулю, занятое процессорное время:
running(Cnt).Id
running(Cnt).MainModule.FileName
running(Cnt).TotalProcessorTime.ToString

Что тебя смущает? "Idle" - это то же, что и "Бездействие системы" в Диспетчере задач.

[_Мика_]

В порядке: PID, путь к главному модулю, занятое Что тебя смущает? "Idle" - это то же, что и "Бездействие системы" в Диспетчере задач.

Именно он и смущает....

ща посмотрим.....

[_Мика_]

Жалуется на running(Cnt).TotalProcessorTime.ToString

Вот скрин

[_Мика_]

Тем более это показывает время.....а нужно проценты загруженности процессора

[hCORe]

Поставь в начале процедуры

Код: Выделить всё

On Error Resume Next

Или используй конструкцию Try...Catch...Finally...End Try. Просто некоторые процессы могут запретить тебе смотреть информацию о модулях. Поэтому 2005 "студия" и ругается на такое высказывание

Кстати, вот полный код моей версии:

Код: Выделить всё

Sub Proc(ByVal sListBox As ListBox)
        On Error Resume Next
        sListBox.Items.Clear()
        Dim running() As Process = Process.GetProcesses()
        If running.Length > 0 Then
            Dim Cnt As Integer
            For Cnt = 0 To running.Length - 1
                sListBox.Items.Add(running(Cnt).ProcessName + " " + _
                running(Cnt).Id.ToString + " " + _
                running(Cnt).MainModule.FileName + " " + _
                running(Cnt).TotalProcessorTime.Hours.ToString("00") + _
                ":" + _
                running(Cnt).TotalProcessorTime.Minutes.ToString("00") + _
                ":" + _
                running(Cnt).TotalProcessorTime.Seconds.ToString("00"))
            Next Cnt
        End If
End Sub

[_Мика_]

Поставь в начале процедуры

Код: Выделить всё

On Error Resume Next

Или используй конструкцию Try...Catch...Finally...End Try. Просто некоторые процессы могут запретить тебе смотреть информацию о модулях. Поэтому 2005 "студия" и ругается на такое высказывание

Кстати, вот полный код моей версии:

Код: Выделить всё

Sub Proc(ByVal sListBox As ListBox)
        On Error Resume Next
        sListBox.Items.Clear()
        Dim running() As Process = Process.GetProcesses()
        If running.Length > 0 Then
            Dim Cnt As Integer
            For Cnt = 0 To running.Length - 1
                sListBox.Items.Add(running(Cnt).ProcessName + " " + _
                running(Cnt).Id.ToString + " " + _
                running(Cnt).MainModule.FileName + " " + _
                running(Cnt).TotalProcessorTime.Hours.ToString("00") + _
                ":" + _
                running(Cnt).TotalProcessorTime.Minutes.ToString("00") + _
                ":" + _
                running(Cnt).TotalProcessorTime.Seconds.ToString("00"))
            Next Cnt
        End If
End Sub

Спасибо....
А можно вместо время процессора, показать Загруженность процессора, как в TaskMgr?

[hCORe]

Запросто! Сначала подсчитываешь общее время для всех процессов, а потом - процент от этого времени, занятый выбранным процессом.

[_Мика_]

нее....это получится.....не знаю что получится... но я вно не то.

Допустим какой то процесс завис, смотрим в TaskMgr, он показывает что этот процес жрет 50 % процессора, в ДАННЫЙ МОМЕНТ!

[Sebas]

Используй счётчики NT

PerformanceCounter

[_Мика_]

Используй счётчики NT

PerformanceCounter

И что это такое?

[Sebas]

Смотри Server Explorer

[_Мика_]

Смотри Server Explorer

Где сомтреть?

Еще один вопрос:

Как то он странно файл открывает! русские буквы не читает!

Код: Выделить всё

Public Function FO(ByVal sFileName As String) As String
        Dim str As String
        str = IO.File.ReadAll(sFileName)
        FO = str
End Function


[Sebas]

Смотри Server Explorer

Где сомтреть?

Еще один вопрос:

Как то он странно файл открывает! русские буквы не читает!

Код: Выделить всё

Public Function FO(ByVal sFileName As String) As String
        Dim str As String
        str = IO.File.ReadAll(sFileName)
        FO = str
End Function


ля, ну тока на той неделе тутже писали же...

[_Мика_]

А как тема называлась? Вообще это реально сделать?

[_Мика_]

Код: Выделить всё

Public Function FO(ByVal sFileName As String) As String
        Dim str As String
        str = IO.File.ReadAll(sFileName)
        FO = str
End Function

С этим я разобрался, нужно было кодировку просто поставить!

Ворос:
1). Загрузка процессора в процентах
2). Как получить все имена со значениями, из, предположим,HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run??

[_Мика_]

Ну что? Что ни кто не знает??

[Sebas]

Ворос:
1). Загрузка процессора в процентах
2). Как получить все имена со значениями, из, предположим,HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run??

1. WMI класс Win32_Processor
2. в 2005 Microsoft.win32.Registry

[_Мика_]

2. в 2005 Microsoft.win32.Registry

Я это знал......дальше что делать....у меня не получается