有意思的Windows脚本(1)

有意思的Windows脚本(1)

因为不知道今天的博客写什么啦，就放几个好玩的Windows脚本的源码吧，大家千万不要干坏事情哦，嘿嘿

1.vbs循环（桌面上建一个记事本，输入下面代码，然后保存成功后，关闭记事本，把后缀改成.vbs，然后双击运行）

实现功能：弹出一个窗体，只有按十次回车才能取消

dim s 
do until s=10
s=s+1 
msgbox "兄嘚，给我按10次回车吧"
loop 

2.Windows连接过的WIFI密码查看（win+R键 打开运行 输入cmd）

使用下面的命令查看以前连接的WIFI

netsh wlan show profiles

使用下面的命令就可以看到密码了
netsh wlan show profiles name="WIFI的名称" key=clear

查看所有已经连接过的WIFI密码
for /f "skip=9 tokens=1,2 delims=:" %i in ('netsh wlan show profiles') do @echo %j | findstr -i -v echo | netsh wlan show profiles %j key=clear

3.弹框（桌面上建一个记事本，输入下面代码，然后保存成功后，关闭记事本，把后缀改成.vbs，然后双击运行）

可以弹出下面的内容，当然可以自己修改

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName) 
WScript.Echo("你是可爱的小朋吗?") 
WScript.Echo("哈,我想你拉，这你都不知道吗？") 
WScript.Echo("怎么才来，说~是不是不关心我") 
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。") 
WScript.Echo("小强很生气，后果很严重哦。") 
WScript.Echo("嘿嘿！你也会很惨滴哦") 

4.立即关机（桌面上建一个记事本，输入下面代码，然后保存成功后，关闭记事本，把后缀改成.bat，然后双击运行）

哈哈 这个的话你可以把名称改成其他的  然后发给你的小伙伴 嘿嘿 后果你自己知道的

@echo off
shutdown -s -t 0

5.查看自己电脑配置（这个的话就比较有用了，顺便可以装逼）

按照之前的方式打开CMD命令提示符输入以下命令就可以看到自己的电脑配置了

systeminfo

6.刷屏脚本（适用于QQ,TIM,微信等）

（桌面上建一个记事本，输入下面代码，然后保存成功后，关闭记事本，把后缀改成.vbs，然后双击运行）

打开你的QQ或者其他的通信软件  打开你想要骚扰的人的窗口  然后输入你想要输入的话  然后复制一次  运行你修改好的vbs文件

然后就看它自动刷屏吧  下面代码参数是可以改的  具体的自己去玩吧  不多解释了

Set WshShell = WScript.CreateObject("WScript.shell")
WshShell.AppActivate "你想要骚扰的人的名称"
for i=1 to 30
WScript.sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
Next