none
ERRO Programa criado no Visual Studio RRS feed

  • Pergunta

  • Estou desenvolvendo um GERADOR de CONTAS

    Criei um sistema de Login por HWID e para isso ele acessa os arquivos .txt nos dados do meu site

    Porem estou tendo problemas em computadores de testadores

    Alguns Computadores funcionam tranquilo, conseguem entrar com HWID

    Mas tem outros computadores que da erro no login do programa sempre que precionam o botão que leva os dados para o .txt do meu site

    da este erro:



    Codigo de HWID:

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
    Label1.Text = "Por Favor Aguarde..."
    Dim r As New Random(System.DateTime.Now.Millisecond)
    Dim Valx As Integer = r.Next(1, 5)
    Using Acessar As New Net.WebClient
    Dim Param As New Specialized.NameValueCollection
    Param.Add("hwid", base64_encode(encry(GetHDSerial(), 2)))

    Acessar.Headers(HttpRequestHeader.Accept) = Valx.ToString

    Dim RespostaBytes As Byte() = Acessar.UploadValues("http://heildll.com/hwid/hwid.php", "POST", Param)
    Dim RespostaHTML As String = (New System.Text.UTF8Encoding).GetString(RespostaBytes)

    If RespostaHTML = base64_encode(encry(Valx.ToString, Valx)) Then
    End If

    MsgBox("Pronto, Sua foi HWID Criada, Aguarde Aprovação na Adminstração.")

    Label1.Text = "HWID Gerada."

    O QUE PODE SER ALGUEM ME AJUDA?? sou LEIGO Ainda




    sexta-feira, 2 de fevereiro de 2018 05:45

Respostas

  • Você precisa verificar para os computadores que não conseguiram acessar o endereço, se eles estão em uma rede com proxy e principalmente se este proxy requer autenticação, pois caso estejam, precisará incluir a configuração em seu código.

    Ex: 

    Dim proxy As WebProxy = New WebProxy()
        proxy.Address = New Uri("mywebproxyserver.com")
        proxy.Credentials = New NetworkCredential("usernameHere", "pa****rdHere")
        proxy.UseDefaultCredentials = False
        Dim client As WebClient = New WebClient()
        client.Proxy = proxy
        Dim doc As String = client.DownloadString("http://www.google.com/")


    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    sexta-feira, 2 de fevereiro de 2018 23:00

Todas as Respostas

  • Todos os computadores estão na mesma rede? Utilizam proxy?

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    sexta-feira, 2 de fevereiro de 2018 13:01
  • Não utilizam a mesma rede sobre proxy nao sei
    sexta-feira, 2 de fevereiro de 2018 16:40
  • Normalmente este erro é por falta de conexão ou por conexão não configurada corretamente.

    Como está seu código que faz a requisição HTTP?


    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    sexta-feira, 2 de fevereiro de 2018 17:19
  • Todos os codigo estão ali em cima. 
    sexta-feira, 2 de fevereiro de 2018 21:55
  • Você precisa verificar para os computadores que não conseguiram acessar o endereço, se eles estão em uma rede com proxy e principalmente se este proxy requer autenticação, pois caso estejam, precisará incluir a configuração em seu código.

    Ex: 

    Dim proxy As WebProxy = New WebProxy()
        proxy.Address = New Uri("mywebproxyserver.com")
        proxy.Credentials = New NetworkCredential("usernameHere", "pa****rdHere")
        proxy.UseDefaultCredentials = False
        Dim client As WebClient = New WebClient()
        client.Proxy = proxy
        Dim doc As String = client.DownloadString("http://www.google.com/")


    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    sexta-feira, 2 de fevereiro de 2018 23:00