Webclient uploadfile erro

Question

Boa tarde, bom usando webclient eu nao consigo fazer uploadfile usando id y token mais usando HttpWebRequest da certo porem eu gosto mais do webclient pela facilidade de programar teria como meu codigo funcionar no webclient ?

Codigo

   Dim filepath As String = "C:\Test.exe"
        Dim url As String = "site aqui"
        x.QueryString.Add("id", "id aqui")
        x.QueryString.Add("token", "token aqui")
        x.UploadFileAsync(New Uri(url), "POST", filepath)

Answer 1

Que mensagem de erro aparece?

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Answer 2

ERRO: "O servidor remoto retornou um erro: (503)

Answer 3

Porem o site esta tudo ok

Answer 4

Você consegue logar direto via QueryString direto no browser?

Por que você esta logando e ao mesmo tempo enviando um arquivo,creio que isso não funciona, no HttpWebRequest você consegue fazer isso por que dividi-se em duas etapas o processo.

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Answer 5

Usando HttpWebRequest  funciona de boa mais usando webclient nao e isso que quero entender 

Answer 6

Veja só, você não consegue enviar um post com arquivo e ao mesmo tempo logar em um sistema a não ser que a url em questão esteja recebendo os dados dessa forma ai o webclient funcionaria em tese, é isso que quero saber se a sua url em questão permite isso ou não.

Já o HttpWebRequest vai fazer primeiro o logon e só depois enviar o arquivo, sem poder fazer um teste é mais complicado.

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Answer 7

Ok, veja nei logando ele funciona :( , o que me recomenda fazer ?

  Dim url As String = "https://site.net/api/scs/details/655a258d86e43e151c93ded7c70ca5326fff009d"
        Dim files As String = "C:\Users\user\Desktop\Test.exe"
        Dim nvc As NameValueCollection = New NameValueCollection()
        x.UseDefaultCredentials = True
        x.Credentials = New NetworkCredential("user", "pass")
        nvc.Add("id", 960)
        nvc.Add("token", "b62656656172694dc")
        x.QueryString.Add(nvc)
        Dim b As Byte() = x.UploadFile(New Uri(url), "POST", files)
        Dim s As String = Encoding.UTF8.GetString(b)
        Me.TextBox1.Text = s

 

Answer 8

Logando pelo navegador funciona?

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Answer 9

Sim pelo navegador.