تبلیغات
مرکز کدهای جاوا و اچ تی ام ال - تغییر رنگ بک گراند به طور اتوماتیک|کدهای کاربردی

تغییر رنگ بک گراند به طور اتوماتیک|کدهای کاربردی

شنبه 10 مهر 1389 08:16 ب.ظ   نویسنده : محمد      


مرتبط با کدهای کاربردی
این , کد رنگ بک گراند رو به طور مداوم تغییر میده البته برای استفاده پیشنهاد نمیشه
<!-- www.js.coo.ir -->
<!-- begin the script-->
<script language="JavaScript">
r=255;
g=255;
b=255;
flag=0;
t=new Array;
o=new Array;
d=new Array;
function hex(a,c)
{
t[a]=Math.floor(c/16)
o[a]=c%16
switch (t[a])
{
case 10:
t[a]='A';
break;
case 11:
t[a]='B';
break;
case 12:
t[a]='C';
break;
case 13:
t[a]='D';
break;
case 14:
t[a]='E';
break;
case 15:
t[a]='F';
break;
default:
break;
}
switch (o[a])
{
case 10:
o[a]='A';
break;
case 11:
o[a]='B';
break;
case 12:
o[a]='C';
break;
case 13:
o[a]='D';
break;
case 14:
o[a]='E';
break;
case 15:
o[a]='F';
break;
default:
break;
}
}
function ran(a,c)
{
if ((Math.random()>2/3||c==0)&&c<255)
{
c++
d[a]=2;
}
else
{
if ((Math.random()<=1/2||c==255)&&c>0)
{
c--
d[a]=1;
}
else d[a]=0;
}
return c
}
function do_it(a,c)
{
if ((d[a]==2&&c<255)||c==0)
{
c++
d[a]=2
}
else
if ((d[a]==1&&c>0)||c==255)
{
c--;
d[a]=1;
}
if (a==3)
{
if (d[1]==0&&d[2]==0&&d[3]==0)
flag=1
}
return c
}
function disco()
{
if (flag==0)
{
r=ran(1, r);
g=ran(2, g);
b=ran(3, b);
hex(1,r)
hex(2,g)
hex(3,b)
document.bgColor="#"+t[1]+o[1]+t[2]+o[2]+t[3]+o[3]
flag=50
}
else
{
r=do_it(1, r)
g=do_it(2,g)
b=do_it(3,b)
hex(1,r)
hex(2,g)
hex(3,b)
document.bgColor="#"+t[1]+o[1]+t[2]+o[2]+t[3]+o[3]
flag--
}
if (document.all)
setTimeout('disco()',50)
}</script>
<body onload="disco()">
<!--end of the script-->
<!-- www.js.coo.ir -->
  
آخرین ویرایش: دوشنبه 12 مهر 1389 07:12 ب.ظ
دیدگاه ها ()
یکشنبه 2 تیر 1398 04:05 ب.ظ

With thanks! Helpful stuff!
buying cialis on internet cialis for sale south africa generic cialis pro ou acheter du cialis pas cher order generic cialis online cialis pills we use it cialis online store cialis tadalafil venta de cialis canada cialis 200 dollar savings card
یکشنبه 2 تیر 1398 01:31 ق.ظ

Kudos! I value it!
when will generic cialis be available cialis 5 mg para diabeticos cialis ahumada ou acheter du cialis pas cher cialis bula cialis herbs cialis prezzo in linea basso cialis super kamagra we recommend cialis best buy cialis 05
شنبه 1 تیر 1398 08:30 ق.ظ

Thank you! Valuable stuff!
cialis 30 day trial coupon cialis generico milano non 5 mg cialis generici canadian drugs generic cialis il cialis quanto costa we choice cialis uk cialis en 24 hora cialis price in bangalore acheter cialis kamagra how much does a cialis cost
پنجشنبه 30 خرداد 1398 04:59 ق.ظ

With thanks! Ample information!

cialis lowest price cialis dose 30mg walgreens price for cialis we choice cialis pfizer india price cialis best viagra vs cialis vs levitra prices for cialis 50mg generico cialis mexico estudios de cialis genricos cialis for sale south africa
چهارشنبه 29 خرداد 1398 01:28 ب.ظ

You actually revealed that terrifically!
dose size of cialis buy generic cialis cialis sicuro in linea cialis generique 5 mg cialis daily reviews buy cialis online cheapest cialis 20mg preis cf cialis 5mg prix buy cheap cialis in uk achat cialis en europe
دوشنبه 27 خرداد 1398 11:11 ب.ظ

Thanks a lot. Quite a lot of material!

cialis online buy cialis uk no prescription cialis 5 mg funziona cialis flussig cialis for sale in europa dosagem ideal cialis buy cialis cheap 10 mg we like it cialis price we recommend cialis info what is cialis
دوشنبه 27 خرداد 1398 07:58 ق.ظ

Nicely put. Cheers!
cialis prezzo di mercato viagra cialis levitra cialis en mexico precio cost of cialis cvs callus generic cialis tadalafil enter site 20 mg cialis cost cialis authentique suisse cialis generique buying cialis overnight
یکشنبه 26 خرداد 1398 04:01 ق.ظ

Cheers. I value this!
cialis prezzo di mercato cialis mit grapefruitsaft cialis preise schweiz cialis great britain cialis side effects dangers brand cialis generic cialis generico online prix de cialis acheter du cialis a geneve cialis 10mg prix pharmaci
دوشنبه 20 خرداد 1398 09:46 ق.ظ

Nicely put. Thank you!
prezzo di cialis in bulgaria free generic cialis link for you cialis price we choice free trial of cialis cialis 20 mg cialis bula buy cialis online legal cialis with 2 days delivery we choice free trial of cialis click now cialis from canada
چهارشنبه 21 فروردین 1398 07:55 ب.ظ

Terrific data, Thanks a lot!
canada medications cheap canadian government approved pharmacies trusted pharmacy canada scam canadian pharmaceuticals companies online pharmacies canadian pharcharmy online online drug store pharmacy canada online prescriptions canadian pharmacies pharmacy canada 24
جمعه 16 آذر 1397 02:39 ق.ظ

Helpful forum posts. Thanks.
cialis generika cialis tablets tadalafil 5mg interactions for cialis cialis name brand cheap cialis kaufen bankberweisung how much does a cialis cost where cheapest cialis cialis preise schweiz i recommend cialis generico
پنجشنبه 15 آذر 1397 07:15 ق.ظ

With thanks! Fantastic stuff!
buy cialis online cheapest when can i take another cialis cheap cialis buy cialis online nz online cialis wow look it cialis mexico tadalafil buy cheap cialis in uk tadalafilo side effects of cialis
چهارشنبه 14 آذر 1397 12:28 ب.ظ

Many thanks, Good information.
we recommend cheapest cialis cialis tadalafil online tadalafil 5mg cialis sicuro in linea order generic cialis online acheter cialis meilleur pri cialis en mexico precio look here cialis cheap canada tadalafil cialis 30 day trial coupon
دوشنبه 12 آذر 1397 01:32 ب.ظ

You actually mentioned it really well!
warnings for cialis canadian cialis best generic drugs cialis precios de cialis generico cialis professional from usa brand cialis generic buy cialis online tadalafilo cialis australia org cialis y deporte
دوشنبه 12 آذر 1397 02:16 ق.ظ

Many thanks! An abundance of info!

buy cialis uk no prescription deutschland cialis online prix de cialis venta cialis en espaa buy cialis viagra cialis levitra cialis generico in farmacia cialis online holland cialis 10mg prix pharmaci cialis e hiv
یکشنبه 11 آذر 1397 01:23 ب.ظ

Useful forum posts. Appreciate it.
cialis 100 mg 30 tablet cialis en 24 hora price cialis per pill cialis generic viagra cialis levitra acheter cialis kamagra we like it cialis price canadian discount cialis buy cialis cheap 10 mg generic low dose cialis
شنبه 10 آذر 1397 01:24 ب.ظ

You actually reported it terrifically.
sialis cialis 5 mg buy acheter cialis kamagra buy name brand cialis on line cialis reviews fast cialis online we choice cialis pfizer india cialis patent expiration miglior cialis generico cialis generic
شنبه 10 آذر 1397 01:36 ق.ظ

Nicely put, Kudos!
when will generic cialis be available cialis generico online tadalafil generic cialis 5 mg para diabeticos acheter cialis meilleur pri buy cialis sample pack precios cialis peru wow cialis tadalafil 100mg cialis mit grapefruitsaft cialis super kamagra
جمعه 9 آذر 1397 02:17 ب.ظ

You expressed this really well.
purchasing cialis on the internet dose size of cialis cialis rckenschmerzen generic cialis soft gels cialis lilly tadalafi we use it cialis online store canada discount drugs cialis comprar cialis navarr cialis side effects dangers buying brand cialis online
جمعه 9 آذر 1397 02:30 ق.ظ

Whoa many of very good information!
cialis usa cost generico cialis mexico how does cialis work low cost cialis 20mg safe dosage for cialis cialis flussig we like it cialis price cialis 20 mg cut in half we like it safe cheap cialis enter site 20 mg cialis cost
پنجشنبه 8 آذر 1397 03:02 ق.ظ

You expressed this wonderfully!
cialis en 24 hora cialis cuantos mg hay tadalafil cialis generique 5 mg cialis para que sirve ou trouver cialis sur le net only best offers cialis use 5 mg cialis pharmacie en ligne prezzo di cialis in bulgaria cialis prezzo al pubblico
چهارشنبه 7 آذر 1397 02:31 ب.ظ

Great forum posts. Thank you!
cialis sicuro in linea cialis kaufen wo sublingual cialis online cialis rezeptfrei cilas we choice cialis pfizer india pastillas cialis y alcoho effetti del cialis walgreens price for cialis order a sample of cialis
چهارشنبه 7 آذر 1397 02:33 ق.ظ

You stated it superbly!
generic cialis tadalafil cialis e hiv buy cialis online cialis prezzo al pubblico cialis wir preise cialis dose 30mg where to buy cialis in ontario achat cialis en europe how do cialis pills work cialis prices in england
پنجشنبه 19 مهر 1397 02:58 ب.ظ

Thanks! Great information.
generic levitra cheap 20mg levitra generic levitra buy levitra buy levitra 20 mg levitra levitra generic levitra 20 mg vardenafil 20mg vardenafil 20mg
سه شنبه 10 مهر 1397 08:30 ق.ظ

Thank you. Loads of advice!

low cost cialis 20mg cialis online holland cialis dose 30mg generic low dose cialis generic cialis soft gels cialis italia gratis we like it cialis soft gel enter site 20 mg cialis cost tadalafil 20mg cialis 5 mg funziona
یکشنبه 8 مهر 1397 05:11 ق.ظ

Cheers, Terrific stuff.
cialis 10 doctissimo cialis without a doctor's prescription il cialis quanto costa cialis online prix de cialis cuanto cuesta cialis yaho buying cialis in colombia only best offers 100mg cialis brand cialis generic cialis taglich
شنبه 31 شهریور 1397 06:53 ب.ظ

Superb information, Kudos.
canadian pharmacys canadian drugstore canada online pharmacies for men pharmacy canada online prescriptions canadian medications list prescription drugs without prior prescription canadian viagra how safe are canadian online pharmacies canadian pharmacys pharmacy
چهارشنبه 28 شهریور 1397 08:20 ب.ظ

Kudos! Plenty of info!

cialis patent expiration buy cialis acheter cialis meilleur pri canadian discount cialis how much does a cialis cost cialis purchasing cialis dosage amounts what is cialis if a woman takes a mans cialis cialis generika
سه شنبه 13 شهریور 1397 09:55 ب.ظ

Thanks a lot, Great stuff.
northwest pharmacies online canadian pharmacies stendra canadian prescriptions online serc 24 mg canada medications cheap prescription drugs without prior prescription online pharmacies tech school trust pharmacy canada reviews canadian pharmaceuticals online candida viagra drugstore online shopping reviews
سه شنبه 13 شهریور 1397 05:17 ق.ظ

You suggested it superbly.
usa online pharmacy buy generic viagra online safely buying cheap viagra online uk viagra online buy viagra sample usa online pharmacy viagra online pharmacy levitra how can i buy viagra without seeing a doctor buy viagra without rx viagra order online
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر

نمایش نظرات 1 تا 30

درباره وبلاگ


نویسندگان

  • محمد (64)