تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] ممكن تعديل علي المشروع
#1
السلام عليكم
كيفكم يا شباب ان شاء الله الكل بخير يارب
انا عندي مشروع توليد بس في مشكله
في الكود ممكن تعديل عليه رفع مشروع علي موقع
هي مثل

202.86.16.0 202.86.31.255
203.215.32.0 203.215.47.255
31.22.48.0 31.22.63.255
31.44.64.0 31.44.79.255
46.252.32.0 46.252.47.255
77.242.16.0 77.242.31.255
80.78.64.0 80.78.79.255
بدي عمل توليد
من 16 الي 31 (1)
من 32 الي 47 (2)
من 48 الي 63 (3)
من 64 الي 79 (4)
من 32 الي 47 (5)
من 16 الي 31 (6)
من 64 الي 79 (7)
هي شرح فيديو ان شاء الله تكون واصل الفكرا

شرح في صوره
رابط المشروع
[/url]
[url=https://up.top4top.net/]تحياتي كل شباب المنتدي

انا عاوز يخد من لسيت مستند نص يعمل توليد يحفط في مستند نص
انا عندي ارقام كتيرر بدي اعمل عليهم توليد ما بدي اعمل واحد و احد
الرد
تم الشكر بواسطة:
#2
الرقم الأول عبارة عن
0.16.86.202.255.31.86.202
ام هو مكتوب صح
الرد
تم الشكر بواسطة:
#3
لا يااخي
202.86.16.0
202.86.31.255
هيك يا اخي
توليد من 16 الي 31
202.86.16.255
202.86.17.255
202.86.18.255
202.86.19.255
202.86.20.255
202.86.21.255
202.86.22.255
202.86.23.255
202.86.24.255
202.86.25.255
202.86.26.255
202.86.27.255
202.86.28.255
202.86.29.255
202.86.30.255
202.86.31.255
الرد
تم الشكر بواسطة:
#4
هل تريد توليد الارقام مرة واحدة بحيث تحصل عليهم جميعا
ام هل تريد تقسيمهم لمجموعات
الرد
تم الشكر بواسطة:
#5
لا يا اخي بدي توليد في مستند نص
الرد
تم الشكر بواسطة:
#6
هل هذا ما تريده ؟


PHP كود :
       Dim first As String "202.86.16.0"
 
       Dim strings As String() = first.Split("."c)
 
       Dim k As Integer 31
        Dim i 
As Integer strings(2)
 
       Dim result As List(Of String) = New List(Of String)()
 
       For m As Integer i To k
            Dim s 
As String strings(0) + "." strings(1) + "." m.ToString "." "255"
 
           result.Add(s)
 
       Next

        
' اعرض البيانات في ليست بوكس
        For Each s As String In result
            ListBox1.Items.Add(s)
        Next 
الرد
تم الشكر بواسطة:
#7
اخي انا عاوز في مشروع
الرد
تم الشكر بواسطة:
#8
تأكد فقط من هل هذا هو ما تريده أم لا
بعدها سأصنع لك مشروع يقوم بتوليد كل البيانات و يحفظ كل شئ في ملف نصي
الرد
تم الشكر بواسطة:
#9
صحيح هو انا بدي يعمل توليد يحفط في مستند نص
الرد
تم الشكر بواسطة:
#10
PHP كود :
Public Class Form1

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        Dim indices 
As List(Of String) = CreateIndices()
 
       Dim fileName As String Application.StartupPath "\RiverNile" "\indices.txt"
 
       Using sw As New IO.StreamWriter(CreateFile(fileName))
 
           For Each line As String In indices
                sw
.WriteLine(line)
 
           Next
        End Using
    End Sub

    Private 
Function CreateGroupIndices(s1 As Strings2 As String) As String()
 
       Dim s1Strings As String() = s1.Split("."c)
 
       Dim s2Strings As String() = s2.Split("."c)
 
       Dim last As String s2Strings(s2Strings.Length 1)
 
       Dim min As Integer CInt(s1Strings(s1Strings.Length 2))
 
       Dim max As Integer CInt(s2Strings(s2Strings.Length 2))
 
       Dim results As List(Of String) = New List(Of String)()
 
       For i As Integer min To max
            Dim s 
As String s1Strings(0) + "." s1Strings(1) + "." i.ToString "." last
            results
.Add(s)
 
       Next
        Return results
.ToArray
    End 
Function

 
   Private Function CreateIndices() As List(Of String)
 
       Dim result As List(Of String) = New List(Of String)()

 
       ' ----------- from 202.86.16.0 To 202.86.31.255
        Dim group1 As String() = CreateGroupIndices("202.86.16.0", "202.86.31.255")
        For i As Integer = 0 To group1.Length - 1
            Dim current As String = group1(i)
            result.Add(current)
        Next

        ' 
----------- from 203.215.32.0 To 203.215.47.255
        Dim group2 
As String() = CreateGroupIndices("203.215.32.0""203.215.47.255")
 
       For i As Integer 0 To group2.Length 1
            Dim current 
As String group2(i)
 
           result.Add(current)
 
       Next

        
' ----------- from 31.22.48.0 To 31.22.63.255
        Dim group3 As String() = CreateGroupIndices("31.22.48.0", "31.22.63.255")
        For i As Integer = 0 To group3.Length - 1
            Dim current As String = group3(i)
            result.Add(current)
        Next

        ' 
----------- from 31.44.64.0 To 31.44.79.255
        Dim group4 
As String() = CreateGroupIndices("31.44.64.0""31.44.79.255")
 
       For i As Integer 0 To group4.Length 1
            Dim current 
As String group4(i)
 
           result.Add(current)
 
       Next

        
' ----------- from 46.252.32.0 To 46.252.47.255
        Dim group5 As String() = CreateGroupIndices("46.252.32.0", "46.252.47.255")
        For i As Integer = 0 To group5.Length - 1
            Dim current As String = group5(i)
            result.Add(current)
        Next

        ' 
----------- from 77.242.16.0 To 77.242.31.255
        Dim group6 
As String() = CreateGroupIndices("77.242.16.0""77.242.31.255")
 
       For i As Integer 0 To group6.Length 1
            Dim current 
As String group6(i)
 
           result.Add(current)
 
       Next

        
' ----------- from 80.78.64.0 to 80.78.79.255
        Dim group7 As String() = CreateGroupIndices("80.78.64.0", "80.78.79.255")
        For i As Integer = 0 To group7.Length - 1
            Dim current As String = group7(i)
            result.Add(current)
        Next


        Return result
    End Function

    Private Function CreateFile(filePathName As String) As IO.Stream
        Dim result As IO.Stream
        Try
            result = New IO.FileStream(filePathName, IO.FileMode.Create, IO.FileAccess.Write)
        Catch ex As Exception
            IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(filePathName))
            result = New IO.FileStream(filePathName, IO.FileMode.Create, IO.FileAccess.Write)
        End Try
        Return result
    End Function

End Class 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد خانة تعديل فقط عامود واحد من الجدول مجـ متعلم ـرد 7 175 23-10-21, 02:47 AM
آخر رد: ابراهيم ايبو
  ممكن مساعدة في فك تشفير الرابط crazykinko 7 583 22-10-21, 12:53 AM
آخر رد: crazykinko
  ممكن مساعدة بخصوص كويري معين حدتت به اخطاء Alanwalker 9 804 21-10-21, 01:27 PM
آخر رد: mahmoud_f
  [ تمّ الحل ] : تعديل على نص المخرجات لأوامر Command AT عبد العزيز البسكري 3 192 20-10-21, 07:24 PM
آخر رد: عبد العزيز البسكري
  [Acces2010] ممكن تعديل الكون بسام محمدغانم 6 271 15-10-21, 04:26 AM
آخر رد: بسام محمدغانم
  ممكن من الاخوه شرح كود فى الvb.net خالد كامل1 1 149 12-10-21, 01:52 PM
آخر رد: Jounior_P
  [سؤال] ممكن عمل الكود فجول بيسك بنفس الطريقة بسام محمدغانم 0 166 07-10-21, 09:12 AM
آخر رد: بسام محمدغانم
  السلام عليكم ممكن اعرف اى سبب المشكلة وحلها ؟ AhmedRamadan 13 669 03-10-21, 08:01 PM
آخر رد: asemshahen5
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 1 317 20-09-21, 10:57 PM
آخر رد: ميدو الفنان
  مساعدة في اعادة ايقونة تشغيل المشروع exe العطر الرايق 2 250 16-09-21, 02:50 AM
آخر رد: العطر الرايق

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


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