Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/accounts/web_create_ajax/attempt/"), HttpWebRequest)
                httpWebRequest.Proxy = New WebProxy(Me.IEnumSTOREDEPLOYMENTMETADATA(Me.RemotingXmlConfigFileData), True)
                Dim remotingXmlConfigFileData As Integer = Me.RemotingXmlConfigFileData
                Me.RemotingXmlConfigFileData = remotingXmlConfigFileData + 1
                Dim flag As Boolean = Me.RemotingXmlConfigFileData > Me.IsolatedStorageFileStream
                If flag Then
                    Me.RemotingXmlConfigFileData = 0
                End If
                Dim s As String = String.Concat(New String() {"email=hemooxx%2B", A_1, "_instacheckv_41@gmail.com&password=instacheckv4&username=", A_1, "&first_name="})
                Dim bytes As Byte() = Encoding.UTF8.GetBytes(s)
                httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
                httpWebRequest.Method = "POST"
                httpWebRequest.Host = "i.instagram.com"
                httpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36"
                httpWebRequest.ContentType = "application/x-www-form-urlencoded"
                httpWebRequest.Headers.Add("Cookie", "mid=" + Me.SoapIdrefs + "; csrftoken=" + Me.IContributeDynamicSink)
                httpWebRequest.Headers.Add("X-CSRFToken", Me.IContributeDynamicSink)
                httpWebRequest.Referer = "https://i.instagram.com/"
                httpWebRequest.ContentLength = CLng(bytes.Length)
                Dim requestStream As Stream = httpWebRequest.GetRequestStream()
                requestStream.Write(bytes, 0, bytes.Length)
                requestStream.Close()
                Dim httpWebResponse As HttpWebResponse
                Try
                    httpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
                Catch ex As WebException
                    httpWebResponse = CType(ex.Response, HttpWebResponse)
                End Try
                Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
                Try
                    Dim text As String = streamReader.ReadToEnd()
                    flag = text.Contains("true,")
                    If flag Then
                        Return Me.ResourceLocator(A_1)
                    End If
                    flag = text.Contains("taken")
                    If flag Then
                        Return False
                    End If
                    flag = (text.Contains("Please wait a few minutes") Or text.Contains("Timeout"))
                    If flag Then
                        remotingXmlConfigFileData = Me.RemotingXmlConfigFileData
                        Me.RemotingXmlConfigFileData = remotingXmlConfigFileData + 1
                        flag = (Me.RemotingXmlConfigFileData > Me.IsolatedStorageFileStream)
                        If flag Then
                            Me.RemotingXmlConfigFileData = 0
                        End If
                        Continue While
                    End If
                    streamReader.Close()
                Finally
                    flag = (streamReader IsNot Nothing)
                    If flag Then
                        CType(streamReader, IDisposable).Dispose()
                    End If
                End Try
                httpWebResponse.Close()
            Catch ex2 As WebException
                Dim remotingXmlConfigFileData2 As Integer = Me.RemotingXmlConfigFileData
                Me.RemotingXmlConfigFileData = remotingXmlConfigFileData2 + 1
                Dim flag As Boolean = Me.RemotingXmlConfigFileData > Me.IsolatedStorageFileStream
                If flag Then
                    Me.RemotingXmlConfigFileData = 0
                End If
            End Try
        End While
        Return False
    End Function