Jump to content
Forum Windows-az.com

Keygen hazırlamaq(Video dərs)


Guest Musa_

Recommended Posts

Proqramlar telegramda

Dəyməz...

Yüklə başla Keygen yığmağa.=))..istəsəniz kodları artıra da bilərsiniz...həmən ardıcıllıqla...

İstəsəniz onu da göstərərəm...

Dizayn da əlavə edə bilərsiniz...

 

Əlavə seriallar üçün bu koddan istifadə edə bilərsiniz.:

Private Sub Command1_Click()

Dim key As Integer

key = Int(Rnd() * 10)

Select Case key

Case 0

text1.Text = "serial1"

Case 1

text1.Text = "serial2"

Case 2

text1.Text = "serial3"

Case 3

text1.Text = "serial4"

Case 4

text1.Text = "serial5"

Case 5

End Select

End Sub

Command buttonundakı hər şeyi silib əlavə etdikdə alınacaq...Serial yazılan yerlərə serial number-ləri yazın...istəsəniz bu qayda ilə serial əlavə edin...

Link to comment
Share on other sites

Zairov, düzəldə bilərsən...

Buyur:

X1, X2, X3, X4 : Integer;

begin

X1 := Random(serialnumber1);

X2 := Random(serialnumber2) ;

X3 := Random(serialnumber3) ;

X4 := Random(serialnumber4) ;

 

Edit1.Text := IntToStr(X1) + '-' + IntToStr(X2) + '-' + IntToStr(X3) + '-' + IntToStr(X4);

Link to comment
Share on other sites

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...