【开源项目】花密(Flower Password)VB版之谷歌浏览器模块
来源:互联网 发布:java的脚本语言 编辑:程序博客网 时间:2024/06/05 02:43
'*****************************************************************' Copyright (c) 2011-2012 FlowerPassword.com All rights reserved.' Author : xLsDg @ Xiao Lu Software Development Group' Blog : http://hi.baidu.com/xlsdg' QQ : 4 4 7 4 0 5 7 4 0' Version : 1 . 0 . 0 . 0' Date : 2 0 1 2 / 0 4 / 0 7' Description :' History :'*****************************************************************Option ExplicitPrivate Declare Function GetForegroundWindow Lib "user32.dll" () As LongPrivate Declare Function GetClassName _ Lib "user32.dll" _ Alias "GetClassNameA" (ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As LongPublic Function GetChromeDomainName(ByVal hwnd As Long) As String Dim strUrl As String strUrl = WindowInfo(GetForegroundWindow, LCase$("Chrome_OmniboxView")) If Len(strUrl) > 0 Then GetChromeDomainName = GetWebsiteName(strUrl) Else GetChromeDomainName = vbNullString End IfEnd FunctionPublic Function isChrome(ByVal WinWnd As Long) As Boolean If WinWnd > 0 Then Dim RetVal As Long, lpClassName As String lpClassName = Space$(256) RetVal = GetClassName(WinWnd, lpClassName, 256) If InStr(Left$(lpClassName, RetVal), "Chrome_RenderWidgetHostHWND") > 0 Then isChrome = True Else isChrome = False End If Else isChrome = False End IfEnd Function