说我们“90技术控”不懂代码是不存在的！接下来放大招~
操作方法：把代码保存为*.VBS运行即可
一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。
![]()
表白
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
![]()
dim a
a="从我见到你的第一眼开始"
msgbox a
dim b
b="我就喜欢你了"
msgbox b
dim c
c="......"
msgbox c
就这样一直下去想多长就多长
![]()
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 “不愿意么？再考虑一下哦"
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "哈哈哈哈，好乖"
![]()
msgbox("做我女朋友好吗？")
msgbox("房产证上写你名字")
msgbox("保大")
msgbox("我妈会游泳")
![]()
步骤一：
在电脑上新建一个txt文件。
![]()
步骤二：
打开txt文件，复制以下代码粘贴进去，保存并关闭txt文件。
![]()
步骤三：
![]()
将txt文件名称后面的“.txt”改为“.vbs”。
步骤四：
打开文件，即可看到效果！
![]()
注意事项：
若新建的txt文件不显示“.txt”，可随便打开一个文件夹，再点击【查看】，在【文件扩展名】前面打勾即可。
警告：
代码仅供参考，至于你怎么使用，出来的严重后果，都与本公众号无关！公众号不会负者任何责任！谢谢配合~请合理的应用代码！（文章来源于互联网收集）
今日无关键词
如果你想获得同款（软件/网站/教程/资源/小程序），请关注公众号“90技术控”后台回复以上关键词即可获得你想要的内容。
![]()
温馨提示：①“90技术控”公众号内提供的全部资源皆为无偿分享，资源都是来自于网络搜集和小伙伴们的提供，仅供学习&交流（禁商用），本公众号不参与任何版权问题，如有侵权，请联系删除！
②每期文章底部都会有相应关键词，只有在关注完公众号内正确的回复关键词才会获得相关资源，搜索关键词必须为精确关键词！（你可以复制文章底部的关键词，不包括文章底部的符号）不能错一个字和字符，区分大小写，不能有多余的符号，感谢大家的支持与理解！
③如需遇到外文网站或其他语种网站，先在你打开的网站中寻找你能看懂的语言，同时，如果没有你想要的的语言，建议你可以利用自带翻译功能的浏览器进行翻译，如果打开链接公众号内容没有反应或者长时间打不开，建议先检查自己的网络原因，如果微信打不开的话建议把链接复制到（手机或者电脑）的自带浏览器进行查阅。
④由于我们公众号内部功能比较多，大家不懂得先可以尝试在菜单栏中找到对应的帮助，如果还不会的话可以咨询一下人工服务！感谢你的支持与理解！
“90技术控”
不一样的黑科技技术平台
![]()
|
|
转播
