[Kenny]

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

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

Attached File(s)

•  ahhhhhh.jpg (22.86K)
  Number of downloads: 345
•  GmailQ.zip (9.36K)
  Number of downloads: 180

[JaG]

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

:)

[pugrit]

hmm..

i got this.

line: 226
char: 1
error: 'is_browser_supporter' is undefined
URL: https://www.google.c...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

***

:lol:

[Kenny]

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]

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

maybe I should start using my gmail more often!

[IcedOut3E]

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. ?

[Kenny]

IcedOut3E, on Mar 26 2005, 05:42 PM, said:

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. ?

<{POST_SNAPBACK}>

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]

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]

so this reveals the password how?

[IcedOut3E]

AdmiralB, on Mar 26 2005, 09:34 PM, said:

so this reveals the password how?

<{POST_SNAPBACK}>

hahahah, you need to actually read the posts.

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

[Serhat]

IcedOut3E, on Mar 27 2005, 12:42 AM, said:

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.

<{POST_SNAPBACK}>

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]

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

[foro]

Where can I find the web object in VB6 ? <_<

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

[o0oKARo0o]

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