如何獲得打開的ie窗口數量(vc)

我的思路是使用API函數EnumWindows枚舉所有的窗口句柄，再用GetClassName獲取句柄的類名稱，如果是IEFrame則認為是IE窗口。代碼如下：

Private Sub cmdGetIEWindowCount_Click()

IEWindowCount = 0

Me.AutoRedraw = True

EnumWindows AddressOf EnumWindowsProc, ByVal 0&

MsgBox "壹***找到" & CStr(IEWindowCount) & "個IE窗口"

End Sub

'------------------模塊內容-------------------------

Public IEWindowCount As Integer

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean

Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean

Dim lpClassName As String, RetVal As Long

lpClassName = Space(256)

RetVal = GetClassName(hwnd, lpClassName, 256)

If Left$(lpClassName, RetVal) = "IEFrame" Then

IEWindowCount = IEWindowCount + 1

End If

EnumWindowsProc = True

End Function

補充：不好意思，我以為是VB，妳自己看著改吧。

上一篇:2022年四川南充普通話報名時間、條件及入口2月22日起

下一篇:聯想新圓夢H515無法裝GHSOT XP系統怎麽辦