curl - how to get google chrome web browser active tab's Url (vb6) -


i not url chrome version29.because url control can not found using spy++.

       option explicit      private const wm_gettext = &hd     private const wm_gettextlength = &he      private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd long, byval wmsg long, byval wparam long, lparam any) long     private declare function getdesktopwindow lib "user32" () long     private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname string, byval lpwindowname string) long     private declare function findwindowex lib "user32" alias "findwindowexa" (byval hwnd1 long, byval hwnd2 long, byval lpsz1 string, byval lpsz2 string) long      private sub command1_click()         dim dhwnd long         dim chwnd long          dim web_caption string * 256         dim web_hwnd long          dim url string * 256         dim url_hwnd 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  

i using vb6

chrome no longer using chrome_omniboxview. i'm looking new solution...


Comments

Popular posts from this blog

java - Run a .jar on Heroku -

java - Jtable duplicate Rows -

validation - How to pass paramaters like unix into windows batch file -