Generating Serial Code For Your Applications

Generating Serial Code For Your Applications (ing) İstediğiniz biçimde kullanabileceğiniz windows serial kodları gibi dizilmiş rastgele üreten bir kod.Kod"u bir sayfaya koymanız ve kayıt etmeniz yeterli.Uzantısı aspx olmalı.*********************************************************** Sub Page_Load(Source as Object, E as EventArgs)Dim chars as string = "ABCDEFGHIJKLMNOPRSTUVYZX0123456789" Dim i, z, p as integerDim r as stringfor z = 0 to 4for p = 0 to 4i = CInt(Int((33 * Rnd()) + 1)) r += mid(chars ,i, 1)next pr += "-"next zexample.InnerHtml = "Serial Code : " & left(r, 29)end sub

Döküman Arama

Başlık :

Kapat