ئاپتوماتىك خەت يېزىش كودى_๑۩۞۩๑☆ｉzｌaｒ☆๑۩۞۩๑

بۇ كودنى ئىشلەتكەن كۈرۈنىش بېتىگە خەت ياكى رەسىم كىرگۈزسىڭىز خۇددى كومپىيۇتېردا بىر باشتىن يېزىپ چىقىرىۋاتقاندەك ھالەتتە نامايەن بۇلىدۇ.

<BODY><SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="<BR><BR><BR>":c="<font color=white><B>|"&mr:Set w = document.body

sub tp
m=mid(t,p,1):if m="" then c=mr
if m="`" then m="":mm=mid(mm,1,len(mm)-1)
if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1
if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1
tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then tmp=200
if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1
mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"
end sub

sub window_onload()
w.scroll="yes"
w.bgcolor="#ffffff"
w.style.cursor="crosshair"
'-------------------
t=w0.innerHTML:tp
end sub

</SCRIPT>
</FONT>
<DIV id=w0 style="DISPLAY: none; WIDTH: 251px; HEIGHT: 143px">
<TABLE width=251 align=center border=0>
<TBODY>
<TR>
    <TD width=245>
      <font color="#FF0000">ئەسسالامۇ ئەلەيكۇم،</font><p><font color="#FF0000">
  ئىزلار چۈشۈرۈش تورىغا خۇش كەپسىز.</font></p>
  <p><font color="#FF0000">ئىزلار چۈشۈرۈش توربىكىتىمىز 2005-يىلى 3-ئايدا
  قۇرۇلغان بۇلۇپ .............</font></p>
  </TD></TR></TBODY></TABLE></DIV>
<DIV id=w1>
<p align="justify"></DIV>