Library tutorials & articles
Interacting with the web using WebRobot v1.0
By Fernando Sanchez, published on 17 May 2006
Logging in to MySpace
Let's start with a simple function that logs into MySpace and returns the HTML source of the page that you are redirected to right after login. We will be using the
WebRobot component to simplify our work.
The function creates a new instance of the foxtrot.xray.WebRobot class, fetches the root page of the site, and then it starts looking for a form. The line:
retrieves the form named "theForm" into a foxtrot.xray.Form object. This object allows us to manipulate the form, set values, and even submit the form when we are ready.
The next two lines, use the GetFieldByName method to obtain a form field object, which we will manipulate later:
We set the value of each field in the next two lines, by assigning values to the InputValue property of the input objects:
Finally, we submit the form, by using the SubmitForm metod of the foxtrot.xray.WebRobot class, and return the HTML source of the page fetched after the form was submitted.
Easy, No?
Public Function myspacelogin(ByVal email As String, ByVal passwd As _
String) As String
Dim wrobot As New foxtrot.xray.WebRobot()
wrobot.Base = "http://www.myspace.com"
wrobot.LoadPage("/")
Dim wform As foxtrot.xray.Form = wrobot.GetFormByName("theForm")
Dim wemail As foxtrot.xray.Input = wform.GetFieldByName("email")
Dim wpwd As foxtrot.xray.Input = wform.GetFieldByName("password")
wemail.InputValue = email
wpwd.InputValue = passwd
wrobot.SubmitForm(wform)
Return wrobot.HTMLSource
End Function
The function creates a new instance of the foxtrot.xray.WebRobot class, fetches the root page of the site, and then it starts looking for a form. The line:
Dim wform As foxtrot.xray.Form = wrobot.GetFormByName("theForm")
retrieves the form named "theForm" into a foxtrot.xray.Form object. This object allows us to manipulate the form, set values, and even submit the form when we are ready.
The next two lines, use the GetFieldByName method to obtain a form field object, which we will manipulate later:
Dim wemail As foxtrot.xray.Input = wform.GetFieldByName("email")
Dim wpwd As foxtrot.xray.Input = wform.GetFieldByName("password")
We set the value of each field in the next two lines, by assigning values to the InputValue property of the input objects:
wemail.InputValue = email
wpwd.InputValue = passwd
Finally, we submit the form, by using the SubmitForm metod of the foxtrot.xray.WebRobot class, and return the HTML source of the page fetched after the form was submitted.
Easy, No?
Related articles
Related discussion
-
How to write the category attribut in a class dynamically
by converter2009 (1 replies)
-
VB.NET: Hide and show table using radio buttons
by converter2009 (1 replies)
-
VB.Net Button Problem
by pysdex (0 replies)
-
Unable to access AxInterop.AcoPdflib.dll on 64 bit OS
by Shaila14041981 (0 replies)
-
Very Urgent regarding deleting the images from a folder
by Nanosteps (6 replies)
Related podcasts
-
xpert to Expert: Inside Concurrent Basic (CB)
"Concurrent Basic extends Visual Basic with stylish asynchronous concurrency constructs derived from the join calculus. Our design advances earlier MSRC work on Polyphonic C#, Comega and the Joins Library. Unlike its C# based predecessors, CB adopts a simple event-like syntax familiar to VB progr...
This is a Very Good Example.I thin its very usefull to me.
but the problem is when i try this this not work properly error occured at this line "Dim wrobot As New foxtrot.xray.WebRobot()"
it displayes "File or Assembly name System,or one of its dependancies was not found."
Please answer to me.
This thread is for discussions of Interacting with the web using WebRobot v1.0.