谁能给我一个表白的小程序_软件运维

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

<html>

<head>

<title>杨清瑶我爱你</title>

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

sub sub1

me.close

end sub

me.resizeto 500,410 '这里设置窗口大小,单位为像素

me.moveto 260,100 '这里设置窗口位置,单位为像素

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

</script>

<body>

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

<hr>

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

</style>

<tr>

<br>

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

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

</html>

一个简单的VBscript小程序，打开任务管理器结束wscript.exe就可以关，cmd一样

而且，360会把大部分vbs程序识别为病毒，不会给你运行的机会233

只是我见过禁用cmd和任务管理器的vbs程序，还自带1分钟关机，1分钟内你得打开组策略把禁用调回来。。。这才真的强

但是不好意思我没有代码

如果你有一颗撩妹的心，学一学就可以了233

示例：

附一段代码，新建txt复制，改后缀.txt为.vbs保存运行即可，关闭就是任务管理器结束wscript.exe，如果有关机提示，WIN+R运行里输入shutdown -a可破

记得关闭360再运行

MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel

then

msgbox " 系统将立刻重起wow ~_^",,"你上当了！！"

Set objShell =

CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 100",,true

end

对了，这个程序点取消才能继续下去。。。

欢迎分享，转载请注明来源：内存溢出

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