[Leetabix]

If txtuser.Text = Empty Then
MsgBox "Error: Please enter a username", vbCritical, "Error"
Exit Sub
End If

If txtpass.Text = Empty Then
MsgBox "Error: Please enter a password", vbCritical, "Error"
Exit Sub
End If

Call wrapper.GetWrapper ("http://bebo.com/SignIn.jsp")

strHTML = wrapper.PostWrapper("http://bebo.com/SignIn.jsp", "FriendsMemberId=&FriendsChecksumNbr=&InviteRecipientId=&InviteChecksumNbr=&AppUrl=&Page=&QueryString=&api_key=&next=&canvas=null&v=&EmailUsername=" & txtuser.text & "&Password=" & txtPass.text & "&SignIn=Sign+In+%3E", "http://bebo.com/SignIn.jsp")

If InStr(1, strHTML, "has not been recognized. Please check and") Then
MsgBox "Error: No such username", vbCritical, "Error"
Exit Sub

ElseIf InStr(1, strHTML, "Your password is incorrect, please try again") Then
MsgBox "Error: Wrong password", vbCritical, "Error"
Exit Sub

ElseIf InStr(1, strHTML, "The URL has moved") Then
MsgBox "You are now logged in", vbOKOnly, "Login"
Exit Sub

End If

[ReidE96]

Why you want want a program to log into bebo is beyond me, but good coding. I'm gonna try and use some of the things you used there (namely InStr and wrappers) on something I'm working on. +3 to you.

[Leetabix]

I'm not sure of the features on Bebo but I know you can send mail & comments so you'll need an auth for that.

[ReidE96]

Leetabix, I have a bebo account, I know what you can do with it It's just the why you would use a program for it. A webbrowser does the job fine.

[Leetabix]

Cause some people like me are lazy and would rather just have a program that adds a bunch of people then sends a comment out to all of them.

[ReidE96]

That takes further coding

[Leetabix]

Lol, of course it does.

[DudeWheresMYEmu]

Facebook > Bebo > MySpace > All