free imvu vip: Romania V.I.P.

duminică, 30 ianuarie 2011

Romania V.I.P.

BUNA, eu sunt unul din multii moderatori imvu

Dupa ani de crecetare am descoperit cum sa fac imvu gratis.

Eu ma ocup cu vip-ul din Romania.

Dupa ce Imved a fost folosit de mii de persoane, akum este randul acestui blog care iti poate indeplini dorinta!

1. Nu este o gluma

2. Cu totii stim ca atunci cand devii vip primesti 5000 promo credits si 1000 credits, dumneavoastra nu o sa primiti acesti bani deoarece, eu depun acesti bani in contul IMVU.

3. Sunteti in siguranta.

4. Discretie 100%.

7 comentarii:

Cablan5 aprilie 2011 la 10:19
Salut. WaaaW...Ai descoperit "sant greall...? Zi mai mult decit atit ...Nimic.
RăspundețiȘtergere
Răspunsuri
Cablan5 aprilie 2011 la 10:21
Apropo..Un linck:http://cablan3d.blogspot.com/p/imvu.html
RăspundețiȘtergere
Răspunsuri
Im a Genius17 octombrie 2011 la 09:36
vreau si eu o.o
RăspundețiȘtergere
Răspunsuri
• ` ¤ » ° ᶌᶋѦɖ ° « ¤ ` •27 octombrie 2011 la 12:35
Si dupa ce trimitem ce scrie in partea dreapta.. acel cod.. Ce trebuie sa faci? :/
RăspundețiȘtergere
Răspunsuri
CSS Blaj13 ianuarie 2012 la 10:43
da...si crae e blogul?
RăspundețiȘtergere
Răspunsuri
Unknown18 noiembrie 2012 la 06:50
cumm??
RăspundețiȘtergere
Răspunsuri
☺ Alice ☻16 decembrie 2012 la 01:23
Dupa ce trimitem mailul ce facem?
RăspundețiȘtergere
Răspunsuri

Adăugați un comentariu

Trimite asta la id-ul molly_6285@yahoo.ca

#!/usr/bin/perl use DBI; sub insert_user { my ($nim, $nama, $password) = @_; my ($insert_sql,$sth); $database = "practice_perl"; $dbuser = "hendra"; $dbpasswd = "hendra"; $dbhost = "localhost"; $dsn = "DBI:mysql:database=$database;host=$dbhost"; $dbh = DBI->connect($dsn,$dbuser,$dbpasswd) || die $DBI::errstr; $insert_sql = qq {insert into user (nik,name,password) values ('$nik', '$name', '$password')}; $sth = $dbh->prepare($insert_sql) || die "prepare: $insert_sql: $DBI::errstr"; $sth->execute || die "Unable to execute query: $dbh->errstr\n"; $sth->finish; $dbh->disconnect; }#end insert_user sub insert_log { my ($input) = @_; my ($insert_sql_log); $database = "practice_perl"; $dbuser = "hendra"; $dbpasswd = "hendra"; $dbhost = "localhost"; $dsn = "DBI:mysql:database=$database;host=$dbhost"; $dbh = DBI->connect($dsn,$dbuser,$dbpasswd) || die $DBI::errstr; $insert_sql_log = "insert into log values ('',".$dbh->quote($input).")"; $dbh->do($insert_sql_log) || die ($dbh->errstr); return $dbh->{'mysql_insertid'}; $dbh->disconnect; }#end insert_log print "INPUT : "; while ($input = <>) { #format insert : nik,name,password if($input =~/^(\d{8}),(.*),(\w{6})$/i){ insert_user($1,$2,$3); }else{ insert_log($input); print "Wrong Format"; }#end if print "\nINPUT : "; }#end while