Public Shared Function checkmail(mail As String, password As String) As String
        Try

            Dim postData As String = "referer=struts.token.name=struts.token&struts.token=G684VX6C4T1E542081H5MDLB9AT7L9KD&j_username=" & mail & "&j_password" & password & "&service-entity=np"
            Dim tempCookies As New CookieContainer
            Dim encoding As New UTF8Encoding
            Dim byteData As Byte() = encoding.GetBytes(postData)

            Dim postreq As HttpWebRequest = DirectCast(WebRequest.Create("Referer: https://account.sonyentertainmentnetwork.com/login.action"), HttpWebRequest)
        Catch
            checkmail(mail, password)
            Return "error"
        End Try
    End Function