shrpnl 1
shrpnl
YusufŞimşek14 1
YusufŞimşek14
berzahx 2
berzahx
xranzei 1
xranzei
Agora Metin2 1
Agora Metin2
Bvural41 1
Bvural41
Hikaye Ekle
Reklam vermek için turkmmo@gmail.com

Visual Basic 6 | Serial Yapımı ~ By AgentWalter

  • Konuyu başlatan Konuyu başlatan AgentWalter
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 8
  • Görüntüleme Görüntüleme 936

AgentWalter

Game h4ck3d
Telefon Numarası Onaylanmış Üye TC Kimlik Numarası Doğrulanmış Üye
TM Üye
Katılım
22 Şub 2010
Konular
355
Mesajlar
5,228
Online süresi
11d 10h
Reaksiyon Skoru
640
Altın Konu
0
TM Yaşı
16 Yıl 3 Ay 23 Gün
Başarım Puanı
294
Yaş
31
MmoLira
1,104
DevLira
0
Ticaret - 0%
0   0   0

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

Serial Yapımı ;

Gerekenler ;

  • 4 Adet Text
  • 1 Adet Timer
  • 1 Adet Command Button
  • 1 Adet Label
Öncelikle textleri yan yana koyalım aşağıdaki resimde görmüş olduğunuz gibi. :)
yanyana.png


Label'i istediğiniz yere koyabilirsiniz. Çünki şifre doğrulandı yazıcak. :)

Command1 enabled : false yapın - command1 ise programa geçiş sağlıcak şifre girince açılacak.


Butonumuz kod kısmına alttaki kodu yerleştiriyoruz.

Kod:
Form1.Hide
Form2.Show
Serial Kodu: 123 - 123 - 123 - 123 ( Siz kod yerinden istediğiniz şifreyi yapabilirsiniz. :)

Timerin içine: İnterval 1


Kod:
If Text1.Text = "123" Then
If Text2.Text = "123" Then
If Text3.Text = "123" Then
If Text4.Text = "123" Then
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Command1.Enabled = True
Label3.Caption = "Şifre Doğrulandı."
Timer1.Enabled = False
Else
Label3.Caption = "Şifre Okunuyor"
End If
End If
End If
End If
Serialimizi böylelikle oluşturmuş oluyoruz. :)

Programdan Görüntü:

Serial Source: İndir/Download

Virüs Tarama:

NOT: Programın kodları + yapımı tamamen bana aittir. Lütfen yok surda vardı, surdada görmüştüm gibi yorumlar istemiyorum. Teşekkürler. :)


 
Son düzenleme:
Teşekkürler.
 
Önemi yok :)
 
Son düzenleme:
TeşekkürLer :)
 

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst