write into a field on a web page

[scottian]

Please someone help. I want a macro to write into a field on a web page. The page is a login page with two fields; Username and Password. But it wont put the username or password into the page fields.



Sub Main
dim objIE as Object, objApp as Object
Set objApp = CreateObject("Shell.Application")
for i = 0 to 25
strName = ""
On Error Resume Next
strName = objApp.Windows(i).document.url
if InStr(strName,"MySite.co.uk") then
set objIE = objApp.Windows(i)
exit for
end If
next
objIE.Document.All(Username)= "MyPassword"
if objIE is nothing then
msgbox("IE window not found")
else
objIE.Document.links(5).click
end if
End Sub

Ambition..........If you dont use it, you wont lose it

 

[blckngldhwk]

Define your Username and Passwords as a string and then use those as the values.

dim objIE as Object, objApp as Object
   [b]UserName = "David"
     Password = "WordPass"[/b]    
    Set objApp = CreateObject("Shell.Application")
    for i = 0 to 25
        strName = ""
        On Error Resume Next
        strName = objApp.Windows(i).document.url
        if InStr(strName,"MySite.co.uk") then
            set objIE = objApp.Windows(i)
            exit for
        end If
    next
  [b]objIE.Document.All(Username)= UserName
  objIE.Document.All(Password) = Password[/b] 
    if objIE is nothing then
        msgbox("IE window not found")
    else
        objIE.Document.links(5).click
    end if