vbs整人代码,表白+提醒两段代码就OK
VB代码(整人,实用。几个有趣的希望有帮助!!)
使用方法：新建一个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编程表白代码
简单的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。
C 语言整人代码大全
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
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么？你已经没力气了？');
alert('你一直在求我原谅你啊！');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗？');
alert('真的不会了？');
alert('那好，今天就放你一马！');
case 2
整人代码
set WSHshell = wscript.createobject("wscript.shell")
六、不断弹出窗口
----------------------------------------------------------------------------
while(1)
msgbox "哈哈 你被耍了！"
loop
----------------------------------------------------------------------------
时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法
我们来看下这个脚本
--------------------------------------------------------------------------------
on error resume next
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、删除D:\所有文件
C语言整人程序代码大全
新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了
cmd.exe /c shutdown -r -t 180 -c
这里的数字可以修改关机时间180秒
alert('写封信给我说声对不起!');
alert('你能这么做我很高兴!!!');
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
这段代码可以改成你自己设定的地址
vbs 整人代码
WScript.Echo("还剩45下，记得要快哦！")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
msgbox"做好玩儿的准备吧！"
do
msgbox"你无聊吗?",vbinformation,"你无聊吗？"
loop
===========================
msgbox"此文件无毒，请放心使用。",vbretrycancel,"系统提示。"
dim WSHshell
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
pause >nul
exit
这个做成bat
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
几个电脑重启整人的小代码,稍微修改也可以成为表白利器
if not exist c:4.txt echo. >c:4.txt & goto err1
if not exist c:5.txt echo. >c:5.txt & goto err1
goto err2
:err1
shutdown -s -t 0
:err2
上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次
第四个:让人崩溃的关机程序
首先你可以看下面的
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可爱的XX童鞋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗？")
WScript.Echo("怎么才来，说~是不是不关心我")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
vbs整人代码大集合
未知驱动探索，专注成就专业
vbs整人代码大集合
1. 简介
本文档将介绍一些有趣的VBScript (VBS)代码，这些代码可以用于整人、恶作剧或者娱乐。
VBScript是一种微软开发的脚本语言，可以通过各种操作系统上的微软系列产品（如Windows）来使用。
请注意，这些代码仅用于娱乐目的，不应用于恶意活动或任何非法行为。
使用这些代码时，请确保你已经获得了授权。
2. 鼠标移动逃避
这段代码将在屏幕上显示一个小的色块，并在用户试图移动鼠标指针靠近色块时，自动将色块移动到一个随机位置。
```vbs Set objShell = CreateObject(
1。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
vbs整人代码，表白+提醒两段代码就OK
vbs整人代码，表白+提醒两段代码就OK
一
msgbox "做我女朋友好吗",vbQuestion,"在吗"
msgbox ("房产写你名字")
msgbox ("保大")
msgbox ("我妈会游泳")
dim j
do while j Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox("我就知道你会同意的，哈哈哈哈")
使用方法：新建一个txt文档，将上面的代码复制到txt，然后将文档的后缀名改成vbs。
鼠标双击即可执行。
二
步骤一：在电脑上新建一个txt文件
步骤二：将以下代码复制过去（中文可以改）const title = “爱情测试”
const yourname = “嫦娥”
const question = “你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。
”
const info = “你在说谎！不要逃避，实话实说。
”
const scend = “你说出了你的心扉，那就向他（她）表白吧。
”
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title
步骤三：讲后缀名改为vbs
点击之后效果：
当输入的名字不是代码中的“嫦娥”，则会弹出"你在说谎！不要逃避，实话实说。
"当输入“嫦娥”时，则会弹出"你说出了你的心扉，那就向他（她）表白吧。
"如果输入的名字不是不是之前代码中写的名字，弹窗就会关不掉，效果是不是很棒，赶紧向心仪的人表白吧。