This Programm Is Used To Get Myspace Friends.

This Is My Very First Attempt At Making A Application With Dark Basic Pro, Im not That Good But I Believe The Programm Does Its Job, Please If You Have Any Way To Make This Better(Login,Bypass Myspace Friend Add Security). Let Me Know At Emailme2523@yahoo.com
Cheers And Have Fun...Made Bye (1337)The_One_And_Only
Visit
www.myspace.com/porkchops4lyfe
add them to your friends!!!

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: MyspaceWhore
Rem Created: 5/29/2006 5:37:15 PM
Rem Creator: (1337)The_One_And_Only

Rem ***** Main Source File *****
Friends=0
set window title "Myspace Whore V1.0"
fastsync
Pages = 1
Main:
if friends > 100
print "Sorry You Have Reached Your Limit On Friends Today, Dont Blame Me, Its Myspace"
end
else
endif
print "Please Do Not Use The X Button"
wait 1000
cls
print "You Have ",Friends," Pending Friend Requests"
input "Type In How Many Pages You Want To load>",TPages
for T = 1 to Pages
adress$="http://collect.myspace.com/index.cfm?fuseaction=invite.addfriend_verify&friendID="
Dim Id$(8)
Id$(1)="1"
Id$(2)="2"
Id$(3)="3"
Id$(4)="4"
Id$(5)="5"
Id$(6)="6"
Id$(7)="7"
Id$(8)="8"
One$=Id$(rnd(8))
Two$=Id$(rnd(8))
Three$=Id$(rnd(8))
Four$=Id$(rnd(8))
Five$=Id$(rnd(8))
Six$=Id$(rnd(8))
Seven$=Id$(rnd(8))
Eight$=Id$(rnd(8))
execute file Adress$+one$+two$+three$+four$+five$+six$+Seven$+Eight$,"",""
friends=friends + 1
Pages=Tpages
Next T
cls
print "You Have ",Friends," Pending Friend Requests"
print "Press Enter To Continue"
input "Type Quit To Quit>",Quit$
if quit$="Quit" or Quit$="quit"
end
else
gosub Main:
endif