【文件属性】:
文件名称:获取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)
网友评论
- 可实现获取ie弹窗句柄,关闭IE广告弹窗的功能,比较好用的代码,谢谢分享
- 可实现获取ie弹窗句柄,关闭IE广告弹窗的功能,比较好用的代码,谢谢分享
- 可实现获取ie弹窗句柄,关闭IE广告弹窗的功能,比较好用的代码,谢谢分享