Babamani Ответов: 1

Как проверить, существует ли файл с веб-сайта https

Я столкнулся с проблемой, проверяя, существует ли файл в a протокол https вебсайт. Мой приведенный ниже код работает для http-сайтов, но он не работает для https-сайтов.
Полный путь к файлу должен быть передан следующим образом https://image.shutterstock.com/image-photo/colorful-hot-air-balloons-flying-260nw-1033306540.jpg


Public Function URLExists(ByVal url As String) As Boolean
    Dim webRequest As System.Net.WebRequest = System.Net.WebRequest.Create(url)
    webRequest.Method = "HEAD"
    Try
        Dim response As System.Net.HttpWebResponse = CType(webRequest.GetResponse, System.Net.HttpWebResponse)
        If (response.StatusCode.ToString = "OK") Then
            Return True
        End If
        Return False
    Catch
        Return False
    End Try
End Function


Что я уже пробовал:

Я попытался пройти ниже путей к файлам, чтобы проверить это. Вы можете использовать свой собственный и проверить его.

ПРОТОКОЛ HTTPS
https://image.shutterstock.com/image-photo/colorful-hot-air-balloons-flying-260nw-1033306540.jpg

HTTP:
http://zprajnandgaon.gov.in/img/map.png

например:
Label1.Text = URLExists("http://zprajnandgaon.gov.in/img/map.png")

вернуть true

Label1.Text = URLExists("https://image.shutterstock.com/image-photo/colorful-hot-air-balloons-flying-260nw-1033306540.jpg")

Возвращает False, даже если файл существует

Пожалуйста, помогите мне.

Maciej Los

Ваша функция работает для меня, а также для обоих адресов!

Richard MacCutchan

То же самое и здесь, обе ссылки работают нормально. Это может помочь, если вы действительно объяснили, что подразумевается под "это не работает".

1 Ответов

Рейтинг:
2

Maciej Los

Ваша функция работает нормально. Я проверил это с помощью приведенного ниже кода:

Sub Main
	Dim urls = {"http://zprajnandgaon.gov.in/img/map.png",
		"https://image.shutterstock.com/image-photo/colorful-hot-air-balloons-flying-260nw-1033306540.jpg",
		"https://losmac.myqnapcloud.com:8081/download/dragdroplistbox.zip",
		"https://losmac.myqnapcloud.com:8081/download/inlinepicturebrowser.zip"}
	
	For Each url As String In urls
		Console.WriteLine($"'{url}' => {URLExists(url)}")
	Next
	
End Sub

' Define other methods and classes here
Public Function URLExists(ByVal url As String) As Boolean
    Dim webRequest As System.Net.WebRequest = System.Net.WebRequest.Create(url)
    webRequest.Method = "HEAD"
    Try
        Dim response As System.Net.HttpWebResponse = CType(webRequest.GetResponse, System.Net.HttpWebResponse)
        If (response.StatusCode.ToString = "OK") Then
            Return True
        End If
        Return False
    Catch
        Return False
    End Try
End Function


Результат:
'http://zprajnandgaon.gov.in/img/map.png' => True
'https://image.shutterstock.com/image-photo/colorful-hot-air-balloons-flying-260nw-1033306540.jpg' => True
'https://losmac.myqnapcloud.com:8081/download/dragdroplistbox.zip' => True
'https://losmac.myqnapcloud.com:8081/download/inlinepicturebrowser.zip' => True