会者不难,快来拿分!

Question

代码：
http://www.applevb.com/sourcecode/moudle.zip
获得当前的运行的程序、模块、窗口的信息。

Answer 1

1.创建一个Standard Exe Project
2.添加一个Module,代码如下：
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String, Ret As Long
    Ret = GetWindowTextLength(hwnd)
    sSave = Space(Ret)
    GetWindowText hwnd, sSave, Ret + 1
    Form1.Print Str$(hwnd) + " " + sSave
    
    EnumWindowsProc = True
End Function
3.在Form_Load中添加代码：
Private Sub Form_Load()
    Me.AutoRedraw = True
    
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub