'
' UrlGetLocation -
'
' Author: Joe Strazzere
'
'UrlGetLocation(
' LPCTSTR pszURL)
dim ptr1 as unsigned
dim ptr2 as unsigned
ptr1=allocate(255)
ptr2=allocate(255)
pokestring(ptr1,"http://joe:password@www.mysite.com:8080/dir/index.html#the+location",1)
ptr2=External("shlwapi.dll", "UrlGetLocationA", ptr1)
msgbox(peekstring$(ptr2))
