Gmail Login

ComSec

Mar 16 2005, 10:56 PM

GMAIL LOGIN

here is a little Gmail login tool...for your desktop

just enter you name and pass and click login

tested by several Specialist Members ... notibly.. kingvandal , serhat , sss ,Terminal , and faceless master

who came up with what they wanted , help and advice ... anyway here is the final tool

there are 2 login options

normal and lite ...depending on your options

HOW TO USE:

Just enter you name as in :comsec

and pass as in :123456

press login

it will login to your gmail account... 1/4 size window

you can Max the window to full screen....

the password uses ****** input so its not revealed to anyone watching you... etc

here is the source

This will also support html lite gmail version

CODE

Option Explicit

Private Sub Command2_Click()

'added error handling here so if Max window, will not cause runtime error due to size issue

On Error Resume Next
Form1.Height = Form1.Height + 5900

'this will browse to the gmail html lite version login

web.Navigate "https://www.google.com/accounts/ServiceLogin?service=mail&passive=true&continue=http%3A%2F%2Fgmail.google.com%2Fgmail%3Fui%3Dhtml%26zy%3Dn"

'complete load then do events

Do Until wb.ReadyState = READYSTATE_COMPLETE

DoEvents
Loop
On Error Resume Next

'this will parse the form and add your inputs

web.Document.Forms(0).email.Value = "" + Text2.Text
web.Document.Forms(0).passwd.Value = "" + Text3.Text
web.Document.Forms(0).submit
End Sub

Private Sub Form_Resize()

On Error Resume Next

'resize as you seem fit to suit your desktop options

Frame1.Width = Form1.Width - 350
Frame2.Width = Form1.Width - 350
web.Width = Form1.Width - 100
web.Height = Form1.Height - 1600

On Error GoTo 0

End Sub

Private Sub Form_Load()

'start up height and masked password box... Serhat beat me to it;)

Form1.Height = Form1.Height
Text3.PasswordChar = "*"

End Sub

Private Sub Command1_Click()
'see command2 comments
On Error Resume Next
Form1.Height = Form1.Height + 5900

'this is the Normal Gmail url... differs from above lite

web.Navigate "https://www.google.com/accounts/ServiceLogin?service=mail&passive=true&continue=http%3A%2F%2Fgmail.google.com%2Fgmail%3Fui%3Dhtml%26zy%3Dl"

Do Until wb.ReadyState = READYSTATE_COMPLETE

DoEvents
Loop
On Error Resume Next
web.Document.Forms(0).email.Value = "" + Text2.Text
web.Document.Forms(0).passwd.Value = "" + Text3.Text
web.Document.Forms(0).submit

End Sub

JaG

Mar 17 2005, 05:00 AM

nice work, thanks for the app and the source always wanted to know how to do this in vb.

sevenvirtues

Mar 17 2005, 10:58 PM

hmm..

i got this.

line: 226
char: 1
error: 'is_browser_supporter' is undefined
URL: https://www.google.com/accounts/ServiceLogi...3Dhtml%26zy%3Dn

would you like running the script.....

i clicked yes..

and it brings me to the google login page only.
both login and login lite

***

im on firefox 1.0.1
funny thing is the error dialogbox title is:

Internet Explorer Script Error

***

ComSec

Mar 17 2005, 11:38 PM

i take it you have firefox as your default browser ? ... it uses IE web browser control and not supported for mozilla engine that firefox uses

try setting you default browser to IE... see if that works

cheers

Chunks

Mar 18 2005, 12:20 AM

very cool custom made app guys.. works like a charm

maybe I should start using my gmail more often!

IcedOut3E

Mar 26 2005, 05:42 PM

This looks pretty cool, I have one question though. Whats the different between the gmail lite and the gmail regular. I can see that they are two different urls but what exactly is the difference?

Thank you for your programming efforts.

Peace.

EDIT:

Oh BTW, I have my browser set default to Mozilla FireFox and this works just fine for me. ?

ComSec

Mar 26 2005, 06:47 PM

QUOTE(IcedOut3E @ Mar 26 2005, 05:42 PM)

This looks pretty cool, I have one question though. Whats the different between the gmail lite and the gmail regular. I can see that they are two different urls but what exactly is the difference?

Thank you for your programming efforts.

Peace.

EDIT:

Oh BTW, I have my browser set default to Mozilla FireFox and this works just fine for me. ?

hi the lite was requested by Silversandstorm... and from what i can gather... you do not have to have javascript enabled in order to login in.... so hard to keep track of you if you require that bit of extra privacy or using a proxy ...etc

IcedOut3E

Mar 27 2005, 12:42 AM

Ah i c, thanks for the explanation ComSec.

Hey I was thinking, it would be cool if when you minimized it, it would go to the icon tray; like AIM and MSN Messenger. There is a program that does this, but it would be cooler if it was programmed into it, if you guys know how to do that.

AdmiralB

Mar 27 2005, 01:34 AM

so this reveals the password how?

IcedOut3E

Mar 27 2005, 03:05 AM

QUOTE(AdmiralB @ Mar 26 2005, 09:34 PM)

so this reveals the password how?

hahahah, you need to actually read the posts.

Its just a program that logs you into your gmail account.

Serhat

Mar 27 2005, 06:39 AM

QUOTE(IcedOut3E @ Mar 27 2005, 12:42 AM)

Ah i c, thanks for the explanation ComSec.

Hey I was thinking, it would be cool if when you minimized it, it would go to the icon tray; like AIM and MSN Messenger. There is a program that does this, but it would be cooler if it was programmed into it, if you guys know how to do that.

I've done that once... ComSec got the images.. prolly he has the code to do it too.. if not.. and if he wants to add that support... i'll give it him ^^...

Serhat

tianzhen

Apr 5 2005, 11:30 AM

"leave the username and password for next login " will be more handful,
btw ,thx for the source code just what i need

foro

Apr 16 2005, 04:43 PM

Where can I find the web object in VB6 ?

Dont care much about learning VB6, just want to compile the code

o0oKARo0o

Apr 16 2005, 08:28 PM

I use firefox 1.02 and it works fine..
thank you