[kslawy]

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

أضف أداة BackgroundWorker للـ Form واستخدم الكود التالي :

كود :

Imports System.Text

Public Class Form1
    Dim StrHtml As String = ""


    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/u/90110249/tesr.txt")
        Dim res As System.Net.HttpWebResponse = req.GetResponse
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(res.GetResponseStream, Encoding.Default)
        StrHtml = sr.ReadToEnd()
    End Sub


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


    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        TextBox1.Text = StrHtml
    End Sub


End Class

****
***
**
*