دنیای قالبهای رایگان

کدهای جاوا

حرکت نوشته از پايين به بالا

شايد تاحالا داخل بعضي وبلاگا ديده‌ باشيد که يه سري نوشته به صورت آرام از پايين

به بالا ميرن.اگه شما هم ميخوايد استفاده کنيد اين کدشه:

<SCRIPT language=JavaScript> document.write('<marquee id="iescroller" direction="up" width="100%" height="110" scrollamount="4" scrolldelay="100" style="border:3 solid #33cccc;background-color:black">'); iescroller.onmouseover=new Function("iescroller.scrollAmount=0"); iescroller.onmouseout=new Function("iescroller.scrollAmount=2"); document.write('<font size="5" face="Monotype corsiva" color="white">') document.write('<Div align="center">خانه ويروس ايران</div><br><br>'); document.write('<Div align="center"><b><font size="2">www.VirusBH.persianblog.com</font></b></div><br><br>'); document.write('<Div align="center">آموزش برنامه هک ويروس</div><br><br>'); document.write('<Div align="center"><b><font size="3">VirusBH@yahoo.com</font></b></div><br><br>'); document.write('</font>'); document.write('</marquee>'); </SCRIPT>

+ نوشته شده در سه شنبه هجدهم تیر ۱۳۸۷ ساعت 18:25 توسط ابی |

کدهای جاوا

دوستان با استفاده از اين کد در هنگام ورود پيغامي براي کاربر مشاهدي ميشه

که از او رنگ زمينه Back Ground و رنگ نوشته Text رو مي پرسه.

<HTML> <TITLE>Color</TITLE> <FORM METHOD="post" ACTION="/cgi-bin/joe.cgi" AUTOCOMPLETE="off"> <SCRIPT LANGUAGE="javascript"> //COPYRIGHT JOE BURNS var color = prompt ("What color would you like the page background to be?","") var txtcolor = prompt ("What color would you like the text to be?","") document.write ("<BODY BGCOLOR=" +color+ " TEXT=" +txtcolor+ ">") defaultStatus="Here's your " +color+ " background and " +txtcolor+ " text" </SCRIPT> </HTML> <head> <STYLE TYPE="text/css"> BODY { scrollbar-base-color: orange; scrollbar-arrow-color: green; scrollbar-DarkShadow-Color: blue; } </STYLE> </head> <body> The #1 place for JavaScripts </body></html>

این کد باعث میشه که بازدید کننده تا میاد تو وبلاگتون اول اسمش ازش سوال میشه بعدش

بهش خوش آمد گویی میشه

<HEAD> <SCRIPT LANGUAGE="Javascript">  </SCRIPT>  <BODY> <CENTER> <SCRIPT LANGUAGE="Javascript">  </SCRIPT> </CENTER>

کد زیر باعث میشه که یک چشم در وبلاگ یا سایت شما به دنبال ماوس بازدید

کننده بیفته

<SCRIPT LANGUAGE="JavaScript1.2">      </script>

دیدن نمونه

+ نوشته شده در سه شنبه هجدهم تیر ۱۳۸۷ ساعت 18:24 توسط ابی |

کدهای جاوا

با کدهای زیر میتونید آدمک سخنگو داشته باشین یا همون مرلین رو داشته باشید

دو کد زیر متفاوت هستند زیرا طوری برنامه ریزی شده که حرکاتشون فرق دارد

دو کد را هیچ وقت با هم استفاده نکنید

در قسمتهایی که نوشته جمله شما باید جمله مورد نظرتون رو بنویسید

مرلین 1

<OBJECT id=AgentControl style="LEFT: 0px; WIDTH: 0px; TOP: 0px" codeBase=../../../../#VERSION=2,0,0,0 height=0 width=0 classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F VIEWASTEXT></OBJECT><A href="http://www.mashhadteam.com/"></A> </a><SCRIPT LANGUAGE="VBScript"> Dim Merlin Dim LoadChar Dim CharLink Dim arrSpeech (5) Dim arrHref (3) arrHref (1) = "agentB.htm" arrHref (2) = "agentB.htm" arrHref (3) = "agentB.htm" 'You need to adjust the URL's in order to work. function strSpeech(intval) Set CharLink = Merlin.Speak (arrSpeech (intval)) 'newPage = arrHref (intval) end function Sub AgentControl_RequestComplete(ByVal Request) 'If Request = CharLink Then ' document.location.href = newPage 'End If End Sub Public Sub Window_OnLoad() 'Set LoadChar = AgentControl.Characters.Load ("Merlin", _ ' "C:\Windows\msagent\chars\merlin.acs") 'Change to proper root depending on OS. Set LoadChar = AgentControl.Characters.Load ("Merlin") On Error Resume Next Set Merlin = AgentControl.Characters ("Merlin") Merlin.Show Merlin.Speak ("jomleye shoma") Merlin.MoveTo 100,500 Merlin.GestureRight Merlin.Speak ("jomleye shoma") Merlin.MoveTo 500,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 300,300 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,450 Merlin.Speak ("adrese maile shoma") Merlin.MoveTo 500,10 Merlin.Speak ("adrese webloge shoma") End Sub Sub AgentControl_DragStart (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("Alert") Merlin.Speak ("\Pau=800\\vol=65535\darde eshgh \hamishe \mara\shekast dad ") End Sub Sub AgentControl_DragCOmplete (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("RestPose") End Sub </SCRIPT></div> </head> </body> </span></span> </html>

+ نوشته شده در سه شنبه هجدهم تیر ۱۳۸۷ ساعت 18:22 توسط ابی |

مطالب جدیدتر

قالب کدهای جاوا ابزار وبلاگ

کدهای جاوا

کدهای جاوا

کدهای جاوا

نوشته‌های پیشین

آرشیو موضوعی

برچسب‌ها

نویسندگان

پیوندها