Database Search

TechHome

• Activate IE Tab Via URL
• Detect Version of Javascript
• Get DocumentMode of IE
• Get Price of Ebay Item
• Hotmail Login
• Internet Explorer Refresh Current Instance
• List Movies in Netflix Queue
• Quickly display HTML text as HTML
• Retrieve Date and Time From Time Server Webpage
• Search Craigslist
• Select Option from Drop Down List Box
• Selecting a Tab on a Webpage

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Hotmail Login

 Keywords: Hotmail Live Login 

Hotmail_Login = "soandso@hotmail.com"
Hotmail_Password = "secret"


; Login to Hotmail
msie = ObjectCreate("InternetExplorer.Application")
msie.Visible = @TRUE
msie.Navigate("http://login.live.com/")
While msie.busy || msie.readystate == 1
      TimeDelay(0.5)
EndWhile
InputCollection = msie.document.GetElementsByTagName("INPUT")
ForEach Input In InputCollection
   Input.style.border = ".25mm solid red"
   aaa = Input.getAttribute("name")
   If Input.getAttribute("name") == "login" Then input.value = Hotmail_Login
   If Input.getAttribute("name") == "passwd" Then input.value = Hotmail_Password
   If Input.getAttribute("type") == "checkbox" Then input.checked = 0
   If Input.getAttribute("type") == "submit" Then
      input.click
   Break
   EndIf
   Input.style.border = ".25mm solid black"
Next

; Wait for page to load
While msie.busy || msie.readystate == 1
      TimeDelay(0.5)
EndWhile

; Locate and click on Mail link
LinksCollection = msie.document.links
ForEach link In LinksCollection
   link.style.border = ".25mm solid red"
   Link_Name = StrTrim(link.innertext)
   If Link_Name == "Mail" Then
      Link.click
   Break
   EndIf
Next

; Wait for page to load
While msie.busy || msie.readystate == 1
      TimeDelay(0.5)
EndWhile

Article ID:   W18140

Filename:   Hotmail Login.txt

File Created: 2010:09:20:10:40:32

Last Updated: 2010:09:20:10:40:32