process

Vb VisualBasic 6.0 Computer ProcessList Example

Private Sub Command1_Click()
‘ add to listbox1 and button1
Dim colProcessList
Dim objprocess
Set colProcessList = GetObject(“Winmgmts:”).ExecQuery(“Select * from Win32_Process “)
For Each objprocess In colProcessList
List1.AddItem “Process Name=” & objprocess.Name
List1.AddItem “Caption=” & objprocess.Caption
Next
Set colProcessList = Nothing
Set objprocess = Nothing
End Sub
Private Sub Command1_Click()’ add to listbox1 and button1Dim colProcessListDim objprocess Set colProcessList = GetObject(“Winmgmts:”).ExecQuery(“Select * from Win32_Process “)
For Each objprocess In colProcessList List1.AddItem “Process Name=” & objprocess.Name List1.AddItem “Caption=” & objprocess.CaptionNext Set colProcessList = NothingSet objprocess = NothingEnd Sub

Devamı