Changes

Process List and Locate VB6

1,700 bytes added, 03:18, 20 August 2007
[[Process List and Locate]] moved to [[Process List and Locate VB6]]
The following lines were added (+) and removed (-):
=== Example 1: ====== Example 1: Get a Windows Process List ====== Example 2: Get Process ID of calc.exe ===This was taken from a working program.  You can make this into a function. <nowiki>  Dim hSnapShot As Long</nowiki> <nowiki>  Dim uProcess As PROCESSENTRY32</nowiki> <nowiki>  Dim success As Long</nowiki> <nowiki>  </nowiki> <nowiki>  Dim strLine As String, cnt As Integer, cntMax As Integer, strProc(99, 2)</nowiki> <nowiki></nowiki> <nowiki>  hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)</nowiki> <nowiki></nowiki> <nowiki>  If hSnapShot = -1 Then Exit Sub</nowiki> <nowiki></nowiki> <nowiki>  uProcess.dwSize = Len(uProcess)</nowiki> <nowiki>  success = ProcessFirst(hSnapShot, uProcess)</nowiki> <nowiki></nowiki> <nowiki>  If success = 1 Then</nowiki> <nowiki>    </nowiki> <nowiki>    Do</nowiki> <nowiki>      If (uProcess.th32ProcessID) > 0 Then</nowiki> <nowiki>        cnt = cnt + 1</nowiki> <nowiki>        strProc(cnt, 0) = uProcess.th32ProcessID</nowiki> <nowiki>        strProc(cnt, 1) = uProcess.szExeFile</nowiki> <nowiki>        cntMax = cnt</nowiki> <nowiki>      End If</nowiki> <nowiki>    Loop While ProcessNext(hSnapShot, uProcess)</nowiki> <nowiki>    </nowiki> <nowiki>  For cnt = 1 To cntMax</nowiki> <nowiki>'  Locate our process, calc.exe</nowiki> <nowiki>'  Debug.Print Trim(LCase(strProc(cnt, 1)))</nowiki> <nowiki>'  Debug.Print InStr(1, Trim(LCase(strProc(cnt, 1))), "calc.exe")</nowiki> <nowiki>    If InStr(1, Trim(LCase(strProc(cnt, 1))), "calc.exe") > 0 Then intTargetPid = strProc(cnt, 0)</nowiki> <nowiki>  Next cnt</nowiki> <nowiki></nowiki> <nowiki>  End If</nowiki> <nowiki>  Call CloseHandle(hSnapShot)</nowiki> <nowiki></nowiki>
Admin
Bureaucrat, administrator
16,192
edits