Here is my form lap and i want to submit data of this form to another form ("http://www.lapkokcasuals.net/jobs/Apply.aspx") without going their how can i do it ihave written these code below data is submitted but where it is goin i dont know.please help me and give some reponses.
Imports System.Object
'Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO.IOException
Imports foxtrot.xray.WebRobot
Imports System.Type
Imports System.Text
Imports System.Drawing
Imports foxtrot.xray
Imports System.Xml
Imports System.Windows.Forms.TextBox
Public Class lap
Inherits System.Windows.Forms.Form
Public post1 As String
Public Name1 As String
Public Email1 As String
Public phone1 As String
Public address1 As String
Public city1 As String
Public reference1 As String
Public Graduation1 As String
Public UnderGraduation1 As String
Public PostGraduation1 As String
Public Profession1 As String
Public Exp1 As String
'Private articlelist As New System.Collections.Hashtable
Dim wrobot As New foxtrot.xray.WebRobot
Private Sub lap_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
wrobot.Dispose()
End Sub
Private Sub lap_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wrobot.AJAX = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sbmtfield.Click
'Load the main digg page
Me.post1 = post2.Text
Me.Name1 = Name2.Text
Me.Email1 = Email2.Text
Me.phone1 = phone2.Text
Me.address1 = address2.Text
Me.city1 = city2.Text
Me.reference1 = Reference2.Text
Me.Graduation1 = Graduation2.Text
Me.UnderGraduation1 = UnderGraduation2.Text
Me.PostGraduation1 = PostGraduation2.Text
Me.Profession1 = Profession2.Text
Me.Exp1 = Exp2.Text
wrobot.LoadPage("http://www.lapkokcasuals.net/jobs/Apply.aspx")
'Get the login form
Dim Apply As foxtrot.xray.Form = wrobot.GetFormByContainsAction("Apply.aspx")
'Username field
Dim post3 As foxtrot.xray.Input.Hidden = Apply.Fields(0)
''Password field
Dim Name3 As foxtrot.xray.Input.Hidden = Apply.Fields(1)
'Submit button
Dim Email3 As foxtrot.xray.Input.Hidden = Apply.Fields(2)
Dim phone3 As foxtrot.xray.Input.Hidden = Apply.Fields(3)
Dim address3 As foxtrot.xray.Input.Text = Apply.Fields(4)
Dim city3 As foxtrot.xray.Input.TextArea = Apply.Fields(5)
Dim Reference3 As foxtrot.xray.Input.Text = Apply.Fields(6)
Dim UnderGraduation3 As foxtrot.xray.Input.Text = Apply.Fields(7)
Dim Graduation3 As foxtrot.xray.Input.Text = Apply.Fields(8)
Dim PostGraduation3 As foxtrot.xray.Input.TextArea = Apply.Fields(9)
Dim Profession3 As foxtrot.xray.Input.TextArea = Apply.Fields(10)
Dim Exp3 As foxtrot.xray.Input.TextArea = Apply.Fields(11)
Dim sbmtfield As foxtrot.xray.Input.Submit = Apply.Fields(13)
post3.Value = post1
Name3.Value = Name1
Email3.Value = Email1
phone3.Value = phone1
address3.Value = address1
city3.Value = city1
Reference3.Value = reference1
UnderGraduation3.Value = UnderGraduation1
Graduation3.Value = Graduation1
PostGraduation3.Value = PostGraduation1
Profession3.Value = Profession1
Exp3.Value = Exp1
'Simulate a click on the submit button
sbmtfield.Click()
MsgBox("submitted")
End Sub
End Class