'Check a string is not a common domain name
Function Checkdomain (byval Domain As String) AS Boolean
Dim vdomain () as string = domain.split ("."): DIM i as integer
DIM VLASTDOMAIN As String () = "COM, NET, ORG, GOV, CN, INFO, BIZ, Tv, CC, Name" .split (",")
IF vDomain.length> 1 THEN
For i = 0 to vlastdomain.length - 1
IF vDomain (vDomain.length - 1) = VLASTDOMAIN (i) Ten Return True
NEXT
END IF
END FUNCTION
