【开源项目】花密(Flower Password)VB版之谷歌浏览器模块

'*****************************************************************
' 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 Explicit

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long

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

Public 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 If

End Function

Public 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 If

End Function


阅读更多
个人分类: 开源代码
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭