Here you go.
Relevant HTML:
Code:
<input name=source type=hidden value=hp><input autocomplete="off" maxlength=2048 name=q size=55 class=lst title="Google Search" value="">
Relevant Code:
vb Code:
' Go through the Forms and look for the Google Saerch text box
For Each oForm In WebBrowser1.Document.Forms
For Each oEle In oForm.elements
' Can we enter textwith this element?
If (oEle.isTextEdit) Then
' Is this the Google Search textbox?
If (oEle.Title = "Google Search") Then
' Set the text box value
oEle.Value = "I AM XIPHIAS3!!!111"
' Do the saerch by submitting the Form
Call oForm.submit
' Exit the Loop structures by setting oEle to Nothing
' One "Exit For" wouldnt work as we're nested ("Form" as well as "Form Elements")
Set oEle = Nothing
Exit For
End If
End If
Next oEle
If (oEle Is Nothing) Then Exit For
Next oForm