Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 153
  • Last Modified:

Processes in NT server

How can I get informatio about current running processes ?
How can I End a process ?

I need the exact API from VB
0
nimrodg080397
Asked:
nimrodg080397
1 Solution
 
Gotcha007Commented:
This may help you for listing all the process :


Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long

Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Declare Function GetWindowTextA Lib "user32" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Declare Function GetWindowTextLengthA Lib "user32" (ByVal hWnd As Long) As Long


And in a fonction :

GW_HwndFirst = 0
GW_HwndNext = 2

CurrWnd = GetWindow(Form1.hWnd, GW_HwndFirst)

While CurrWnd <> 0
    Parent = GetParent(CurrWnd)
    Length = GetWindowTextLengthA(CurrWnd)
    TaskName = Space$(Length + 1)
    Length = GetWindowTextA(CurrWnd, TaskName, Length + 1)
    TaskName = Left$(TaskName, Len(TaskName) - 1)
    If Length <> 0 Then
        ArraySize = ArraySize + 1
        ReDim Preserve TaskListArray$(ArraySize)
        TaskListArray$(ArraySize) = TaskName
    End If
    CurrWnd = GetWindow(CurrWnd, GW_HwndNext)
    DoEvents
Wend
0
 
detiegeCommented:
Got on this page to find what's you want.

I hope that's can help you !


List of processes: http://support.microsoft.com/support/kb/articles/q187/9/13.asp?FR=0

Terminate a process: http://www.thescarms.com/VBasic/StopProcess.htm
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

Tackle projects and never again get stuck behind a technical roadblock.
Join Now