گرفتن سورس سایت

[MahmoodGH]

سلام

چطوری در دات نت سورس یه صفحه ی اینترنتی (www.barnamenevis.org) رو میشه دریافت کرد ؟؟؟؟ :متفکر:

من تو VB 6.0 با کنترل Inet براحتی این کار رو انجام میدادم ولی اینجا نمیدونم چطوریه :(

[arash020]

سلام

Try
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(TextBox2.Text)
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream( ))
Dim sourcecode As String = sr.ReadToEnd()
TextBox1.Text = sourcecode
Catch ex As Exception
MsgBox(":خطا" & vbNewLine & Err.Description)
End Try
End Sub

TextBox2.Text=آدرس وب
TextBox1.Text= نتیجه(سورس صفحه وب)

[مهرداد صفا]

سلام
یا با استفاده از یک کنترل WebBrowser:

'in the name of god
'اللهم صل علی محمد و آله
Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WebBrowser1.Navigate("www.barnemenevis.org")
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
MsgBox(WebBrowser1.DocumentText)
'or
MsgBox((New System.IO.StreamReader(WebBrowser1.DocumentStream) .ReadToEnd))
End Sub
End Class

[ali reza mansoori 2]

Imports System.Net

Using client = New WebClient()
Dim htmlSource = client.DownloadString("http://www.google.com/")
MsgBox(htmlSource)
End Using