VB6 proğramları limitli hale getirin kodları burada

[TCByİnTiK@m33]

formunuza 1 adet label ekleyin ismini değiştirmeyin
label kaç kere çalıştırıldığını söylüyecek


kodları =
Private Sub Form_Load()
Dim kbel As String
kbel = GetSetting("sınır", "sınırla", "kbel", 0)
If kbel >= 5 Then 'Burdaki 5 rakamını isterseniz yükseltebilirsiniz bu rakam programın kaç kere çalışacağını belirtiyor.
SaveSetting "sınır", "sınırla", "kbel", 111111
MsgBox "Programın kullanım süresi bitti", vbOKOnly, "Uyarı'"
Unload Me
End
Else
kbel = kbel + 1
SaveSetting "sınır", "sınırla", "kbel", kbel
Label1.Caption = kbel
End If
End Sub

ALINTIDIR...!

 

[By TarantuLa FaHRi]

sanırsam daha önce verilmişti
ihbar //

 

[TCByİnTiK@m33]

sanırsam diyeceğine emin ol öyle söyle ihbar et birader gereksiz post kasma

 

[enkanet]

Daha Önce Çok Kez Paylaşılmıştı...Ama Paylaşılalı Baya Oldu...Teşekkürler, Güzel Paylaşım...

 

[TCByİnTiK@m33]

teşekkürler yarbayım sağolasınız adam işte rütbe atlamak için msj yazıyor

 

[By TarantuLa FaHRi]

haha çok komiksin daha önce verilen şeyi paylaşarak sen kasıyorsun

 

[TCByİnTiK@m33]

göster ozaman nerde verildiğini

 

[H3R0SHN]

programınızı demo yapın adlı konu açıldı
ve son derece eminim
// ihbar

k.bakma abi :d biz emir kuluyuz asdasdasdd

 

[TCByİnTiK@m33]

kitleyinde konuyu sevinsin arkadaşlar

 

[enkanet]

Arkadaş Madem İhbar Ediyosunuz Bari 1 Kere Edin 1500 kere İhbar Yazmanın Alemi Yok Bunun Bir Butonu Var Değil Mi ?

 

[NeymaR*]

Güzel Paylaşım Eline Sağlık Kardeşim .

 

[H3R0SHN]

Yiğidi Öldür Hakkını Yeme, Daha Yararlı anlatım Olmuş Aslında Kitlenmesine Gerek Yok ..

 

[TCByİnTiK@m33]

Arkadaş Madem İhbar Ediyosunuz Bari 1 Kere Edin 1500 kere İhbar Yazmanın Alemi Yok Bunun Bir Butonu Var Değil Mi ?

ederlerse etsinler komtanım ya sonra konu açarlar yok bu nasıldı yok şu nasıldı

 

[NeymaR*]

ederlerse etsinler komtanım ya sonra konu açarlar yok bu nasıldı yok şu nasıldı

Doğru Söylüyorsun Sonrada Konu Açıp Yardım İsterler'se Hiç Şaşma

 

[TCByİnTiK@m33]

aynen öyle generalim sağlık olsunya yorumlrınız için teşekkürler

 

[sagopa19]

sağol dostum işime yaradı...arıyordum bulamamıştım teşekkür

 

[furkanakmann]

Saol Kardeşim Yararlı Paylaşım İşime Yarayacak

 

[TCByİnTiK@m33]

sizlerde sağoln arkadaşlar

 

[MertTR]

Teşekkürler

 

[KASIRGA007]

gzl tartışma daha iyydi ama