|
 Liam
1337 n00b!!!111!!one!
Joined: Mon Feb 04, 2008 3:57 am Posts: 2504 Location: Wales
|
 Posted: Wed Aug 06, 2008 6:07 pm Post subject: Bebo App Notifactions & Invations Deleter [Source]
|
Credits go to Intoxic for Login in part as even if i code my Own it would be the same near enough   Private Sub chameleonButton1_Click()
Wrapper.StopIT = False
Dim strHTML As String
Dim user As String
Dim pass As String
If txtuser.Text = "" Then
MsgBox "Enter A Username", vbCritical, "Error"
Exit Sub
End If
If txtpass.Text = "" Then
MsgBox "Enter A Password", vbCritical, "Error"
Exit Sub
End If
Wrapper.ClearCookies
user = txtuser.Text
pass = txtpass.Text
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=" & user & "&Password=" & pass & "&SignIn=Sign+In+%3E", "http://bebo.com/SignIn.jsp")
If InStr(1, strHTML, "has not been recognized. Please check and") Then
MsgBox "Username not recognized", vbCritical, "Error"
Exit Sub
ElseIf InStr(1, strHTML, "Your password is incorrect, please try again") Then
MsgBox "Password Incorrect", vbCritical, "Error"
Exit Sub
ElseIf InStr(1, strHTML, "The URL has moved") Then
Label3.Caption = "Logged In!"
meep:
strHTML = Wrapper.GetWrapper("http://www.bebo.com/c/app_request/index?tab=invitations")
If InStr(strHTML, "You have no invitations") Then
Wrapper.StopIT = True
Label3.Caption = "No App Invites Left.."
MsgBox "No App Invites Left..", vbExclamation, "Finished!"
Else
Text1.Text = GB(strHTML, "<a href=""delete_invite?tab=invitations&nid=", "&aid=")
Text3.Text = GB(strHTML, "<a href=""delete_invite?tab=invitations&nid=" & Text1.Text & "&aid=", """>")
strHTML = Wrapper.GetWrapper("http://www.bebo.com/c/app_request/delete_invite?tab=invitations&nid=" & Text1.Text & "&aid=" & Text3.Text)
Text2.Text = Text2.Text + 1
Label3.Caption = Text2.Text & " App Invites Deleted.."
GoTo meep
Exit Sub
End If
End If
End Sub
Private Sub Command1_Click()
Wrapper.StopIT = False
Dim strHTML As String
Dim user As String
Dim pass As String
If txtuser.Text = "" Then
MsgBox "Enter A Username", vbCritical, "Error"
Exit Sub
End If
If txtpass.Text = "" Then
MsgBox "Enter A Password", vbCritical, "Error"
Exit Sub
End If
Wrapper.ClearCookies
user = txtuser.Text
pass = txtpass.Text
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=" & user & "&Password=" & pass & "&SignIn=Sign+In+%3E", "http://bebo.com/SignIn.jsp")
If InStr(1, strHTML, "has not been recognized. Please check and") Then
MsgBox "Username not recognized", vbCritical, "Error"
Exit Sub
ElseIf InStr(1, strHTML, "Your password is incorrect, please try again") Then
MsgBox "Password Incorrect", vbCritical, "Error"
Exit Sub
ElseIf InStr(1, strHTML, "The URL has moved") Then
Label3.Caption = "Logged In!"
meep:
strHTML = Wrapper.GetWrapper("http://www.bebo.com/c/app_request/index?tab=notifications")
If InStr(strHTML, "You have no notifications") Then
Wrapper.StopIT = True
Label3.Caption = "No App Note's Left.."
MsgBox "No App Notifications Left..", vbExclamation, "Finished!"
Else
Text1.Text = GB(strHTML, "<a href=""delete_notif?tab=notification&nid=", """>")
strHTML = Wrapper.GetWrapper("http://www.bebo.com/c/app_request/delete_notif?tab=notification&nid=" & Text1.Text)
Text2.Text = Text2.Text + 1
Label3.Caption = Text2.Text & " App Note's Deleted.."
GoTo meep
Exit Sub
End If
End If
End Sub
|
| Top |
 |
 |
|
-McGuinn-
Gold Member
Joined: Mon Nov 19, 2007 7:57 pm Posts: 972
|
Posted: Wed Aug 06, 2008 6:39 pm Post subject: Re: Bebo App Notifactions & Invations Deleter [Source]
|
Why don't you say what you need in the bot Like 4 Commande Buttons and 1 list box? Nice Source Btw  Pity i don't code anymore
_________________
 
|
| Top |
 |
|
|
Connor
Aciid VIP
Joined: Mon Jun 02, 2008 10:52 am Posts: 2234 Location: barnsley
|
Posted: Wed Oct 01, 2008 12:22 pm Post subject: Re: Bebo App Notifactions & Invations Deleter [Source]
|
|
i want to make this what the hell do you need lol
_________________
add me http://www.bebo.com/barnsley2k8
Coming Soon rule-over 9000.forumotion.com
"Drunk girls are horny bitches" - David Easdale
Legends
Alex,Unclean,Matt2009,Magicide
|
| Top |
|
|
|
David
Software Guru
Joined: Thu Sep 11, 2008 9:34 am Posts: 437 Location: South Wales
|
Posted: Wed Oct 01, 2008 1:28 pm Post subject: Re: Bebo App Notifactions & Invations Deleter [Source]
|
Read The Code ItsSelf.. Youll Work Most Of It Out. E.g: TxtUser = One text Box Wrapper.GetWrapper = HttpWrapper And So On. 
_________________
|
| Top |
|
|
|
Luke
Gold Member
Joined: Thu Aug 21, 2008 10:05 pm Posts: 612 Location: Sexbierum =]
|
Posted: Wed Oct 01, 2008 5:57 pm Post subject: Re: Bebo App Notifactions & Invations Deleter [Source]
|
wakttoo wrote: i want to make this what the hell do you need lol  hope that helps
_________________
|
| Top |
|
|
|
Intoxic
The Don
Joined: Sun Jan 27, 2008 6:38 pm Posts: 1025 Location: Sheffield, UK
|
Posted: Wed Oct 01, 2008 6:04 pm Post subject: Re: Bebo App Notifactions & Invations Deleter [Source]
|
Dim strHTML As String
Dim user As String
Dim pass As String
Dim strHTML As String, user As String, pass As String
_________________
|
| Top |
|
|
|
|
|
[ 6 posts ] 
