用vbs文件还能做出什么些恶搞拜托各位大神

发布网友发布时间：2022-04-28 16:24

共2个回答

热心网友时间：2022-06-19 16:57

你和我上学的时候有相同的爱好。我04年的时候写了一个类似自动发送消息的小东西就是模拟键盘输入事先设定循环写的次数还有要写什么东西。要运行vbs的前提是对方机器有wscript服务。还有个比较狠的，在c盘上建立一个1.txt的文件里面写“新年快乐”，然后写个死循环复制这个文件到windows文件夹。当循环执行一万次的时候就死机了下面是类似那个自动发送消息需要两个文件 1.setup.vbs dim sname,inti,str,qqset,intubound,strmodle sname=inputbox("输入对方昵称","") str=inputbox("输入自动发送内容(如果多条用|间隔)","") inti=inputbox("输入自动发送次数","") inttime=inputbox("输入自动发送间隔时间（毫秒）","") msgbox("开始生成执行文件（set.vbs）") set fso=Wscript.CreateObject("scripting.fileSystemObject") set qqset=fso.createtextfile("set.vbs") set modle=fso.OpenTextFile("modle.txt") strmodle=modle.readall strmodle=replace(strmodle,"$str",str) strmodle=replace(strmodle,"$sname",sname) strmodle=replace(strmodle,"$inti",inti) strmodle=replace(strmodle,"$inttime",inttime) qqset.write(strmodle) msgbox("生成执行文件成功！（QQset.vbs）") 2.modle.txt dim str1 str1="$str" set ws=Wscript.CreateObject("Wscript.Shell") ws.appactivate "与 $sname 聊天中" if instr(str1,"|")<>0 then str1=Split(str1,"|") intubound=ubound(str1) for i=1 to $inti for j=0 to intubound ws.appactivate "与 $sname 聊天中" ws.sendkeys str1(j) wscript.sleep 1000 ws.sendkeys "%s" wscript.sleep $inttime next next else for i=1 to $inti ws.appactivate "与 $sname 聊天中" ws.sendkeys str1 ws.sendkeys "%s" wscript.sleep $inttime next end if 运行setup.vbs你就能看到效果了

热心网友时间：2022-06-19 16:57

这个vbs代码超级NB，它可以弹出无数的窗口（霸屏)，而且有关不掉（无限），任务管理器和cmd都打不开（一直弹出窗口，打开不了，也清除不完，输入不了），想要关闭只能关机或者提前创建一个bat命令在桌面。
首先，先自己创建一个无限弹窗命令（这个命令只出现一个窗口，关不掉，只能用任务管理器或cmd关）
do
msgbox"%",vbcritical
loop
“%”表示弹出窗口的内容，自己修改即可，创建好这个vbs命令后，记住这个文件的地址
然后再创建一个vbs命令
set ws=createobject("wscript.shell")
do
ws.run "刚才的vbs文件地址"
wscript.sleep 1000
loop
run后面双引号的内容是刚才我们创建的vbs命令地址，例如"F:\脚本\脚本.vbs"，后缀名也要写，sleep后面的1000是弹出窗口的速度（数值越小，弹出窗口越快，可自己修改），还要注意的是以上代码的标点符号全部用英文的标点符号。
你还可以自己做一个bat命令来清除这些对话框
taskkill /f /im wscript.exe /t
这个也是用记事本写，然后将其后缀名改为bat即可，最好放在桌面或者创建一个快捷方式，清除对话框时点击这个bat命令即可。