module1.bas

Windows API函数,希望大伙有用哦

Attribute VB_Name = "Module1"
Option Explicit
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
Dim T1 As String, T2 As String
Dim I As Integer
Public Function EnumProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim Buf As String * 1024
    Dim Lenght As Long
    Lenght = GetWindowText(hwnd, Buf, Len(Buf))
    T1 = Left$(Buf, Lenght)
    If T1 <> "" Then
     If InStr(T2, T1) Then
        EnumProc = 1
        I = 0
      Else
        T2 = T2 + T1
        Form1.List1.AddItem T1
     End If
    End If
    EnumProc = 1
End Function