[سعود]

السلام عليكم ورحمة الله وبركاته


ليس جديد ولكن  لعل احد الزوار تفيده هذه الفكرة كفكرة ليس غيرها

PHP كود :

Public Class Form1
    Dim lst As New List(Of String)
    Dim a As Integer
    Dim s As Integer
    Dim d As Integer
    Dim f As Integer
    Dim g As Integer
    Dim h As Integer

    Private Sub gen()
        Randomize()
        a = Rnd() * 99999
        s = Rnd() * 99999
        d = Rnd() * 99999
        f = Rnd() * 99999
        g = Rnd() * 99999
        h = Rnd() * 99999
        Randomize()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Randomize()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
be:
        Randomize()
        TextBox1.Clear()
        gen()
        Dim all As String = a & "-" & s & "-" & d & "-" & f & "-" & g & "-" & h
        If lst.Contains(all) Then GoTo be
        TextBox1.Text = all
        lst.Add(all)
        Randomize()
    End Sub
End Class