1.防止屏幕息屏防睡眠(24小时,300秒输入一次):
Set ws = CreateObject("Wscript.Shell")
for i = 1 to 24
WScript.Sleep 300*1000 '时间毫秒
ws.SendKeys "{NUMLOCK}"
终止脚本
Set ws = CreateObject("WScript.Shell")
ws.Run "taskkill /f /im wscript.exe",0
打开cmd脚本
Set ws = WScript.CreateObject("WScript.Shell")
ws.Run "C:\Windows\System32\cmd.exe"
2.消息多发:
WScript.Sleep 2000
'暂停两秒
On Error Resume Next
'运行出错时,继续。。。
set WshShell = WScript.CreateObject("WScript.Shell")
for i =1 to 10
'循环次数
WScript.Sleep 1000
'消息间隔时间
WShShell.SendKeys "^v"
'^ 代表 ctrl, ^v 代表 ctrl+v
WshShell.SendKeys "-+."
'+代表shift,-+.代表->或者-》,中文环境为-》,英文环境为->
WshShell.SendKeys i
WshShell.Sendkeys "%s"
Next
WScript.quit
##窗口输入消息右键剪切,运行程序
3.窗口输入:
a=inputbox("输入“开启有惊喜哦”有惊喜福利哦!")
x=msgbox("你确定吗?",0+35,"提示")
do
x=msgbox("lalala哈哈哈",0+0,"中计了")
loop
4.数字雨:
@echo off
title Number Rain
:line
color 0a
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (0) do (
set "line="
for /l %%j in (1,1,80) do (
set /a Down%%j-=2
set "x=!Down%%j!"
if !x! LSS 0 (
set /a Arrow%%j=!random!%%3
set /a Down%%j=!random!%%15+10
)
set "x=!Arrow%%j!"
if "!x!" == "2" (
set "line=!line!!random:~-1! "
) else (set "line=!line! ")
)
set /p=!line!<nul
)
goto line
5.无限数字:
For u=1 to 1000
msgbox(u)
Next
6.窗口:
do
msgbox "想说的话"
loop
7.关不掉窗口:
WScript.Echo("嘿,谢谢你打开我哦,我等你很久啦!"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉,这你都不知道吗?")
WScript.Echo("怎么才来,说~是不是不关心我")
WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。")
WScript.Echo("小强很生气,后果很严重哦。")
WScript.Echo("嘿嘿!你也会很惨滴哦")
WScript.Echo("是不是想清除我?")
WScript.Echo("那你要点上50下哦,不过会给你惊喜滴")
WScript.Echo("还剩49下,快点点哦")
WScript.Echo("还剩48下,快点,小笨蛋!")
WScript.Echo("还剩47下对,就这样快点点!")
WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。")
WScript.Echo("还剩45下,记得要快哦!")
WScript.Echo("还剩13下停停!!!慢点,我有话要说")
WScript.Echo("还剩12下,你继续点我就会消失滴")
WScript.Echo("还剩11下,以后就看不到我拉。555555")
WScript.Echo("还剩10下,你现在可以选择停止!")
WScript.Echo("还剩9下。你还点啊,不要我拉?")
WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家")
WScript.Echo("还剩7下。疯了,你有点负意!")
WScript.Echo("还剩6下。对。你就点吧,我恨你!")
WScript.Echo("还剩5下,不明白,删除我你就好吗?")
WScript.Echo("还剩4下!真要删除我?")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛,人家是爱你的!")
WScript.Echo("还剩1下。哼,既然你这么绝情。也别怪我无义!!!")
WScript.Echo("我本因该消失的,不过我留恋你滴芳容,上帝又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
8.恶搞:
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪,不说我是猪就一分钟关你机,不信,你试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,呵呵,猪"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真嗨皮"