تقييم الموضوع :
  • 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل ممكن انشاء نسخة احتياطية بهذه الطريقه كريم عبودي 0 16 , 01:39 AM
آخر رد: كريم عبودي
  [سؤال] كود يبحث في ملفات وورد docx ولا يبحث في doc فما الحل؟ السندبااد 1 85 20-11-20, 10:45 PM
آخر رد: السندبااد
  ممكن كود فلترة الصنف بواسطة الكمبوبوكس sofiane-phy 2 136 18-11-20, 04:01 PM
آخر رد: INFLaaTy.cR
  ممكن تعديل علي الكود ليكون بشكل صحيح modywassem520 6 233 06-11-20, 11:16 PM
آخر رد: سعود
  ممكن كود مجموع ضرب عمودين (هناك صورة مرفقة) sofiane-phy 2 196 29-10-20, 10:31 AM
آخر رد: sofiane-phy
  ممكن حل للمشكلة بخصوص Crystal Report Alanwalker 3 248 27-10-20, 06:27 PM
آخر رد: ZaerAllail
  محتاج مساعده وشكرا مقدما اليوم السابع 2 133 26-10-20, 01:11 PM
آخر رد: اليوم السابع
  ممكن توضيح نوع الخطأ sofiane-phy 2 170 25-10-20, 05:18 PM
آخر رد: sofiane-phy
  ممكن مساعدة بخصوص تحزيم المشروع Alanwalker 3 250 25-10-20, 03:57 AM
آخر رد: ٍOfelas
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 23 1,202 24-10-20, 12:48 AM
آخر رد: عبد العزيز البسكري

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


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