VisualGuy,
What you need to do is look at the elements on the page by either their name or id. Then send that element/object a value of username and password for each respectively. Then once you have sent those, do a fire event to submit the page.
Below I have enclosed a snippet of my Send Html Function which enumerates through the elements on a webpage looking for either the "I" ID or "N" for the name and then passes a value to that field, textarea, or radio/checkbox.
So if my html tag was:
<INPUT TYPE="password" Name="ACCESS1" ID="ACCESS2" Value="">
I would call the following to look at this tag
by ID:
SendHInfo("ACCESS2", "INPUT", "I", "MyPASSWORD"
by NAME:
SendHInfo("ACCESS1", "INPUT", "N", "MyPASSWORD"
The above would place the text "MyPASSWORD" into the above tagline element.
To use the following, make sure to get ahold of the IE document, so you can reference it.
------------------------------
Private Idoc as HTMLDocument
Set Idoc = IE.Document
------------------------------
Then call the function:
------------------------------
Public Function SendHInfo(stFIELD, stTAG, stID_NAME, stVALUE)
On Error Resume Next
' Ex: SendHInput("keyword", "input", "N", value)
' It will locate the type of field (stTAG) by calling
' that collection of objects from that page. It will then loop
' Through all of those objects looking at the ID (OR) Name properties
' as defined by (stId_Name) and verify that the destination object
' equals (stField).
If UCase(stID_NAME) = "I" Or UCase(stID_NAME) = "N" Then
Set colInputElements = iDoc.getElementsByTagName(stTAG)
If UCase(stID_NAME) = "I" Then ' Look at ID's
For Each objelement In colInputElements
If InStr(1, UCase(objelement.Id), UCase(stFIELD)) > 0 Then
' Found Field Set the Value
If UCase(objelement.Type) = "CHECKBOX" Or UCase(objelement.Type) = "RADIO" Then
If stVALUE = -1 Or stVALUE = 0 Then
' Set specific Value
If UCase(objelement.Checked) = "TRUE" Then
If stVALUE = 0 Then
objelement.Checked = 0
End If
Exit Function
End If
If UCase(objelement.Checked) = "FALSE" Then
If stVALUE = -1 Then
objelement.Checked = "True"
End If
Exit Function
End If
Exit Function
End If
' Swap Checked Value
If objelement.Checked = "True" Then
objelement.Checked = 0
Exit Function
Else
objelement.Checked = "True"
Exit Function
End If
Else
' Set Input Value (text area, text box, select ect...)
objelement.Value = stVALUE
End If
Exit Function
End If
Next
End If
If UCase(stID_NAME) = "N" Then ' Look at NAMES
For Each objelement In colInputElements
If InStr(1, UCase(objelement.Name), UCase(stFIELD)) > 0 Then
' Found Field Set the Value
If UCase(objelement.Type) = "CHECKBOX" Or UCase(objelement.Type) = "RADIO" Then
If stVALUE = -1 Or stVALUE = 0 Then
' Set specific Value
If UCase(objelement.Checked) = "TRUE" Then
If stVALUE = 0 Then
objelement.Checked = 0
End If
Exit Function
End If
If UCase(objelement.Checked) = "FALSE" Then
If stVALUE = -1 Then
objelement.Checked = "True"
End If
Exit Function
End If
Exit Function
End If
' Swap Checked Value
If objelement.Checked = "True" Then
objelement.Checked = 0
Exit Function
Else
objelement.Checked = "True"
Exit Function
End If
Else
' Set Input Value (text area, text box, select ect...)
objelement.Value = stVALUE
End If
Exit For
End If
Next
End If
End If
End Function
------------------------------
Rock6431.
