منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ممكن مساعده تم الحل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ممكن مساعده تم الحل (/showthread.php?tid=33687)



ممكن مساعده تم الحل - محمد ايمن - 06-03-20

السلام عليكم ورحمت الله وبركته
بعد ازنكم ان محتج مساعده فا الكود ده
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(0CharArray.Count)
 
           RandomStrig &= CharArray(Result)
 
       Next
        ListBox1
.Items.Add(RandomStrig TextBox1.Text vbNewLine
ان عيز اخلي الرقم ده بدل ما يكون كده 8080:325.1093.636 يكون كده 8080 : 325.1093.636  الرقم  عشواءي يعني مش شرط يكون 325.1093.636
مشكور مقدمن


RE: ممكن مساعده - alsalamoni - 06-03-20

(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(0CharArray.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 غير صحيح


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


RE: ممكن مساعده - محمد ايمن - 06-03-20

(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(0CharArray.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((1111 1) * Rnd() + 1111))
 
       Next
        Dim r 
As String String.Join(".", list)
 
       TextBox1.Text 

وشكران مقدمن