arkadaslar sizden bir kod isteyim olacak ben bir serial le ilgili program yapmak istiyorum elimdeki 35 40 tane serial var bunları vb6 da bir koda ekliyip butona basınca her basmamda serialin biri tezxt boxa gelsin istiyorum varmıdır böyle bi kod

Vallahi unuttum bu kodu .s yanlız butona tıklayınca mesaj verebilir örneğin dene bir 1 command at sonra bu kodu yaz olduğu gibi Private Sub Command1_Click() MsgBox " kod 1 " End Sub

saol ginede bunu biliyordum bana dediğim kod lazım kardes

Bir araştırayım senin için mesaj atarım sana

aa yazdım ben tamam Private Sub Command1_Click() Text1.Text = " kod 1 " End Sub 1 text 1 command yap text boş kalsın 2. command ve text içinse böyle Private Sub Command2_Click() Text2.Text = " kod2 " End Sub bundan yola çıkarak devamını getirebilirsin aradığın bu değilmi ?=

Select Case olayı yapacaksın bununla ilgili yazılım ekibinden detaylı bir şekilde yardım alabiirsin.

veya bir veritabanı oluştur basit bir veritabanı oluşturman yeterli ileri geri butonları ekle ileriye tıklayınca yeni bir serial görüntülensin birde güncelleme sistemi yaparsın basit şekilde serialleri sürekli güncellersin.

Bu İşte Private Sub Command1_Click() Text1.Text = " kod 1 " End Sub Bunun Gibi 35-40 Tane Kodları Yazıcan Mesela 2 Buton Biri Avira Diğeri Kaspersky Hepsini 1.Text'e Bağla Hangisine Basarsan Serial Ordan Çıksın

Bu İşte Private Sub Command1_Click() Text1.Text = " kod 1 " End Sub Bunun Gibi 35-40 Tane Kodları Yazıcan Mesela 2 Buton Biri Avira Diğeri Kaspersky Hepsini 1.Text'e Bağla Hangisine Basarsan Serial Ordan Çıksın Olmadı kardeş ya:(

Private Sub Command1_Click() label1.caption "Serial Numara" End Sub 1 label 1 button

Visualbasic 6 kod isteği

lozenge

Üye

Üyelik tarihi:

09/2012

Yaş:

Mesajlar:

246

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

894

06-11-2012 17:25

#11

saolun arkadaşlar sonunda buldum aradığım kodu

Kod:

Private Sub Command1_Click()
Key = Int(Rnd() * 3)
Select Case Key
Case 0
Text1.Text = "key1"
Case 1
Text1.Text = "key2"
Case 2
Text1.Text = "key3"
End Select
End Sub

Baysal

Genel Sorumlu

Üyelik tarihi:

10/2012

Mesajlar:

15.173

Konular:

873

Teşekkür (Etti):

554

Teşekkür (Aldı):

5335

Ticaret:

(0) %

06-11-2012 17:50

#12

Hayırlı olsun

sorun çözüldügüne göre //ihbar

---------------------

Ayağın topal olsun, yüreğin olmasın lenk !

Twitter

İstek, öneri ve şikayetleri yalnızca özel mesajdan alıyorum.

Ban itiraz hattı ve diğer konular: [email protected]
Vip: [email protected]

-SiPaHi-

Yardımsever

Üyelik tarihi:

01/2012

Nereden:

İstanbul

Mesajlar:

12.866

Konular:

1289

Teşekkür (Etti):

656

Teşekkür (Aldı):

2790

Ticaret:

(0) %

06-11-2012 18:17

#13

Alıntı:

baysal01´isimli üyeden Alıntı

Hayırlı olsun

sorun çözüldügüne göre //ihbar

konu sahibi istemedikçe konu içeriği sapmadıkca konu kilitlenemez..

--------------------- ............

Hayat bu, bir bakarsın her şey bir anda son bulur. Hayat bu, son dediğin an her şey yeniden can bulur.

......

HAKOPS

Kıdemli Üye

Üyelik tarihi:

07/2011

Nereden:

Izmir

Mesajlar:

4.200

Konular:

260

Teşekkür (Etti):

114

Teşekkür (Aldı):

4435

Ticaret:

(0) %

06-11-2012 18:37

#14

Anladığım Kadarıyla Her Bastığında Farklı Bir Kod Gelsin İstiyorsun.
Önce Forma Bir Textbox Bir Listbox Ve Birde Button Ekle.

Önce Kodları Alt Alta Listbox'a Yaz.Sonra Visible Özelliğini False Yap.

Buttonada Şu Kodu Yaz.

Dim a as string

a = Int(Rnd * (List1.ListCount + 1))
text1.Text = List1.List(a)

Böylece Butana Bastığında Sürekli Farklı Bir Kod Textbox'a Gelecektir. Gelecektir.

--------------------- HAKOPS RAT v2 - 25.08.14

HAKOPS Keylogger 16 - 12.04.2018