December 1, 2005 - WinTask - UrlGetLocation

'
' 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))