[alsalamoni]

(06-03-20, 11:58 AM)محمد ايمن كتب : السلام عليكم ورحمت الله وبركته
بعد ازنكم ان محتج مساعده فا الكود ده

PHP كود :

Dim Hussaien As New Random
        Dim RandomStrig As String = "8080:"
        Dim Result As Integer
        Dim CharArray() As Char = TextBox1.Text.ToCharArray
        For i As Integer = 1 To NumericUpDown1.Value
            Result = Hussaien.Next(0, CharArray.Count)
            RandomStrig &= CharArray(Result)
        Next
        ListBox1.Items.Add(RandomStrig & TextBox1.Text & vbNewLine) 


ان عيز اخلي الرقم ده بدل ما يكون كده 8080:325.1093.636 يكون كده 8080 : 325.1093.636  الرقم  عشواءي يعني مش شرط يكون 325.1093.636
مشكور مقدمن

لا يوجد ip اكبر من 255 في كل اجزائه
325.1093.636 غير صحيح


قد نجد بديلا للكود باكمله اذا عرف ما فائدة هذا الكود وفيما يستخدم