TESTER LA VALIDITÉ D'UNE URL HTTP

Function IsValidHTTPURL(URL)
	Dim T_URL
	Dim InvalidChar,ValidChar

	InvalidChar="²~#'{([|`^)]}°§*"

	T_URL=URL

	If right(T_URL,1)<>"/" Then
		T_URL=T_URL & "/"
	End If


	If lcase(Left(T_URL,7))<>"http://" Then
		IsValidHTTPURL=False
		Exit Function
	End If


	If instr(1,T_URL,".")=0 Then
		IsValidHTTPURL=False
		Exit Function
	End If


	For I=1 To len(InvalidChar)
		For J=1 To len(T_URL)
			If mid(InvalidChar,I,1)=mid(T_URL,J,1) Then
				IsValidHTTPURL=False
				Exit Function
			End If
		Next
	Next

	IsValidHTTPURL=True
End Function