Public Function im_login(ByVal pageUrl As String) As String
        Dim response As System.Net.WebResponse = Nothing
 
        Try
            '' Setup our Web request
            Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(pageUrl)
 
 
            '' Retrieve data from request
            response = request.GetResponse()
 
            Dim s As String
            Dim streamReceive As System.IO.Stream = response.GetResponseStream()
            Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("utf-8")
            Dim streamRead As System.IO.StreamReader = New System.IO.StreamReader(streamReceive, encoding)
            im_cookie = New CookieContainer
 
            If Not response.Headers.AllKeys.Contains("Set-Cookie") Then
                MsgBox("Login error, please check your account details", MsgBoxStyle.ApplicationModal)
                Invoke(inv2, Label2, "loginerr")
                Return " "
                Exit Function
            End If
            s = response.Headers.Item("Set-Cookie")
            Dim cookie As New Cookie
            cookie.Domain = ".imageshack.us"
            cookie.Path = "/"
            Dim temp As String = s.Substring(s.IndexOf("myid") + 5)
            Dim id As String = temp.Substring(0, temp.IndexOf(";"))
            cookie.Name = "myid"
            cookie.Value = id
            im_cookie.Add(cookie)
 
            cookie = New Cookie
            cookie.Domain = ".imageshack.us"
            cookie.Path = "/"
 
            temp = s.Substring(s.IndexOf("myimages") + 9)
            myimages = temp.Substring(0, temp.IndexOf(";"))
            cookie.Name = "myimages"
            cookie.Value = myimages
            im_cookie.Add(cookie)
 
            cookie = New Cookie
            cookie.Domain = ".imageshack.us"
            cookie.Path = "/"
 
            temp = s.Substring(s.IndexOf("isUSER") + 7)
            Dim isuser As String = temp.Substring(0, temp.IndexOf(";"))
            cookie.Name = "isUSER"
            cookie.Value = isuser
            im_cookie.Add(cookie)
 
 
 
 
 
            'mycookie.Add(c)
 
 
            Try
 
                Dim temp1 As String = s.Substring(s.IndexOf("isUSER") + 7)
                Dim us As String = temp1.Substring(0, temp1.IndexOf(";"))
                Invoke(inv2, Label2, "info" + us)
            Catch ex As Exception
 
            End Try
 
 
 
            Dim sr As String = streamRead.ReadToEnd()
 
            If sr = "OK" Then
                Invoke(inv2, Label2, "loggdin")
            Else : Invoke(inv2, Label2, "loginerr")
                MsgBox("There was an error, Please check your login details!", MsgBoxStyle.ApplicationModal)
 
            End If
            '' return the retrieved HTML
            Return streamRead.ReadToEnd()
 
 
 
 
 
        Catch ex As Exception
            log("HttpPage: " + ex.Message)
            Invoke(inv2, Label2, "loginerr")
            MsgBox("Connection Problem : " & vbCrLf + ex.Message, MsgBoxStyle.ApplicationModal)
            thread2.Abort()
        Finally
            ''Check if exists, then close the response.
            If Not response Is Nothing Then
                response.Close()
            End If
 
        End Try
        Return " "
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.ritani.com/salespersons/login")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
        If WebBrowser1.Url.AbsoluteUri = "http://www.ritani.com/salespersons/login" Then
            WebBrowser1.Document.GetElementById("SalespersonEmail").SetAttribute("Value", "myCoolEmail@myCoolWebsite.com")
            WebBrowser1.Document.GetElementById("SalespersonPassword").SetAttribute("Value", "myCoolPassword")
            WebBrowser1.Document.Forms(1).InvokeMember("submit")
        End If
 
    End Sub

	<div class="module"> 
		<h2>Product Search</h2> 
		<form action="/products/search" method="post"> 
			<div> 
				<input name="data[Product][searchterm]"  size="25" value="" type="text" id="ProductSearchterm" />			</div> 
			<div> 
				<input type="submit" value="Search" />			</div> 
		</form> 
	</div>

            Case Is = "http://www.ritani.com/products/search"
                Me.wbLookup.Document.GetElementById("ProductSearchterm").SetAttribute("Value", Me.strStyle$)
                Me.wbLookup.Document.Forms(1).InvokeMember("Search")

	<div class="module"> 
		<h2>Product Search</h2> 
		<form action="/products/search" method="post"> 
			<div> 
				<input name="data[Product][searchterm]"  size="25" value="" type="text" id="ProductSearchterm" />			</div> 
			<div> 
				<input type="submit" value="Search" />			</div> 
		</form> 
	</div> 
 
 
	<h2>Product Search</h2> 
 
<form method="post" action="/products/search" > 
	<div> 
		<label for="ProductSearchterm">Enter search terms</label>		<input name="data[Product][searchterm]"  size="40" value="" type="text" id="ProductSearchterm" />	</div> 
	<div> 
		<input type="submit" value="Search" />	</div> 
</form>