有意思的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

win脚本命令 rem 和 windows命令脚本怎么写_bat

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

win脚本命令 rem 和 windows命令脚本怎么写_win脚本命令 rem 和_02

win脚本命令 rem 和 windows命令脚本怎么写_win脚本命令 rem 和_03


查看所有已经连接过的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