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>