[METHOD] Social network CPA push method + BOT

[killakem]

Hi guys,

A late 200th post share from me......

I found this social network when I was doing research for a CPA offer I wanted to promote. Its called bl4ack planet.c0m (I masked the URL a bit so they cant find this post too easy and patch this bot out existence) Has a shit load of users and tons online at anyone point.

I decided to create a bot to message users with my CPA offer. so THIS IS NOT EWHORING as my message read a little something like this.

"Hi blah blah, iv been meeting all this chicks from this naughty dating site etc etc, check it out mylink" this was from a male also so I wouldn't consider it ewhoring

It can be twisted in many ways!! With the right twist you should be able to make 50-100$ a day and more if you had a socket based bot that sent a shit load of messages. I was going to add information about running this in multiple windows but i dont want to encourage everyone to kill it too quickly. Even tho I know you will!!

First things first!! BEATING THE SPAM DEFENCE!! The bot uses deathbycaptcha to break the captchas and also proxys to prevent ghosting of my IP's (U will have to add your own proxy support). it can be modified to support other captcha providers.

At first i was just scraping profile URLs then i decided to automate it all.

The bot will:

1. Login with your credential
2. Do a search
3. sequence through every result page messaging each user as it goes
4. To send a message you have to complete a captcha!! as I said is have implemented deathbycaptcha support.

I will not be giving you the message to send and selecting an offer for you to forward too. Im giving away a method that WORKS and thats making me money!! Why U ask?? because im doing other stuff and dont do too many of these things through my CPA accounts i prefer to quit while im ahead.

This is my first and last attempt at using VBS with imacro's. Id rather use ubot its soo much quicker to do everything.

Enjoy!!

Save the code as yourfilename.vbs nd change the red bits to your details.

You will need IMacro's scripting edition (Its on the forum search for it or get the trial) and Firefox installed. You can use IE instead by changing the -fx to -ie.

Download from here:
http://www.2shared.com/file/MF8GlESI/WORKING_With-DBC.html

Virus Total:
https://www.virustotal.com/file/b32...0a9f66e237fa815d3bbdb5f3/analysis/1335286220/

The code below is all out of format due to the "CODE" tags.

Option ExplicitDim iim, status
Set iim= CreateObject ("imacros")
status = iim.iimOpen("-fx -tray")
Dim macro
Dim i
Dim pos


macro = "VERSION BUILD=8001865" + vbNewLine
macro = macro + "TAB T=1" + vbNewLine
macro = macro + "TAB CLOSEALLOTHERS" + vbNewLine
macro = macro + "SET !REPLAYSPEED SLOW" + vbNewLine
macro = macro + "URL GOTO=http://www.blackplanet.com/" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:TEXT FORM=ID:site_login ATTR=ID:user CONTENT=[COLOR=#ff0000]BPUSERNAME[/COLOR]" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:PASSWORD FORM=ID:site_login ATTR=ID:password CONTENT=[COLOR=#ff0000]BPPASSWORD[/COLOR]" + vbNewLine
macro = macro + "SET !ENCRYPTION NO" + vbNewLine
macro = macro + "TAG POS=1 TYPE=BUTTON:SUBMIT FORM=ID:site_login ATTR=ID:login_button" + vbNewLine
status = iim.iimPlayCode(macro)


For i = 1 to 50
macro = "VERSION BUILD=8001865" + vbNewLine
macro = macro + "TAB T=1" + vbNewLine
macro = macro + "TAB CLOSEALLOTHERS" + vbNewLine
macro = macro + "SET !REPLAYSPEED FAST" + vbNewLine
status = iim.iimSet("pagecnt", CStr(i))
macro = macro + "URL GOTO=http://www.blackplanet.com/user_search/index.html?


find_member_details_form_submit=1&layout=1&section=member_browse&do_save=1&sex_ids[]


=2&min_age=23&max_age=33&usa_selected_tab=radius_search&native_country_id=USA&usa_country_id=USA&usa_radius_id=&usa_postal_code=Zip


+Code&usa_city=City+%28optional%29&usa_state_id=&is_online=1&rel_status_ids[]=16&rel_status_ids[]=8&rel_status_ids[2]={{pagecnt}}" + vbNewLine
macro = macro + "WAIT SECONDS=1" + vbNewLine
status = iim.iimPlayCode(macro)
    
         For pos = 1 to 20
        
        macro = "VERSION BUILD=8001865" + vbNewLine
        macro = macro + "TAB T=1" + vbNewLine
        macro = macro + "TAB CLOSEALLOTHERS" + vbNewLine
        macro = macro + "SET !ERRORIGNORE YES" + vbNewLine
        macro = macro + "SET !EXTRACT_TEST_POPUP NO" + vbNewLine
        macro = macro + "SET !REPLAYSPEED FAST" + vbNewLine
        macro = macro + "SET !TIMEOUT 120" + vbNewLine
        macro = macro + "SET !EXTRACT NULL" + vbNewLine
        status = iim.iimSet("pagepos", CStr(pos))
        macro = macro + "TAG POS={{pagepos}} TYPE=SPAN ATTR=TXT:Send<SP>a<SP>Note" + vbNewLine
        macro = macro + "FRAME NAME=notePlopUp_frame" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=INPUT:TEXT FORM=ID:_form0 ATTR=NAME:subject" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=TEXTAREA FORM=ID:_form0 ATTR=NAME:body" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=INPUT:TEXT FORM=ID:_form0 ATTR=NAME:subject CONTENT=[COLOR=#ff0000]MSGSUBJECT[/COLOR]" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=TEXTAREA FORM=ID:_form0 ATTR=NAME:body CONTENT=""[COLOR=#ff0000]YOURMESSAGE[/COLOR]""" + vbNewLine
        macro = macro + "SET !REPLAYSPEED SLOW" + vbNewLine
        macro = macro + "FILEDELETE NAME=C:\captcha\captcha.png" + vbNewLine
        macro = macro + "ONDOWNLOAD FOLDER=C:\captcha\ FILE=captcha.png WAIT=YES" + vbNewLine
        macro = macro + "TAG POS=3 TYPE=IMG ATTR=HREF:http://* CONTENT=EVENT:SAVE_ELEMENT_SCREENSHOT" + vbNewLine
        macro = macro + "WAIT SECONDS=1" + vbNewLine
        macro = macro + "TAB OPEN" + vbNewLine
        macro = macro + "TAB T=2" + vbNewLine
        macro = macro + "URL GOTO=http://api.deathbycaptcha.com/decaptcher?function=picture2&print_format=html" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=INPUT:TEXT FORM=ACTION:http://api.deathbycaptcha.com/decaptcher ATTR=NAME:username 


CONTENT=[COLOR=#ff0000]DBCUsername[/COLOR]" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=INPUT:TEXT FORM=ACTION:http://api.deathbycaptcha.com/decaptcher ATTR=NAME:password 


CONTENT=[COLOR=#ff0000]DBCPASSWORD[/COLOR]" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=INPUT:FILE FORM=ACTION:http://api.deathbycaptcha.com/decaptcher ATTR=NAME:pict CONTENT=C:


\captcha\captcha.png" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=INPUT ATTR=TYPE:submit" + vbNewLine
        macro = macro + "WAIT SECONDS=1" + vbNewLine
        macro = macro + "TAG POS=6 TYPE=TD ATTR=* EXTRACT=TXT" + vbNewLine
        macro = macro + "SET !VAR1 {{!EXTRACT}}" + vbNewLine
        macro = macro + "TAB T=1" + vbNewLine
        macro = macro + "SET !REPLAYSPEED FAST" + vbNewLine
        macro = macro + "FRAME NAME=notePlopUp_frame" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=INPUT:TEXT FORM=ID:_form0 ATTR=ID:recaptcha_response_field CONTENT={{!VAR1}}" + vbNewLine
        macro = macro + "TAG POS=1 TYPE=BUTTON:SUBMIT FORM=ID:_form0 ATTR=TXT:*" + vbNewLine
        macro = macro + "WAIT SECONDS=1" + vbNewLine
        macro = macro + "FRAME F=0" + vbNewLine


        status = iim.iimPlayCode(macro)
        




    next






Next

 

[killakem]

Let me know when you have implemented it, also if you need any help with getting it working.

 

[mrsix]

I still can't believe people STILL fall for PM spam lol

 

[killakem]

Yea its getting harder!! You have to really be providing them with something they want!! or at least think its what they want

 

[meannn]

You should have open this thread in VIP. Not to be a d*ck, but these types of methods can be saturated pretty fast as we have experienced in past. And thanks for the share.

 

[killakem]

Too be honest i thought about releasing it in the JR.VIP!! but decided it should be shared with all. when I share something in the VIP it will be something killer this isn't good enough

 

[zonfar]

So your just sending CPA offers to other black dating sites? This isn't something really new, but the free bot is appreciated! I'll give this a shot and hopefully can get the script running. If not I just might make my own in ubot or something

 

[killakem]

I didn't claim that it was new apart from my script, I also have not seen anyone mention the site. Which is a social network and not classified as a dating site as such.

So your just sending CPA offers to other black dating sites? This isn't something really new, but the free bot is appreciated! I'll give this a shot and hopefully can get the script running. If not I just might make my own in ubot or something

 

[zonfar]

Oh ok, I guess it being a social network is a bit different! looks like the cpa networks im signed up with dont have blackpeoplematch anymore. just black flirt match and black sex match

 

[killakem]

You can use any dating offers!!!

 

[trungdeplao]

thanks for the bot!!! If we choose to enter CAPCHA manually, we just remove the deathbycapcha part, right ?

 

[killakem]

Yea just remove and add a prompt

 

[cleanhand]

how to run this script? I have saved with the vbs extension but my Firefox imacros does not detect this script?

 

[killakem]

u run the script outside of Firefox!!

 

[HoNeYBiRD]

lol, well done blackhatters, joined like 10 mins ago with a man profile, somebody already tried to e-seduce/e-whore me

to that somebody: y u no upload a profile pic?

 

[wke102]

Can't seem to sign up...LOL...
Giving me this error message...
We're sorry, something seems to have malfunctioned during your registration process.

 

[damyanov]

Nice one but can you put the code without part with DBC , i try to edit the code but getting some erros :S

 

[zonfar]

Nice one but can you put the code without part with DBC , i try to edit the code but getting some erros :S

same here, imacros in FF only detects .iim and .js filetypes I believe. I think this is meant to actually be ran from windows so it opened an instance of FF. Although I just tried the script, and opening it gives me an error on line 1 saying its a syntax error

 

[wke102]

how to run it outside of firefox? noob question here

 

[PRINCESSGRACE]

Thanks for this!! I will check this after I finish my task in my own CPA method