[محمد ايمن]

السلام عليكم ورحمت الله وبركته 
هيداء كود توليد ارقام عشواءيه
الادوات
2textbox

1bouton
الكود

PHP كود :

Public Class Form1
   Dim rand As New Random
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox1.Text = GetNum()
   End Sub
   Function GetNum() As String
       Dim t As String = ""
       Do Until t.Length = 9
           t &= rand.Next(0, 10)
       Loop
       Return t
   End Function
End Class 


وهيدا كود صنع الipالعشؤيه

PHP كود :

Public Class Form1

    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(ByVal sender As System.Object, ByVal 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
End Class 


يرت لو حد معاه كود ارقام وحروف عشؤايه يفدنه بيه وشكران لحضرتكو لقرات الموضوع