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