VBScript to login into Gmail account

By
WScript.Quit Main

Function Main
  Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
  IE.Visible = True
  Resolution = Screen_Resolution()
  Width =  Resolution(0)
  Hight=  Resolution(1)
  IE.Top = 0
  IE.Left = 0
  IE.Width = Width
  IE.Height = Hight
  IE.Navigate "http://www.google.com/mail"
  Wait IE
  With IE.Document
    .getElementByID("Email").value = "<Username>"
    .getElementByID("Passwd").value = "<Password>"
    .getElementByID("gaia_loginform").submit
  End With
End Function

Sub Wait(IE)
  Do
    WScript.Sleep 500
  Loop While IE.ReadyState < 4 And IE.Busy
  Do
    WScript.Sleep 500
  Loop While IE.ReadyState < 4 And IE.Busy
End Sub

Sub IE_OnQuit
  On Error Resume Next
  WScript.StdErr.WriteLine "IE closed before script finished."
  WScript.Quit
End Sub

Function Screen_Resolution()
Dim MyArray(1)
    Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0)
    For Each objItem in colItems
        intHorizontal = objItem.ScreenWidth
        intVertical = objItem.ScreenHeight
    Next
MyArray(0) = intHorizontal
MyArray(1) = intVertical
Screen_Resolution = MyArray

End Function

Comments

Unknown said…
Can any one help me in the following .......

How find the value like(Email, passwd, gaia_loginform") in the above script.
and

How to write a script a to click on login button, which should work in all in login forms..?
May 3, 2014 at 2:27 PM
Amol Kanthe said…
You will get these values from source code of the webpage.
May 22, 2014 at 2:59 PM
Unknown said…
Hi Amol
To get the source code to a notepad, is there any HTML code
December 13, 2015 at 9:17 PM
Amol Kanthe said…
You can directly copy it to the Notepad.
May 9, 2016 at 3:00 AM
Anonymous said…
Old script not working with new gmail account

Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "https://accounts.google.com/signin/v2/identifier?flowName=GlifWebSignIn&flowEntry=ServiceLogin#"
IE.Visible = True
While IE.Busy
WScript.Sleep 50
Wend
Set ipf = IE.document.all.identifier
ipf.Value = "username"
WScript.Sleep 5000
Set ipf = IE.document.all.password
ipf.Value = "password"
end if
June 29, 2017 at 2:47 PM
Amol Kanthe said…
Yes. The script needs to be updated. Earlier the username and password textboxes were on the same page, now we need to enter username and password on different pages. The basic script will be the same just need to update this change.
June 30, 2017 at 9:38 AM
Rahul dewan said…
how to open gmail in google chrome instead of internet explorer
July 26, 2020 at 4:06 PM
Post a Comment

Popular Posts

Vibium: The AI-Native Revolution in Test Automation is Here

By
Image
For years, the world of test automation has been on a relentless journey of evolution, constantly seeking more efficient, reliable, and accessible ways to ensure software quality. From the early days of record and playback tools to the rise of code-first frameworks like Selenium , and more recently, modern script-driven tools such as Playwright and Cypress , each generation has brought advancements. Yet, persistent challenges have plagued development and QA teams: brittle selectors that break with minor UI changes, high maintenance overhead for test suites, and long learning curves for testers without extensive coding backgrounds. Now, a new contender has emerged, promising to redefine the landscape: Vibium . Introduced by Jason Huggins , the visionary creator behind both Selenium and Appium, Vibium is an AI-native test automation tool that is poised to be the next big wave in testing. What Exactly is Vibium? Vibium is an emerging AI-native test automation tool designed as a mod...
Read more

AI in QA: Mastering the Future of Testing with Essential Tools

By
Image
The landscape of Quality Assurance (QA) is undergoing a significant transformation. The role of a QA engineer is evolving beyond merely identifying bugs; it now encompasses leveraging Artificial intelligence (AI) to prevent defects, expedite testing processes, and deliver high-quality products at an unprecedented pace. This shift highlights the critical importance of AI-powered tools, which are enabling QA teams to achieve substantial gains in efficiency, accuracy, and test coverage. Embracing AI isn't about replacing human testers, but rather about empowering them. Testers who are proficient with AI will undoubtedly become indispensable, replacing those who do not adapt to these advancements . To help you stay ahead, let's explore some accessible free AI tools that are making waves in the testing domain. Key AI Tools Revolutionizing QA Here are some categories of AI tools that every QA professional should be exploring: 1. Test Case Generation Generating comprehensive and...
Read more

Mastering Selenium Exceptions for Robust Test Automation

By
Image
Test automation with Selenium can sometimes feel like navigating a minefield of errors. Just when you think your script is perfect, an unexpected exception halts execution. But don't fret! Mastering these common runtime issues is a significant step towards boosting your debugging confidence and writing more robust, reliable automated tests. This guide will help you understand, identify, and conquer the most frequent Selenium exceptions, making you a more effective automation engineer. 1. NoSuchElementException The NoSuchElementException is arguably the most common Selenium exception you'll encounter. Thrown When: This exception occurs when an element is not present in the Document Object Model (DOM) . Essentially, Selenium couldn't locate the element you were trying to find using the specified locator strategy. Example: A typical example is driver.findElement(By.id("username")); if the element with the ID "username...
Read more

Mastering Selenium Methods: A Technical Deep Dive

By
Image
Selenium WebDriver is a powerful open-source framework for automating web browsers . It enables developers and testers to interact with web applications programmatically, making it indispensable for tasks ranging from automated testing to web scraping and robotic process automation . By mastering the methods and concepts outlined in this blog post, you can build robust and efficient automation solutions for a wide range of testing and automation needs. This blog post will delve into the key methods of Selenium WebDriver . Core Browser Interactions At its core, Selenium WebDriver enables you to control a web browser just like a real user . It starts with navigating to web pages , followed by managing tabs , handling frames , and finally dealing with alerts and pop-ups . Browser Navigation and Control Command Description Use Case driver.get("url") Open a webpage Initial navigation ...
Read more

File System Object (FSO) - Working with Folders

By
'Creating a folder Option Explicit Dim objFSO , objFolder , strDirectory strDirectory = "D:\logs" Set objFSo = CreateObject ( "Scripting.FileSystemObject" ) Set objFolder = objFSO.CreateFolder ( strDirectory ) 'Deleting a folder Option Explicit Dim objFSO , strDirectory strDirectory = "D:\logs" Set objFSo = CreateObject ( "Scripting.FileSystemObject" ) objFSO.DeleteFolder ( strDirectory ) 'Copying folders -- > Will copy all folders within the specified folder to the destination folder Option Explicit Dim objFSO Set objFSo = CreateObject ( "Scripting.FileSystemObject" ) objFSO.CopyFolder "D:\Logs" , "C:\Logs" , True 'Use False instead of True, if you want to copy entire folder with its subfolders 'Checking wheather the folder exist or not, if not creating the folder Option Explicit Dim objFSO , objFolder , strDirectory str...
Read more