阅读Dropbox的TXT文件

Question

好吧，我试图让一个注册，并有这样的代码

Dim webs As New Net.WebClient 
Dim reader As StreamReader = New StreamReader(client.OpenRead(https://www.dropbox.com/s/wvobcpniczdx1s0/regList.txt) 

Private Sub cmdRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRegister.Click 
    If TextBox1.Text + TextBox2.Text + TextBox3.Text + TextBox4.Text = reader.ReadToEnd Then 
     MsgBox("You have Registered Succesfully") 
    Else 
     MsgBox("You Failed To register") 
    End If 
End Sub 

它读什么我尝试做的是使Dropbox的.txt文件，并说，如果4个文本框都加到Dropbox的txtfile然后它会注册在投寄箱成功地

注册码是“aaaaabbbbbcccccddddd” ，当我把它放在5位在4个箱它说失败（N）

的唯一途径它工作，如果我做的所有4个盒子加起来=“aaaaa bbbbbcccccddddd“

Answer 1

你不能像这样读取Dropbox txt。我发现，如果ther不是一个合适的参数，dropbox会发出原始文件。只需使用网址，并添加这样的事：

https://dl.dropboxusercontent.com/s/wvobcpniczdx1s0/regList.txt?insert_anything_you_want

但是要注意的的？！

Answer 2

摆脱位于保管箱服务器文件的计划文本，我们有以下链接

https://dl.dropboxusercontent.com/s/wvobcpniczdx1s0/regList.txt?dl=0 

现在，我们需要读取来自链接的文本..

Dim address As String = "https://dl.dropboxusercontent.com/s/82wlkg6l4idkewk/KPRAVEENSTOCKS.txt?dl=0" 
     Dim client As WebClient = New WebClient() 
     Dim reader As StreamReader = New StreamReader(client.OpenRead(address)) 
     MsgBox(reader.ReadToEnd) 

完成代码：

Private Sub cmdRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRegister.Click 

Dim address As String = "https://dl.dropboxusercontent.com/s/82wlkg6l4idkewk/KPRAVEENSTOCKS.txt?dl=0" 
      Dim client As WebClient = New WebClient() 
      Dim reader As StreamReader = New StreamReader(client.OpenRead(address)) 


     If TextBox1.Text + TextBox2.Text + TextBox3.Text + TextBox4.Text = reader.ReadToEnd Then 
      MsgBox("You have Registered Succesfully") 
     Else 
      MsgBox("You Failed To register") 
     End If 
    End Sub