vb应用程序终止另一个程序源代码实例程序-Dim buf As String* 256

Dim title As String

Dim length As Long



　　　Get the window s title.

　　length = GetWindowText(app_hWnd, buf, Len(buf))

　　title = Left$(buf, length)



　　　See if this is the target window.

　　If InStr(title, Target) <> 0 Then

　　　　　Kill the window.

　　　　SendMessage app_hWnd, WM_CLOSE, 0, 0

　　End If

　　

　　　Continue searching.

　　EnumCallback = 1