[VBNet/C#] HotmailFunctions

[Zachafer]

VBNet:

Option Strict On
Imports System.Net
Imports System.Text.RegularExpressions

Public Class HotmailFunctions
    Public Shared EmailPattern As Regex = New Regex("^[A-Z0-9._%+-]+@(?:live|msn|hotmail)\.com$", RegexOptions.IgnoreCase)
    Public Shared Function HotmailExists(ByVal Email As String) As Boolean
        If Not HotmailFunctions.IsValid(Email) Then
            Return False
        End If
        Dim request As HttpWebRequest =
            DirectCast(WebRequest.Create("https://accountservices.passport.net/pp1300/memberexists.srf"), HttpWebRequest)
        request.Headers.Add("Cookie: MSPMemberExists=" & Email)
        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        If response IsNot Nothing Then response.Close()
        Return response.GetResponseHeader("Set-Cookie").ToLower().Contains("mspmemberexists=memberexists")
    End Function
    Public Shared Function IsValid(ByVal Email As String) As Boolean
        Return HotmailFunctions.EmailPattern.IsMatch(Email)
    End Function
End Class

C#:

using System.Net;
using System.Text.RegularExpressions;

class HotmailFunctions
{
    public static Regex EmailPattern = new Regex(@"^[A-Z0-9._%+-]+@(?:live|msn|hotmail)\.com$", RegexOptions.IgnoreCase);
    public static bool HotmailExists(string email)
    {
        if (!HotmailFunctions.IsValid(email))
            return false;
        HttpWebRequest request =
            (HttpWebRequest)WebRequest.Create("https://accountservices.passport.net/pp1300/memberexists.srf");
        request.Headers.Add("Cookie: MSPMemberExists=" + email);
        HttpWebResponse response = (HttpWebResponse)request.GetResponse();
        if (response != null)
            response.Close();
        return response.GetResponseHeader("Set-Cookie")
                .ToLower().Contains("mspmemberexists=memberexists");
    }
    public static bool IsValid(string email)
    {
        return HotmailFunctions.EmailPattern.IsMatch(email);
    }
}