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

最新推荐文章于 2017-07-17 15:30:43 发布

xLsDg

最新推荐文章于 2017-07-17 15:30:43 发布

阅读量2.5k

点赞数

分类专栏：开源代码文章标签：浏览器 vb function string chrome user

本文链接：https://blog.csdn.net/xlsdg/article/details/7445338

版权

这是一个VB编写的开源项目，用于获取谷歌浏览器（Chrome）当前活动窗口的域名。通过调用`GetForegroundWindow`和`GetClassName`等API函数，检查窗口类名并判断是否为Chrome，从而实现Chrome浏览器的域名提取功能。

摘要由CSDN通过智能技术生成

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

    s