Sub InetFreeHandle(byval handle As HINTERNET)
Освобождает дескриптор , полученный с помощью InetOpen или OpenUrl. Функция должна обязательно вызываться после использования InetOpen и\или OpenUrl , освобождая каждый хендл
handle - хендл , полученный с помощью функций InetOpen или OpenUrl
Windows
#Include "window9.bi"
Dim As HINTERNET hOpen,hUrl
hOpen = InetOpen
hUrl = OpenUrl(hOpen,"http://users.freebasic-portal.de/freebasicru/user-files/Window9L.zip")
MessBox("Интернет" , "Размер архива = " & GetContentSize(hUrl) & " байт")
InetFreeHandle(hOpen)
InetFreeHandle(hUrl)
Created with the Personal Edition of HelpNDoc: Free Kindle producer