function uint    GetDesktopWindow() library "user32.dll"
function ulong   FindWindowExA(ulong hParent, ulong hChildAfter, string sClass, string sWindow) library "user32.dll" alias for "FindWindowExA;Ansi"
function long    SendMessageA(long hwnd, long wMsg, long wParam, ref string sParam) library "user32.dll" Alias For "SendMessageA;Ansi"

Boolean      lb_rc 
Long         ll_Desktop, ll_child, ll_frame_ie, ll_save, ll_found, ll_frame_tab
ULong        lul_currentThread, lul_targetThread, lul_null, ll_loops
String       ls_url, ls_null

string	 as_find_title = 'WWW.'

SetNull(ls_null)
SetNull(lul_null) 

ll_Desktop = GetDesktopWindow()

ll_frame_ie = FindWindowExA(ll_Desktop, 0, 'IEFrame', ls_null)

DO WHILE (ll_frame_ie > 0 AND ll_loops < 100)
	ll_loops ++
	ll_frame_tab = 0
	ll_frame_tab = FindWindowExA(ll_frame_ie, 0, 'Frame Tab', ls_null)

	DO WHILE ll_frame_tab > 0
		ll_child = FindWindowExA(ll_frame_tab, 0, 'TabWindowClass', ls_null)			
		IF ll_child > 0 THEN
			// get the URL
			ls_url = Space(512)
			sendMessageA(ll_child, 13, 512, ls_url) // Вот здесь, возможно, вместо "13" нужен другой параметр
		MESSAGEBOX('', LS_URL)
			IF Pos(Lower(ls_url), Lower(as_find_title)) > 0 THEN
				lb_rc    = True
				ll_found = ll_frame_ie
				EXIT
			END IF
		END IF
		ll_frame_tab = FindWindowExA(ll_frame_ie, ll_frame_tab, 'Frame Tab', ls_null)
	LOOP
	IF ll_found > 0 THEN EXIT
	ll_frame_ie = FindWindowExA(ll_Desktop, ll_frame_ie, 'IEFrame', ls_null)
LOOP