Interacting with the web using WebRobot v1.0

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
		System.EventArgs) Handles MyBase.Load
    Dim wrobot As New foxtrot.xray.WebRobot
    wrobot.Base = "http://www.yousendit.com/"
    wrobot.LoadPage("/")
    'getting file upload form from page
    Dim wform As foxtrot.xray.Form = wrobot.GetFormByName("tform")
    wform.AddField("text", "rcpt")
    wform.AddField("file", "fname")
    wform.AddField("hidden", "rurl", _
	"http://www.yousendit.com/transfer.php?action=status")
    'creating an Open File Dialog to choose file to upload
    Dim fopendialog As New System.Windows.Forms.OpenFileDialog
    fopendialog.CheckFileExists = True
    If fopendialog.ShowDialog() = DialogResult.OK Then
        'open file for reading
        Dim fstream As New System.IO.FileStream(fopendialog.FileName, _ 
		IO.FileMode.Open)
	'temporary buffer to store contents of file
        Dim bytFile(fstream.Length - 1) As Byte 
        'read in the file
	fstream.Read(bytFile, 0, fstream.Length) 
        'the contents of the file to be uploaded to the server
        Dim mstream As New System.IO.MemoryStream(bytFile)
        'getting email field by name from form
        Dim wemail As foxtrot.xray.Input = wform.GetFieldByName("rcpt")
        'getting file upload field from form
        Dim wfile As foxtrot.xray.Input = wform.GetFieldByName("fname") 
	'set your recipient's email here
        wemail.InputValue = "[email protected]"
        'assign contents of file to the form field
        wfile.InputValue = mstream 
        'assign filename to be sent
        wfile.InputFileName = fopendialog.FileName 
        Dim progressid As String
        'regular expression to find the PROGRESS_ID 
        'variable in the HTML source
        Dim regex As New System.Text.RegularExpressions.Regex_
		("var\sPROGRESS_ID\s=\s""(?<progid>\d+)"";")
        If (regex.IsMatch(wrobot.HTMLSource) = True) Then
            progressid = regex.Match(wrobot.HTMLSource).Result("${progid}")
            'modifying the form action
            wform.FormAction = wform.FormAction & "/" & progressid 
            wrobot.SubmitForm(wform) 'submit form
            MessageBox.Show("File uploaded successfully")
        Else
            MessageBox.Show("YouSendIt PROGRESS_ID variable not found, _
		cannot continue with upload!")
        End If
    End If
End Sub