Library tutorials & articles
Interacting with the web using WebRobot v1.0
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
-
Capture a Screen Shot
by LucidMind (0 replies)
-
An Introduction to VB.NET and Database Programming
by bitkisel (13 replies)
-
Click On ComboBox
by militia (0 replies)
-
regarding update progress control using Asp.Net Ajax
by schavlytko (1 replies)
-
Connecting VB.net with VBA of Excel
by GraceGirl (0 replies)
Events coming up
-
Jun
16
Code Generation 2009
Cambridge, United Kingdom
A developer event with a practical focus on helping people get to grips with code generation tools and technologies.
Yes it'll save a plenty of work, thanks .
That looks very nice. It'll save me plenty of work when posting a form instead of hardcoding all the fields in a webrequest! http://www.fixx.be
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.