抖音vbs整人代码如何开机启动 cmd恶搞代码大集合
大家好,今天是为大家分享一下抖音vbs整人代码如何开机启动的一些困惑,接下来将为大家分享,希望可以帮助到大家,解决大家的问题,下面就开始吧!
抖音vbs表白代码怎么用
最近好像某音上vbs表白挺火的
小姐姐们都受不了这种撩人的套路呢
那我就为广大男同胞分享一个哦!!先创建一个空文本,然后将下面分割线里的复制粘贴进去
汉字部分就自行选词代替啦!!!!
——————————————我是分割线——————————————
msgbox"啊哈哈哈哈哈哈!想不到吧!"
msgbox"先问个简单的问题,我经常和你说你一定知道"
const title="啊哈哈哈哈一定要做完啊"
const yourname="XXX纪念日"
const question="今天是个特殊的日子呐,你记得是什么日子吗?"
const info="不对不对,XXX说错了。给一个提示 XXXJNR"
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
msgbox"嗯嗯,不错不错,看来低能小白在爸爸的调教下冰雪聪明了许多啊=="
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("做我女朋友好吗")
msgbox("不能拒绝")
msgbox("房产证写你名")
msgbox("我保大")
msgbox("我妈会游泳")
msgbox("你腿长")
msgbox("你漂亮")
msgbox("心是你的,肉体也是你的,每一块腹肌都是你的")
msgbox("只做你的XXX")
do while j<1
Select Case msgbox("那么,,做我女朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox"哈哈哈哈,好乖"
msgbox"做到这一定是通关了"
msgbox"啾咪!"
——————————————我是分割线——————————————
亲手做的质量比较高哦!
再之就是将txt改成vbs就OK了!
有没有觉得时机已经成熟的同胞们可以试试哦!
在不追到手就是别人家的女票啦!
抖音发的vbs怎么做的
需要工具:电脑
一、首先,现在桌面新建一个TXT文本文档,鼠标右键,依次选择新建、文本文档,如下图。
二、打开该文档,在其中输入msgbox,后面加上括号和引号,注意,这里的字符都是英文格式,若是中文会不成功哦。
三、接着,可以多输入几行,其中引号内的中文需要自己想,感人也好,搞笑也好,都可以。
四、然后,点击上方菜单栏文件、保存。
五、可以重命名一下,比如写个【惊喜哦】。
六、然后,将当前的TXT扩展名修改成VBS,可以看到文件样子,出现变化了。
七、鼠标双击该文件,神奇的一幕出现了,一直有对话框提示出来,跟刚才在文本中输入的一样。
好了,本文到此结束,如果可以帮助到大家,还望关注本站哦!