منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(20-06-18, 12:02 AM)HASAN6.0 كتب : [ -> ]

PHP كود :

 Dim address As String = "http://bkqslmanager.com/test.txt"
        Dim client As WebClient = New WebClient()
        Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
        Dim x As New TextBox
        x.Text = reader.ReadToEnd
        Dim sb As New System.Text.StringBuilder
        For Each lineOfText As String In x.Lines
            TextBox1.Text &= lineOfText & vbNewLine
        Next