第一段,可以取得当前进程列表'模块Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long'该函数是EnumWindows的回调函数,EnumWindows函数将遍历的窗口句柄传递到hwnd参数中Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As LongDim astr As String * 256Dim l