谁能给我一个表白的小程序

谁能给我一个表白的小程序,第1张

打开记事本,把下面的代码给拷贝进去,看情况改字哈``然后保存,最后把txt后缀改为hta,然后就可以运行罗``关闭的话ALT+F4

<html>

<head>

<title>杨清瑶我爱你</title><!--这里是标题-->

<hta:application sysmenu=no scroll=no border=none>

<script language="vbscript">

sub sub1

meclose

end sub

meresizeto 500,410 '这里设置窗口大小,单位像素

memoveto 260,100 '这里设置窗口位置,单位为像素

windowsettimeout "sub1",100000 '这是设置时间,单位为毫秒,我这里设置为12秒

</script>

<body>

<CENTER>

<FONT style="COLOR:#33FF00; FILTER: shadow(color=black); FONT-FAMILY: 华文彩云; FONT-SIZE: 30pt; LINE-HEIGHT: 150%; WIDTH: 100%"><B>杨清瑶我爱你</B></FONT></CENTER>

<hr>

<style type="text/css">

3dfont { FILTER: glow(color=ffffff,strength=0) shadow(color=cccccc,direction:135); POSITION: relative; WIDTH: 100% }

</style>

<table border="0" width="100%">

<tr>

<td width="100%" class="3dfont"><font color=RED><CENTER> ☆☆☆☆☆☆ 永久通知 ☆☆☆☆☆☆</font>

<br>

<P align=left>

★杨清瑶是世界上最漂亮的姑娘!</B><br><br>

杨清瑶我真的好爱你,真的真的好爱你!</B><br><br>

<MARQUEE>轩辕伊杨 2010125</body>

</html>

给你一个javascript的程序,文件名保存为1html就可以

<html>

<head>

<title>网页开屏 </title>

</head>

<script language="javascript">

var x = 10;

var dx = 5;

var y = windowscreenavailHeight;

var newWin = windowopen("", "myWin", "menubar=0,toolbar=0");

newWindocumentwrite("I      &nbsp      L           &nbspo           &nbspv           &nbspe            &nbsp Y     &nbspo     &nbspu!");

newWinresizeTo(x, y);

var time = windowsetInterval("active()", 100);

function active() {

if(newWinclosed){

clearInterval(time);

return;

}

else if(x < screenavailWidth){

x+=dx;

}

else {

clearInterval(time);

}

newWinresizeTo(x,y);

}

</script>

</html>

欢迎分享,转载请注明来源:表白网

原文地址:https://h5.hunlipic.com/biaobai/3433918.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2024-02-29
下一篇2024-02-29

发表评论

登录后才能评论

评论列表(0条)

    保存