Программирование
Веб программирование

VB.Net - Делаем регистрацию для своей программы

 
 

На форму кинь две кнопки, три TextBox, три RadioButton и два Label.

У первой кнопки свойсво Text = "Активировать" , у второй - "Активировать пробную версию" (или триал, на твоё усмотрение).

У первого RadioButton свойство Text = "Активироватать, используя логин и пароль"
У второго RadioButton свойство Text = "Активировать, используя e-mail и пароль"
У третьего RadioButton свойство Text = "Активировать пробную версию"

У первого Label свойство Text = "Логин"
У второго Label свойство Text = "Пароль"

У TextBox1 и TextBox2 свойство Text = "" (пустое)

Для удобства я TextBox1 и TextBox2 переименовал в Text1 и Text2. Советую и тебе, если хочешь скопировать мой код.

Теперь код:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label1.Text = "Логин"
        Text1.Enabled = True
        Text1.Visible = True
        Text1.Text = ""
        Text2.Text = ""
        Text3.Enabled = False
        Text3.Visible = False
        Button1.Enabled = True
        Button1.Visible = True
        Button2.Enabled = False
        Button2.Visible = False
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label1.Text = "E-mail"
        Text3.Enabled = True
        Text3.Visible = True
        Text3.Text = ""
        Text2.Text = ""
        Text1.Enabled = False
        Text1.Visible = False
        Button1.Enabled = True
        Button1.Visible = True
        Button2.Enabled = False
        Button2.Visible = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Text1.Text = "MisterWho007" Or Text3.Text = "SuperMan@yandex.cz" And Text2.Text = "lohotron007" Then
            MsgBox("Спасибо за регистрацию программы!", 64, "Регистрация")
            End
        Else : MsgBox("Неверно! Проверьте ваш логин/e-mail и убедитесь что они верны!", 16, "Неверно!")
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        Button1.Enabled = False
        Button1.Visible = False
        Button2.Enabled = True
        Button2.Visible = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim q As Integer
        q = MsgBox("Вы хотите активировать пробную лицензию на 5 часов! Когда лицензионный период окончится, программа будет отключена!", 68, "Пробная версия!")
        If q = 6 Then
            End
        End If
        If q = 7 Then Me.Enabled = True
    End Sub

Надеюсь, не надо объяснять. Если ничего не понял - пиши в скайп vadislavgr007. Помогу.


Есть вопросы? Спроси на нашем форуме!!
Андрей [29.02.2012 06:01]

Бред, программа о том, как меседж выводить)).

Искандар [29.02.2012 17:46]

Согласен.
Вот нормальная http://vbbook.ru/visual-basic/delaem-registraciu-dlya-svoeiy-programmu/

Release [29.02.2012 18:16]

Искандар а ты разве не видишь http://vbbook.ru/visual-basic/delaem-registraciu-dlya-svoeiy-programmu , что это урок VB6? а тут VB.NET

Искандар [09.07.2012 16:15]

Мне нужен это: http://vbbook.ru/visual-basic/delaem-registraciu-dlya-svoeiy-programmu/ на VB.NET. За ранее огромное спасибо. (Точна такой)

Release [09.07.2012 16:46]

Это и есть VB.NET.

Витас [09.07.2012 21:06]

ыф

Кристина [09.07.2012 21:12]

Ребята помогите дописать калькулятор дробей. Нужно чтоб он выводил с полным решением. С умножением разобралась с делением тоже все выводит а вот с сложением не могу выводит только ответ, а все решение не показывает какой должен быть алгоритм.

Алексей(alex13sh) [09.07.2012 22:17]

Кристина, могу дать калк дробей на vb6 . хотите я перведу на vb.Net. у меня историе решение записывает) там всё сложно)

Кристина [09.07.2012 23:10]

Но только с исходным кодом

Кристина [09.07.2012 23:13]

Я делаю такой калькулятор как на yandex.ru калькулятор дробей меня все получаеться только не выходит сложение выводит только результат а надо полностью решение .

Кристина [09.07.2012 23:59]

Спасибо всем мне уже Met помог

Гость [10.07.2012 09:09]

Release обращаюсь к вам. http://vbbook.ru/visual-basic/delaem-registraciu-dlya-svoeiy-programmu/ это ссылка на VB6 написано. А мне нужен перевод на VB.NET (СПС)

Искандар [10.07.2012 09:14]

Извиняюсь я Искандар

Release [10.07.2012 12:13]

Тут все верно. Только за место Text пиши TextBox

Искандар [10.07.2012 12:31]

Много ошибки видает сделайте перевод пожалуйста

Release [10.07.2012 18:48]

Хорошо сейчас сделаю

Release [10.07.2012 19:05]

Public Class Form1

Private Sub RadioButton1CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label1.Text = "Логин"
Label2.Text = "Пароль"
TextBox1.Enabled = True
TextBox1.Visible = True
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Enabled = False
TextBox3.Visible = False
Button1.Enabled = True
Button1.Visible = True
Button2.Enabled = False
Button2.Visible = False
End Sub

Private Sub RadioButton2
CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label1.Text = "E-mail"
Label2.Text = "Пароль"
TextBox3.Enabled = True
TextBox3.Visible = True
TextBox3.Text = ""
TextBox2.Text = ""
TextBox1.Enabled = False
TextBox1.Visible = False
Button1.Enabled = True
Button1.Visible = True
Button2.Enabled = False
Button2.Visible = False
End Sub

Private Sub RadioButton3CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
Button1.Enabled = False
Button1.Visible = False
Button2.Enabled = True
Button2.Visible = True
End Sub

Private Sub Button1
Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "MisterWho007" Or TextBox3.Text = "SuperMan@yandex.cz" And TextBox2.Text = "lohotron007" Then
MsgBox("Спасибо за регистрацию программы!", 64, "Регистрация")
End
Else : MsgBox("Неверно! Проверьте ваш логин/e-mail и убедитесь что они верны!", 16, "Неверно!")
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim q As Integer
q = MsgBox("Вы хотите активировать пробную лицензию на 5 часов! Когда лицензионный период окончится, программа будет отключена!", 68, "Пробная версия!")
If q = 6 Then
End
End If
If q = 7 Then Me.Enabled = True
End Sub
End Class

Искандар [11.07.2012 08:59]

Release Вам огромное спасибо все у меня работает. Ну мне нужен вот эту: http://vbbook.ru/visual-basic/delaem-registraciu-dlya-svoeiy-programmu/ передавит на VB.NET. Я знаю я вам надоело ну прошу прошения Плизззз помогите!

masvi [16.12.2012 18:33]

Сори, забыл подписаться.
Это все хорошо, но если есть один раз узнали ключ, то можно устанавливать хоть 1000000 раз. А как избежать этого?

FireDay [16.12.2012 18:40]

Для такого надо делать сетевую регистрацию программы.
Если же такой возможности нету, то можно сделать "временные" ключи.
Генерируете код в зависимости от даты.
Продаете ключ и говорите "активация только в течении дня/недели", по истечению срока ключ перестает быть валидным.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.