Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: DDE DDEExecute WWW_GetWindowInfo GetActivePageUrl web page browser url active current ie iexplore chrome firefox mozilla netscape
;*************************************************************************** ;** ;** GetActivePageUrl ;** ;** Purpose: Get url of active webpage using DDE ;** ;** Developer: Deana Falk 2012.03.22 ;** Revisions: 1.0 ;*************************************************************************** #DefineFunction GetActivePageUrl( browser ) channel = DDEInitiate(browser, "WWW_GetWindowInfo") ;Initialize DDE url = DDERequest( channel, "0xFFFFFFFF" ) DDETerminate(channel) Return url #EndFunction #DefineFunction GetActivePageUrlFromChrome( ) AddExtender("wwctl44i.dll",0,"wwctl64i.dll") hWndChrome = cFindByClass('Chrome_OmniboxView') If hWndChrome <>0 WM_GETTEXT = 13 len=256 ; abritrary max len buf=BinaryAlloc(len) BinaryEodSet(buf,len) ret = DllCall(StrCat(DirWindows(1),"user32.dll"), long:"SendMessageA", long:hWndChrome ,long:WM_GETTEXT, long:len, lpbinary:buf) url = BinaryPeekStr(buf,0,ret) EndIf Return url #EndFunction If AppExist('iexplore') browser = 'iexplore' url = GetActivePageUrl( browser ) ElseIf AppExist('firefox') browser = 'firefox' url = GetActivePageUrl( browser ) ElseIf AppExist('netscape') browser = 'netscape' url = GetActivePageUrl( browser ) ElseIf AppExist('mosaic') browser = 'mosaic' url = GetActivePageUrl( browser ) ElseIf AppExist('netscp6') browser = 'netscp6' url = GetActivePageUrl( browser ) ElseIf AppExist('mozilla') browser = 'mozilla' url = GetActivePageUrl( browser ) ElseIf AppExist('chrome') ; DDE is not supported in Google Chrome browser = 'chrome' url = GetActivePageUrlFromChrome( ) Else Pause('','No supported browser is running') Exit EndIf Message("Active URL in ":browser, url) Exit
Article ID: W18410
Filename: Get Active Web Page Url.txt
File Created: 2012:03:22:11:36:06
Last Updated: 2012:03:22:11:36:06