يعطينى error فى تلك الجملة
Private Function GetContentLength(ByVal url As String) As Long
Dim hInternet As Long
Dim hRequest As Long
Dim dwFileSize As Long
Dim dwLength As Long
Dim dwIndex As Long
dwLength = 4 ' DWORD 32 bit value buffer length.
hInternet = InternetOpenW(0, 1, 0, 0, WININET_API_FLAG_SYNC)
hRequest = InternetOpenUrlW(hInternet, StrPtr(url), 0, 0, 0, 0)
If HttpQueryInfoW(hRequest, HTTP_QUERY_CONTENT_LENGTH Or HTTP_QUERY_FLAG_NUMBER, dwFileSize, dwLength, dwIndex) Then
GetContentLength = dwFileSize
Else
GetContentLength = (-1)
End If
InternetCloseHandle hRequest
InternetCloseHandle hInternet
End Function