View Full Version : سوال: گرفتن سورس سایت
MahmoodGH
دوشنبه 15 آبان 1391, 00:24 صبح
سلام
چطوری در دات نت سورس یه صفحه ی اینترنتی (www.barnamenevis.org) رو میشه دریافت کرد ؟؟؟؟ :متفکر:
من تو VB 6.0 با کنترل Inet براحتی این کار رو انجام میدادم ولی اینجا نمیدونم چطوریه :(
arash020
دوشنبه 15 آبان 1391, 01:26 صبح
سلام
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= نتیجه(سورس صفحه وب)
مهرداد صفا
دوشنبه 15 آبان 1391, 15:02 عصر
سلام
یا با استفاده از یک کنترل 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
دوشنبه 15 آبان 1391, 15:53 عصر
Imports System.Net
Using client = New WebClient()
Dim htmlSource = client.DownloadString("http://www.google.com/")
MsgBox(htmlSource)
End Using
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.