Monday, April 8, 2013

An updated script to change your gmail password to previous ones!

I lost my MotoACTV watch which I loved so much, and as a results I've changed my gmail and other passwords. But I just realized I could do better by installing programs like AndroidLost to maybe find the android watch.

The problem was I couldn't revert back to my previous password so I can install programs remotely on my android via Google Play Store.

So i searched the web and came into this great weblog.

The mentioned code had problems running, so I've changed it a little bit and I am putting it here for you!

look for "You should only edit these values" and change ???? into appropriate values.

save it into an .vbs file and then run
 
%windir%\SysWoW64\cmd.exe
cscript your file name.vbs 


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Declare Variables & Objects
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim oShell
Dim oAutoIt

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Initialise Variables & Objects
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set oShell = WScript.CreateObject("WScript.Shell")
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")

WScript.Echo "This script will reset your google password 100 times so you can use an old password."

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' You should only edit these values
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sUN = "myemail@gmail.com" ' Your Google username (email address)
curPW = "?????????" ' Replace with the Current password to your google account
oldPW = "?????????" ' Replace with the final password you want assigned to the account. The one you want to set the account's password *back to*. 

' If your password has a quote in it ("), then use "" in its place.
' For example, let's say your password was 
' MyPass"word!-55
'
' The proper VBScript way to put that into a variable would look like this
' curPW = "MyPass""word!-55"
'
' See Microsoft's website for more detail

' An easy way to find this is to right click the Chrome shortcut and copy the value in Target.
' Click Start, type Chrome, right click Google Chrome, click Properties, copy *everything* in Target, and put it here.
ChromeEXE = "C:\Users\??????\AppData\Local\Google\Chrome\Application\chrome.exe" ' Where is the Chrome executable? Replace this with its location.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' You should not have to edit anything after this
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Start of Script
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'Some of this code uses the AutoIT com object. See their documentation for more details.

oShell.Run ChromeEXE, 1, False

' Wait for the Notepad window to become active
oAutoIt.WinWaitActive "New Tab - Google Chrome", ""
oAutoIt.Sleep 4000

WScript.Echo "Entering Loop"
' Enter the loop, change the password 99 more times
tCurPw = curPW

    oAutoIt.Send "!d"
    oAutoIt.Sleep 250    
    oAutoIt.Send "https://accounts.google.com/Login{ENTER}"
    oAutoIt.Sleep 5000


For x = 1 To 99
    WScript.Echo "Step " & x
    WScript.Echo "Current PW: " & tCurPw
    tNewPW = curPW & x
    WScript.Echo "Setting the password to: " & tNewPW
    
    GLogin sUN, tCurPw
    GEditPW
    oAutoIt.Send tCurPw & "{TAB} {TAB}"
    oAutoIt.Sleep 250
    oAutoIt.Send tNewPW & "{TAB}"
    oAutoIt.Sleep 250
    oAutoIt.Send tNewPW & "{TAB}"
    oAutoIt.Sleep 250
    oAutoIt.Send "{ENTER}"
    oAutoIt.Sleep 2500
    
    tCurPw = tNewPW

    GLogout
Next 

WScript.Echo "Final Change"
GLogin sUN, tCurPw
GEditPW

oAutoIt.Send tCurPw & "{TAB}"
oAutoIt.Sleep 250
oAutoIt.Send oldPW & "{TAB}"
oAutoIt.Sleep 250
oAutoIt.Send oldPW & "{TAB}"
oAutoIt.Sleep 250
oAutoIt.Send "{ENTER}"
oAutoIt.Send "https://www.google.com/accounts/Logout{ENTER}"
oAutoIt.Sleep 4000
WScript.Echo "Password reset"




WScript.Quit

Function GLogin(un, pw) ' Opens the Google Login page, enters the supplied Username (un) and Password (pw), and presses Enter.
    WScript.Echo "Logging in: " & un & ", " & pw
    'oAutoIt.Send "!d"
    'oAutoIt.Sleep 550    
    'oAutoIt.Send "https://accounts.google.com/Login{ENTER}"
    'oAutoIt.Sleep 4000
    oAutoIt.Send un & "{TAB}"
    oAutoIt.Send pw & "{ENTER}"
    oAutoIt.Sleep 5000

End Function

Function GEditPW() ' Opens the Google Change Password web page
    oAutoIt.Send "!d"
    oAutoIt.Send "!d"
    oAutoIt.Sleep 250
    oAutoIt.Send "https://accounts.google.com/b/0/EditPasswd{ENTER}"
    oAutoIt.Sleep 3000
End Function

Function GLogout() ' Logs out from google. This is necessary for the password change to take effect. Trust me, I tried to do it without logging out. No luck.
    WScript.Echo "Logging out"
    oAutoIt.Send "!d"
    oAutoIt.Send "!d"
    oAutoIt.Sleep 250
    oAutoIt.Send "https://www.google.com/accounts/Logout{ENTER}"
    oAutoIt.Sleep 3000

End Function

Friday, March 29, 2013

My solution for HP Envy 14 Beat Edition overheating and shutdown!

I was having issues with my Envy 14, overheating and then shutting down (in Windows 7).
My temporary solution was to switch to Intel graphics card and never use my dedicated graphic card.
Whenever I switched to my dedicated graphic card (AMD Radeon HD) it would heat up in 20 minutes with great fan noise and eventually shutting down.

I've just discovered if you install newer AMD drivers on top of HP provided ones you can have switchable graphics card and also a working Radeon HD card. Also generally fan noise is greatly reduced.

Here are the links I've used :

Original HP drivers :
http://ftp.hp.com/pub/softpaq/sp50501-51000/sp50656.exe

AMD drivers I've installed on top of that:
http://www2.ati.com/Drivers/mobile/13-1_mobility_vista_win7_win8_64_dd_ccc_whql.exe