دریافت یک متن از اینترنت

[imanx7]

سلام
میخواستم یک متنی رو از اینترت بگیرم و توو تکست باکس فرم نمایش بدم .... لطفا کمکم کنید

تووی VB6 از این کد و کامپوننت استفاده میکردم ولی تووی .Net نمیدونم



Dim Str as String
Str = intet.openUrl("URL")
msgbox str

[imanx7]

یکی جواب منو هم بده -_-

[majidnazari65]

میتونی از این کدها استفاده کنی:
Dim uri As New Uri("http://test.com/test.html")
Dim req As Net.WebRequest = Net.WebRequest.Create(uri)
Dim res As Net.WebResponse = req.GetResponse()
Dim stream As IO.Stream = res.GetResponseStream()
Dim sReader As New IO.StreamReader(stream)
Dim data As String = ""
data = sReader.ReadToEnd
text1.Text = data
sReader.Close()
stream.Close()

[Hossis]

منظورتون دقیقا چیه؟
می خواهید متن کل صفحه وب رو بگیرید یا قسمت خاصی از اون یا اصلا فایل متنی هست نه صفحه؟؟
اگر صفحه وب باشه، می تونید از Webbrowser استفاده کنید و بعد از لود کامل صفحه، کد اچ تی ام ال یا متن خالصش رو بگیرید.
این هم یک مثال (آدرس صفحه رو تغییر بدید)
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WB.Navigate("www.Yoursite.ir")

End Sub

Private Sub WB_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WB.DocumentCompleted
Dim txt, htm As String
htm = WB.DocumentText
txt = WB.Document.Body.InnerText
End Sub