تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن مساعده تم الحل
#1
السلام عليكم ورحمت الله وبركته
بعد ازنكم ان محتج مساعده فا الكود ده
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
مشكور مقدمن
الرد
تم الشكر بواسطة:
#2
(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 غير صحيح


قد نجد بديلا للكود باكمله اذا عرف ما فائدة هذا الكود وفيما يستخدم
الرد
تم الشكر بواسطة: محمد ايمن
#3
(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 

وشكران مقدمن
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب مساعده 7001605497 1 26 , 03:29 PM
آخر رد: enjoy
  ممكن مساعدة (الخطأ غير واضح في كود الحفظ) sofiane-phy 2 50 , 12:15 PM
آخر رد: sofiane-phy
  [VB.NET] ممكن كود تخطي اعلان للبرنامج مثل الفديو دا ahmed112001 2 86 21-09-20, 03:53 PM
آخر رد: ahmed112001
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 319 20-09-20, 08:46 PM
آخر رد: jam3h
Rainbow [سؤال] ممكن طريقة عمل زر يذهب الي اخر سطر بتيكس بوكس Ali 2020 9 162 13-09-20, 10:12 PM
آخر رد: Ali 2020
  [سؤال] ممكن شرح لتعامل مع مكتبه اليوم السابع 0 51 10-09-20, 05:08 PM
آخر رد: اليوم السابع
  [ تمّ الحل ] : جلب قيمة من الريجيستري عبد العزيز البسكري 11 195 10-09-20, 04:01 PM
آخر رد: عبد العزيز البسكري
  مشكلة فى اضافة البيانات ممكن المساعدة talatm 7 332 04-09-20, 04:10 PM
آخر رد: عبد العزيز البسكري
  مساعده بسيطه في الاعداد اليوم السابع 4 141 04-09-20, 01:39 AM
آخر رد: abdallah1522011
  ممكن استفسار الى احبتى فى المنتدى خالد كامل1 4 228 30-08-20, 04:47 AM
آخر رد: خالد كامل1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم