一些有趣的命令行

1.叫爸爸

后缀为 vbs

msgbox "我的好孩子",vbQuestion,"在吗"

msgbox("快叫爸爸")

msgbox ("赶紧叫")

msgbox ("叫不叫")

msgbox ("快叫呀")

msgbox ("怎么还不叫")

msgbox ("想好了没")

msgbox ("快叫吧")

msgbox("啥？还不想叫？")

msgbox ("给你最后一次机会")

dim j





do while j<1

Select Case msgbox("叫爸爸",68,"不叫爸爸")

Case 6 j=1

Case 7 msgbox("再给你一次机会")

end Select

loop



msgbox("我就知道你会叫，哈哈哈哈")

2.循环发送剪切板内容

vbs

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "小苦力的memo"
For i = 1 To 28
    ' 循环三次
    WScript.Sleep 500
    ' 每次休眠一秒定位窗口，发送消息，建议直接点击窗口输入框
    WshShell.SendKeys "^v"
    ' 粘贴剪切板内容
    WshShell.SendKeys i
    ' 输出循环次数
    WshShell.SendKeys "%s"
    ' 发送
Next

3.隐藏文件自动回复

cmd

for /f "delims=?" %%a in ('dir /a /b') do attrib -a -s -h -r "%%a"

4.定时关机（以毫秒计）

bat

shutdown -s -t 10