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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    3
    Entrar para Votar

    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
    |