How do I build a VB10.0 application by fetching data from an external webpage?

Question

1.00/5 (3 votes)

See more:

I want to fetch the integer data (say, 5) from the string Current Sch Rev No 5 of a webpage NERLDC (http://www.nerldc.org/Default.aspx) in a regular interval of 10 Sec. for comparing its changed value (say, 5) to its preceded value (say, 4, which was shown 10 Sec. back) to obtain subsequent changes in my VB10.0 application output, for example, reflecting the Current Status (say, Value Changed or Value Unchanged) in the application.

Please, can anyone write the solution, how to do that?

N.B.: (1)The transition of integer data (say, 5) is only visible using browsers IE or Mozilla Firefox

(2)This application is not linked to any database, its only for real-time application.

Posted 16-Jul-14 5:44am

Sandipans

Updated 17-Jul-14 21:35pm

v2

Add a Solution

Comments

[no name] 16-Jul-14 11:56am

http://www.bing.com/search?q=vb.net+page+scraping

Sergey Alexandrovich Kryukov 16-Jul-14 12:45pm

Bad idea, about 15 sec interval. Do you really want to create so much of dirt on the client's system?
—SA

Sandipans 18-Jul-14 2:28am

It is to compare the values of the said string/integer in a loop, to the latest value and its preceded value for a doing calculation to specific output, that will change only current status of the running visual basic application. It is not intended to store output through database.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

-Dr_X- · Answer 1 · 2014-07-17T09:30:00

Maybe something like this.

Dim http As HttpWebRequest = CType(WebRequest.Create("http://www.nerldc.org/Default.aspx", HttpWebRequest)
http.Timeout = 10000 ' 10 secs

http.UserAgent = "NERLDC"
Dim hwr As HttpWebResponse = CType(http.GetResponse, HttpWebResponse)
Dim enc As Encoding = Encoding.GetEncoding(1252)
Dim rdr as StreamReader = New StreamReader(hwr.GetResponseStream, enc)


Do
						
   Dim line As String = rdr.ReadLine
   If line IsNot Nothing Then
       'Do what you need to do
       
      'if it's a csv file, use the line below
       'Dim s() As String = line.Split(",")	
   End If
Loop Until line Is Nothing