How to get html source from url ?

use this code pass url Private Sub getSource(ByVal url As String) On Error Resume Next usysbusy = True lblMsg.Text = "Sending Request......" Application.DoEvents() Dim myRequest As WebRequest = WebRequest.Create(url) lblMsg.Text = "Receving Response......" Application.DoEvents() Dim myResponse As WebResponse = myRequest.GetResponse() lblMsg.Text = "Reading Response......" Application.DoEvents() Dim str As Stream = myResponse.GetResponseStream() Dim mystr As StreamReader = New StreamReader(str) Dim respHTML As String = mystr.ReadToEnd() searchData = TrimAll(respHTML) searchData = TrimAll(Trim(respHTML.Trim(delim.ToCharArray()))) 'searchData = respHTML txtSource.Text = searchData lblMsg.Text = "Saving : " & url Application.DoEvents() Application.DoEvents() myResponse.Close() usysbusy = False End Sub

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

jigar19y ago
it works fine...
0
kavita19y ago
use this code pass url Private Sub getSource(ByVal url As String) On Error Resume Next usysbusy = True lblMsg.Text = "Sending Request......" Application.DoEvents() Dim myRequest As WebRequest = WebRequest.Create(url) lblMsg.Text = "Receving Response......" Application.DoEvents() Dim myResponse As WebResponse = myRequest.GetResponse() lblMsg.Text = "Reading Response......" Application.DoEvents() Dim str As Stream = myResponse.GetResponseStream() Dim mystr As StreamReader = New StreamReader(str) Dim respHTML As String = mystr.ReadToEnd() searchData = TrimAll(respHTML) searchData = TrimAll(Trim(respHTML.Trim(delim.ToCharArray()))) 'searchData = respHTML txtSource.Text = searchData lblMsg.Text = "Saving : " & url Application.DoEvents() Application.DoEvents() myResponse.Close() usysbusy = False End Sub
0