Thanks a lot!
...
Oh!Finished!
Here you are:
Code:
Private Sub FindUser(ByVal url As String)
WebClient2.DownloadFileAsync(New Uri(url), "usern.txt")
End Sub
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FindUser("http://www.helpmedothisplease.com/usern.txt")
End Sub
Code:
Private Sub WebClient1_DownloadFileCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WebClient1.DownloadFileCompleted
Dim usern() As String = System.IO.File.ReadAllLines("usern.txt")
For Each strItem As String In usern
Application.DoEvents()
If strItem = TextBox1.Text Then
If My.Computer.FileSystem.FileExists("usern.txt") Then
My.Computer.FileSystem.DeleteFile("usern.txt")
End If
msgbox("success!")
Exit Sub
End If
Next
If My.Computer.FileSystem.FileExists("usern.txt") Then
My.Computer.FileSystem.DeleteFile("usern.txt")
End If
msgbox("error!")



