(09-02-22, 08:17 PM)sascoxat كتب : السلام عليكم ورحمة الله وبركاته
عندما اقوم باسترداد نص من ملف علي الانترنت في listbox اواجه هذه المشكلة

الكود اللى استعملته

كود :

   Dim txt As String = "https://pastebin.com/raw/GsRqBC3N"
       Dim WC As WebClient = New WebClient()
       Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
       Dim STR As String = Read.ReadToEnd
       listbox1.Items.Add(STR)

(10-02-22, 01:57 AM)asmarsou كتب :

(09-02-22, 08:17 PM)sascoxat كتب : السلام عليكم ورحمة الله وبركاته
عندما اقوم باسترداد نص من ملف علي الانترنت في listbox اواجه هذه المشكلة

الكود اللى استعملته

كود :

   Dim txt As String = "https://pastebin.com/raw/GsRqBC3N"
       Dim WC As WebClient = New WebClient()
       Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
       Dim STR As String = Read.ReadToEnd
       listbox1.Items.Add(STR)

وعليكم السلام و رحمة الله
غير اداة التكست بوكس باداة ريتش تاكست بوكس و غير السطر الاخير من الكود بهذا


 RichTextBox1.Text = STR

(10-02-22, 07:38 AM)سعود كتب :

---

PHP كود :

Imports System.Net
Public Class Form1
    Private Sub g(url As String)
        Using wc As New WebClient
            Dim html As String = wc.DownloadString(url)
            For Each h As String In html.Split(vbNewLine)
                ListBox1.Invoke(Sub() ListBox1.Items.Add(h))
            Next
            Button1.Invoke(Sub() Button1.Enabled = True)
            Button1.Invoke(Sub() Button1.Text = "ok")
        End Using
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim th As New Threading.Thread(AddressOf g)
        If th.IsAlive = False Then
            Button1.Enabled = False
            Button1.Text = "wait..."
            th.Start("https://pastebin.com/raw/GsRqBC3N")
        End If
    End Sub
End Class