[محمد ايمن]

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

PHP كود :

Dim list As New List(Of String)
        For i = 1 To 3
            list.Add(Int((9 - 111 + 1) * Rnd() + 111))
        Next
        Dim r As String = String.Join(".", list)
        TextBox1.Text = r
        Dim Hussaien As New Random
        Dim RandomStrig As String = ""
        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) 


النوتج بططلع فا الListBox1 ان عيز اخلي مثلن لو كتبت فا tixtpox1اي حاجه تكون جمب الارقام الي بططلع فل ListBox1
يعني مثلن لو كتبت فل tixtpox1 رقم8080 يكون جمب كل ال ارقام الي اتولدت فلب ListBox1يرت تكون وصلتكو الفكره وشكران مقدمن

[معاند الحظ]

وعليك السلام ورحمة الله وبركاته

وجدت الجواب على موقع msdn هنا : social.msdn.microsoft

تفضل جرب الكود التالي  

كود :

 Private _random As Random = New Random()

   Public Function GetRandomIp() As String
       Return String.Format("{0}.{1}.{2}.{3}", _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255))
   End Function

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim ips = New List(Of String)()

       For i As Integer = 0 To 10 - 1
           ips.Add(GetRandomIp())
       Next

       For Each ip In ips
           ListBox1.Items.Add(ip & ":" & TextBox1.Text)
       Next

   End Sub

[محمد ايمن]

(07-03-20, 03:42 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته

وجدت الجواب على موقع msdn هنا : social.msdn.microsoft

تفضل جرب الكود التالي  

كود :

 Private _random As Random = New Random()

   Public Function GetRandomIp() As String
       Return String.Format("{0}.{1}.{2}.{3}", _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255))
   End Function

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim ips = New List(Of String)()

       For i As Integer = 0 To 10 - 1
           ips.Add(GetRandomIp())
       Next

       For Each ip In ips
           ListBox1.Items.Add(ip & ":" & TextBox1.Text)
       Next

   End Sub

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

[معاند الحظ]

ضع الكود الموجود في حدث الضغط على الزر داخل التايمر

[محمد ايمن]

(07-03-20, 05:53 AM)معاند الحظ كتب : ضع الكود الموجود في حدث الضغط على الزر داخل التايمر

اسف بس ولله مش فاهم ممكن حضرتك توضح اكتر

[معاند الحظ]

هذا الكود ضعه داخل التايمر

كود :

Dim ips = New List(Of String)()

      For i As Integer = 0 To 10 - 1
          ips.Add(GetRandomIp())
      Next

      For Each ip In ips
          ListBox1.Items.Add(ip & ":" & TextBox1.Text)
      Next

[محمد ايمن]

(07-03-20, 06:18 AM)معاند الحظ كتب : هذا الكود ضعه داخل التايمر

كود :

Dim ips = New List(Of String)()

      For i As Integer = 0 To 10 - 1
          ips.Add(GetRandomIp())
      Next

      For Each ip In ips
          ListBox1.Items.Add(ip & ":" & TextBox1.Text)
      Next

مشكور