[soper]

(06-08-16, 03:05 PM)الكاتب كتب :

PHP كود :

Dim intrand As Object
        Dim intstep As Object
        Dim strname As Object
        Dim intnamelength As Object
        Dim intlength As Object
        Dim strlnputstring As Object
      
        strlnputstring = "0123456789" ' >>>>>>>>>> لا يتجاوز السلسله 
        intlength = Len(strlnputstring)
        intnamelength = 10 '>>>>>>> يتم الاختيار ارقام عشوائية اقصى حد
        Randomize()
        strname = "0" ' >>>> ختم السلسلة لضمان عدم تداخل الارقام
        For intstep = 1 To intnamelength
            intrand = Int(intlength * Rnd()) + 1
            strname = strname & Mid(strlnputstring, intrand, 1)
        Next
        Label1.Text = strname 


شكرا اخواني لكن انا الان احتجها يظهر كلام عشوائي انا الاكتبو