jak uzyskać adres URL aktywnej karty przeglądarki Google Chrome Web (vb6)
Nie dostaję adresu URL z wersji Chrome29. Ponieważ kontrola adresu URL nie może zostać znaleziona przy użyciu szpiegowania ++.
Option Explicit Private Const WM_GETTEXT = &HD Private Const WM_GETTEXTLENGTH = &HE Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Sub Command1_Click() Dim dhWnd As Long Dim chWnd As Long Dim Web_Caption As String * 256 Dim Web_hWnd As Long Dim URL As String * 256 Dim URL_hWnd As Long dhWnd = GetDesktopWindow chWnd = FindWindowEx(dhWnd, 0, "Chrome_WidgetWin_1", vbNullString) Web_hWnd = FindWindowEx(dhWnd, chWnd, "Chrome_WidgetWin_1", vbNullString) URL_hWnd = FindWindowEx(Web_hWnd, 0, "Chrome_OmniboxView", vbNullString) Call SendMessage(Web_hWnd, WM_GETTEXT, 256, ByVal Web_Caption) Call SendMessage(URL_hWnd, WM_GETTEXT, 256, ByVal URL) MsgBox Split(Web_Caption, Chr(0))(0) & vbCrLf & Split(URL, Chr(0))(0) End Sub
Używam vb6