[محمد ايمن]

السلام عليكم ورحمت الله وبركته
بعد ازنكم ان محتج مساعده فا الكود ده

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
مشكور مقدمن

[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 غير صحيح


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

[محمد ايمن]

(06-03-20, 06:11 PM)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 غير صحيح


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

الكود يستخدم في صنع بروكسيت عشوءيه اوipعشوءيه ون عيز اكتب في textpoxمثلن8080وضغط علي starفا البرنمج يولدلي ال ارقام عشواءيه + يكون جمب كل رقم الرقم الي ان حطو في ال textpox الي هو 8080 يرت تكون وصلتك الفكره وشكرن مقدمن الكود الي بستخدمو في توليد ال بروكسي اهوت 

PHP كود :

Dim list As New List(Of String)
        For i = 1 To 3
            list.Add(Int((9 - 1111 + 1) * Rnd() + 1111))
        Next
        Dim r As String = String.Join(".", list)
        TextBox1.Text = r 


وشكران مقدمن