Each web page is a different world ...
to your page (www.developersdex.com) for example:

Sub developersdex_log()
'senza riferimenti ad altre librerie
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
Const READYSTATE_COMPLETE As Long = 4
Const myURL As String =
"http://www.developersdex.com/login.asp?refer=editprofile"

myIE.navigate myURL
myIE.Visible = True

Do While myIE.Busy Or myIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop
'scrivi la mail
myIE.document.all("Email").Value = "LogName" '<<
'scrivi la password
myIE.document.all("Password").Value = "YourPassword" '<<
'esegue l'accesso
myIE.document.all("Image1").Click

Do While myIE.Busy Or myIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop

End Sub



Sub developersdex_log_with_references()
'riferimenti a:
'"Microsoft Internet Controls"
'"Microsoft HTML Object Library"

Dim myIE As New InternetExplorer
Dim myDoc As HTMLDocument
Const myURL As String =
"http://www.developersdex.com/login.asp?refer=editprofile"


myIE.navigate myURL
myIE.Visible = True

Do While myIE.Busy Or myIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop

Set myDoc = myIE.document

With myDoc
'scrivi la mail
..all("Email").Value = "LogName" '<<
'scrivi la password
..all("Password").Value = "YourPassword" '<<
'esegue l'accesso
..all("image1").Click
End With

Do While myIE.Busy Or myIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop

End Sub

regards
r

--

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/...ternative.html


"jay dean" wrote:


I don't have a web page.. all I am trying to do is looking for a macro
and assign it to a form control that will open a web page like
"www.developersdex.com" in a standard web browser.

Also, if the site has a "username" and "password", can I include it in
the macro so that it automatically logs me in?

Jay


*** Sent via Developersdex http://www.developersdex.com ***