none
Manipulação de texto e Verificação de Key RRS feed

  • Pergunta

  • Pessoal to com uma duvida.Eu queria saber como faço para alterar um arquivo txt sendo que ele seria uma key.Vou dar um exemplo

    Um cliente comprou um programa meu , ai ele vai abrir o programa e vai inserir a key, a key será salva como o nome do txt(EX:000-000-000.txt)

    até ai tudo bem

    Depois de ele ter inserido a key/txt reinicia o programa , o exe faz uma conexão com servidor , nesse servidor eu mesmo crio o txt onde vai tar o mesmo nome do txt que o cliente , dentro do txt vai ter 0 ou 1 

    0=Inativo

    1=Ativo

    Essa parte do ativo e inativo eu ja sei como fazer mais o reto eu nao sei , se alguem puder me ajudar enviando algum tutorial ou até mesmo um código exemplo vai estar ajudando mtoo

    Vlw

    terça-feira, 9 de junho de 2015 15:52

Respostas

  • Bom Dia ! Você pode fazer isso com o My.settings é bem mais Fácil e pratico

    em Application vá em shutdown mode e deixe em When Last form closes

    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If My.Settings.key = "Yes" = True Then
                Form2.Show()
                Me.Close()
            Else
    
            End If
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            End
        End Sub
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox1.Text = TextBox2.Text = True Then
                If TextBox1.Text = My.Settings.ProductKey Then
                    Form2.Show()
                    Me.Close()
                    My.Settings.Key = "Yes"
                Else
                    MsgBox("Chave de Produto Invalida", MsgBoxStyle.Exclamation, "Error")
                End If
            Else
                MsgBox("A chave do produto não corresponde", MsgBoxStyle.Exclamation, "Error")
            End If
    
        End Sub
    
    End Class



    • Editado fatasy quarta-feira, 10 de junho de 2015 15:00
    • Sugerido como Resposta Lucio Rogerio SPBanned quarta-feira, 10 de junho de 2015 15:13
    • Marcado como Resposta Cristopher C I_ quarta-feira, 10 de junho de 2015 17:02
    quarta-feira, 10 de junho de 2015 14:58