获取ie弹窗句柄，关闭IE广告弹窗

【文件属性】：
文件名称：获取ie弹窗句柄，关闭IE广告弹窗
文件大小：2KB
文件格式：RAR
更新时间：2016-04-01 09:37:47
ie弹窗 关闭弹窗 获取ie弹窗句柄，关闭IE广告弹窗 Public Function EnumWndProc(ByVal hwnd As Long, ByVal lParam As Long) As Long Dim Title1 As String * 255 '处理前窗口标题 Dim Title2 As String '处理后窗口标题 Call GetWindowText(hwnd, Title1, 255&) '获取窗口标题 If (InStr(Title1, Chr(0&)) > 0&) Then Title2 = Left(Title1, InStr(Title1, Chr(0&)) - 1&) '处理空白字符 If Len(Title2) > 0 Then '处理空字符 Debug.Print Title2 End If End If If (InStr(Title2, "http://adsrich.qq.com") > 0) Then Click_Hnd hwnd End If 'Click_Hnd hwnd, 10, 10 'Exit Function EnumWndProc = True '继续下一个 End Function

【文件预览】：
获取ie弹窗句柄关闭
----Module1.bas(2KB)
----Form1.frm(596B)
----工程1.vbp(688B)
----MSSCCPRJ.SCC(190B)
----工程1.vbw(86B)