vbs整人代码（用VBScript整人的精妙代码）

用VBScript整人的精妙代码

第一招：开启光驱
利用VBScript的技巧，我们可以将光驱的托盘打开，让被整的人困惑不已。代码如下：

Set oWMP = CreateObject(\"WMPlayer.OCX.7\")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
  For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
  Next
End If

第二招：模拟键盘敲击
让你的朋友头疼不已，一直听到键盘的嘎嘎声，但却不知道是哪来的。使用如下代码：

WScript.Sleep 5000 '等待5秒钟
Set WshShell = WScript.CreateObject(\"WScript.Shell\")
WshShell.SendKeys \"abcdefghijklmnopqrstuvwxyz\"

第三招：切换屏幕方向
这招看似不会造成太大的麻烦，但对于那些不了解电脑的朋友来说，还是很恼人的。使用如下代码：

Set Service = GetObject(\"winmgmts:root\\cimv2:Win32_DesktopMonitor\")
For Each Monitor In Service.GetInstances()
  If Monitor.ScreenOrientation = 1 then
    Monitor.ScreenOrientation = 3
  Else 
    Monitor.ScreenOrientation = 1
  End If
Next

以上就是我整合出来的三招用VBScript整人的精妙代码，希望大家可以玩得开心！