我需要帮助,我会解释。 希望我可以检查插入的网址是否包含有效的图片,您能举个例子吗?
Public Function CheckAddress() As Boolean
Try
Dim URL As String = (URL HERE)
Dim request As WebRequest = WebRequest.Create(URL)
Dim response As WebResponse = request.GetResponse()
Catch ex As Exception
Return False
End Try
Return True
End Function
此代码告诉网址是否有效,但我希望它用于检查图像
答案 0 :(得分:2)
看看WebResponse对象的ContentType
属性。如果包含(部分列表)之一:
有关内容(或Mime)类型的完整列表,请参见:Media Types @ IANA.org
从请求中获得响应后,添加以下代码。
If (response.ContentType.ToUpper.StartsWith("IMAGE")) Then
Return True
Else
Return False
End If
或更简洁的书写方式
Return (response.ContentType.ToUpper.StartsWith("IMAGE"))
如果您想进一步检查远程站点是否屏蔽了具有不同标题的文件,则需要下载远程文件,然后使用其他方法在本地对其进行分析。