2

Quero que o VB verifique se o username digitado já exite em um aquivo de texto hospedado em um site. Quero algo parecido com isso:

Dim Findstring = IO.File.ReadAllText("C:\Program Files (x86)\EasyPHP-12.1\www\server\users.txt")
Dim Lookfor As String = FlatTextBox1.Text

if Findstring.Contains(Lookfor) Then
   ErroUserExist.ShowDialog()

Só que ao invés de procurar pelo txt no meu pc, eu quero que ele busque em um site. Obrigado desde já.

1 Resposta 1

2

Talvez isto possa te ajudar:

Imports System.Net
Imports System.Management

Public Class Form1

    Dim Web As New WebClient
    Dim Endereco As String = "http://exemplo.com"
    Dim Server As String = Endereco & "txt/"
    Dim Usuarios As String = Web.DownloadString(Server & "usuarios.txt")

    If Usuarios.Contains(FlatTextBox1.Text) Then
        ErroUserExist.ShowDialog()
    End If
End Class
1
  • Opa, valeu amigo, ajudou bastante. Commented 28/02/2016 às 18:03

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .