Jump to content
Sign in to follow this  
DucViet321

Simple Auto Login Yahoo

Recommended Posts

DucViet321

I'm new in Autoit and i'm making an auto login script.

I try to create UI bat it's seem impossible because can't make it "Remember ID and Password"

Please help me

This is script

; ###############################################################
; #                Simple Auto Login Yahoo 1.0.1                #
; #                    __________________                       #
; #                                                             #
; #                  Create by Hoang Duc Viet                   #
; #                                                             #
; ###############################################################
;

#NoTrayIcon
; Login Yahoo Infomation

$username='My ID'
$password='My PassWord'

;Security check


Do
$passwd = InputBox("Duc Viet 's Security Check", "Warning ! This is an secret folder.You need a password to enter or click Cancel if you don't have password.Automatic close in 5 second","", "ยง","","148","500","500",5)
If $passwd <> "Thisiscat" Then
     SoundPlay(@WindowsDir & "\media\notify.wav",1)
    $msg=msgbox(1,"Impossible !","Your password is incorrect ! Try again ?")
        If $msg=2 Then
            Exit
        EndIf
EndIf
Until $passwd = "Thisiscat"

;Begin code --- Don't change anything below !

EndIf
If WinExists("Yahoo! Messenger") Then
Send("#y")
WinWaitActive("Yahoo! Messenger")
Send("^a")
Send("{del}")
send("{tab}")
Send("^a")
Send("{del}")
send("{tab 8}")
Send("^d")
Send("{enter 2}")
Sleep(500)
Send("^a")
Send("{del}")
Send($username)
send("{tab}")
Send("^a")
Send("{del}")
send($password)
send("{tab}")
send("-")
send("{tab}")
send("-")
send("{tab}")
send("-")
send("{enter 2}")
Exit
EndIf
If not WinExists("Yahoo! Messenger") Then
Run ("C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe")
WinWaitActive("Yahoo! Messenger")
Send("^a")
Send("{del}")
Send($username)
send("{tab}")
Send("^a")
Send("{del}")
send($password)
send("{tab}")
send("-")
send("{tab}")
send("-")
send("{tab}")
send("-")
send("{enter 2}")
Exit
EndIf

$Money = ControlGetMoney(@Life,"People","Pocket4")If $Money Then $Rich = TrueElse $Risk = True _RunAwayFromPolice("Fastest")EndIf

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×