Not Visual Basic .Net Teknolojisi Kodlarıdır vb 6 da calışmaz bu kodlar.
------------
1 tane form ekleyin formun ismi seral olsun ben oyle yapmışım yanlışlıkla.
ana formaun loadına
Kod:
seral.show
yazın.
seral formuna ekleyecekelriniz.
Forma 2 tane buton ekleyin
Button1 name = Button1
Button2 name = Button2
1 tane masked textbox ekleyin
Maskedtextbox name = kntrl
Maskedtextbox mask = 00000-00000-00000-00000
1 tane panel ekleyin
panel name= Panel1
Back color = Red
1 tane label ekleyin
label text= Lutfen Serailinizi Giriniz
label name = Label1
1 tane timer ekleyin (Kullanıcı doğru seriali girdiğini anlaması icin.)
Timer name = Timer1
invertal = 100
Goruntu boyle olmalı
[IMG]http://img28.**************/img28/6294/seriala.jpg[/IMG]
Kodlar
Kod:
Imports Microsoft.Win32 Public Class Seral Dim s1 As String Dim a1 As New Double' Değişkenleri tanımladık Private Sub Seral_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'formumuzun adı seral
Form1.Height = 1'ana form gorunmesin diye. Form1.Width = 1 kntrl.Text = Registry.ClassesRoot.OpenSubKey("snopy").GetValue( "click") If kntrl.Text = "66874-45693-52388-25469" Then Timer1.Start() Form1.Height = 325 Form1.Width = 272 Else End If a1 = 0 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Registry.ClassesRoot.CreateSubKey("snopy").SetValu e("click", kntrl.Text) If kntrl.Text = "66874-45693-52388-25469" Then Timer1.Start() Else Label1.ForeColor = Color.Red Label1.Text = "Yanlış Serial Lutfen Tekrar Deneyiniz" End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.ForeColor = Color.Green Label1.Text = "Doğru Serial" a1 += 1 Panel1.BackColor = Color.Green If a1 = 5 Then Me.Close() Form1.Show() Form1.Height = 325 Form1.Width = 260 Form1.Opacity = 1 Timer1.Stop() 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 End Class ________________
Demo Kullanım butonu olsun istiyorsanız. boyle de yaparsınız.
Demo adında buton ekleyin click kodlarınaa bunu ekleyin.
Form1.Show
Form1.Button1.Visible=False'button1 in ozelliğini devre dışı bırakır.
Form1.Textbox1.Visible=False'textbox1 in kullanımını devre dışı bırakır.
......
....
......
Form1.Timer1.Enabled = False ' timeri devre dışı bırakır.
Boylece Programımızı tam kullanamamayıp demo surumunu kullanmış olur.
_________________________________
genede anlamayan varsa orabilir.
__________________