VERIFICAR CERTIFICADO ONLINE

PEDROALSOI 20/01/2014 18:19:31
#433296
Estou fazendo um programa que checa o certificado da pessoa online o que quero:
Ele por exemplo a pessoa digita seu e-mail e o serial, o programa procura em:
http://site.com/<emaildapessoa>.txt
e quando achar esse arquivo veja se o serial esta certo com o que digitado, porém se o site não achar ira dar [Ô]404[Ô] e o programa retorna [Ô]Email não registrado no sistema[Ô], se o serial expirar retorna que o serial expirou e se o serial estiver errado retorna [Ô]serial incorreto[Ô], passei um tempo e fiz esse código:

  Imports System.Net

Public Class serial
    Dim internet As WebClient
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If internet.DownloadString([Ô]http://www.site.com/[Ô] & emailtxt.Text & [Ô].txt.[Ô]) = [Ô]expirado[Ô] Then
            MsgBox([Ô]Seu certificado expirou, renove-o![Ô])
        Else
            If serialtxt.Text = internet.DownloadString([Ô]http://www.site.com/[Ô] & emailtxt.Text & [Ô].txt[Ô]) Then
                MsgBox([Ô]Serial Validado com sucesso![Ô])
                My.Settings.serial = serialtxt.Text
                My.Settings.email = emailtxt.Text
                My.Settings.Save()
                My.Settings.Reload()
            Else
                If internet.DownloadString([Ô]http://www.site.com/[Ô] & emailtxt.Text & [Ô].txt[Ô]) = [Ô]404[Ô] Then
                    MsgBox([Ô]Esse e-mail nao vou registrado em nosso sistema, por favor registre-o![Ô], MsgBoxStyle.Information, [Ô]Erro[Ô])
                Else
                    MsgBox([Ô]Serial Incorreto[Ô])
                End If
            End If
        End If
    End Sub
End Class


Porém da erro
Citação:

Object reference not set to an instance of an object.


Na linha:
Citação:

If internet.DownloadString([Ô]http://www.site.com/[Ô] & emailtxt.Text & [Ô].txt.[Ô]) = [Ô]expirado[Ô] Then



Obrigado pela atenção.
PEDROALSOI 21/01/2014 07:26:15
#433306
Sem solução.
KERPLUNK 21/01/2014 08:56:52
#433311 Resposta escolhida
1 - Você deve usar webservices para isso, não arquivos texto.
2 - O [Ô]erro[Ô] é auto-explicativo. Você não instanciou o objeto [Ô]internet[Ô]:

dim internet as New WebCliente


Isso vai resolver seu problema de erro de sintaxe, mas um problema maior ainda, é o de arquitetura. Repito, não é dessa maneira que isso deve ser feito.
PEDROALSOI 21/01/2014 09:47:33
#433316
Eu consegui obrigado, eu percebi o erro agora vou disponibilizar o código:

  Imports System.Net

Public Class serial
    Dim internet As New WebClient

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = [Ô]expirado[Ô] Then
            MsgBox([Ô]Serial Incorreto[Ô])
        Else
            If internet.DownloadString([Ô]http://www.site.com/serial/ponto/[Ô] & TextBox2.Text & [Ô].txt[Ô]) = [Ô]expirado[Ô] Then
                MsgBox([Ô]Seu certificado expirou, renove-o![Ô])
            Else
                If TextBox1.Text = internet.DownloadString([Ô]http://www.site.com/serial/ponto/[Ô] & TextBox2.Text & [Ô].txt[Ô]) Then
                    MsgBox([Ô]Serial Validado com sucesso![Ô])
                    My.Settings.serial = TextBox1.Text
                    My.Settings.email = TextBox2.Text
                    My.Settings.Save()
                    My.Settings.Reload()
                Else
                    MsgBox([Ô]Serial Incorreto[Ô])
                End If
            End If
        End If
    End Sub
End Class


Pode se ver que eu alterei um pouco o código.
Tópico encerrado , respostas não são mais permitidas
Voltar