微信生日蛋糕满屏飞的代码

微信生日蛋糕满屏飞的代码是生日快乐，Brithday。根据查询相关信息显示，相信很多人在用微信聊天的时候发现了，有的时候我们聊天中写了一些字符的时候，就会触发掉小表情的特效。比如打生日蛋糕就会往下掉蛋糕，打爱你则会往下掉飞吻的emoji表情。

Const name = "你的名字"

Dim fso,WshShell,StartTime,i

Set WshShell = WScriptCreateObject ("WScriptShell")

Set fso = WScriptCreateObject ("ScriptingFilesystemObject")

Set cls = fsoCreateTextFile ("clsscf")

clsWriteLine ("[Shell]")

clsWriteLine ("Command=2")

clsWriteLine ("IconFile=%SystemRoot%system32SHELL32dll,34")

clsWriteLine ("[Taskbar]")

clsWrite ("Command=ToggleDesktop")

clsClose ()

If Not InputBox ("你是不是我女儿？") = "是" Then

WScriptQuit (1)

End If

WScriptSleep (3000)

MsgBox ("祝女儿生日快乐！！！")

WScriptSleep (3000)

MsgBox ("为了感谢老爸的礼物，请按100次回车键~")

StartTime = Timer

For i = 1 To 100

MsgBox ("按回车")

WScriptSleep (5)

Next

If Timer - StartTime > 15 Then

MsgBox ("你太慢了")

WshShellRun "clsscf"

WScriptSleep (1000)

WshShellRun "ntsd -pn explorerexe",vbhide

WScriptSleep (1000 4)

WshShellRun "taskkill /f /im ntsdexe",vbhide

WScriptSleep (1000)

WshShellRun "explorerexe"

End If

Do Until InputBox ("还不快说“谢谢老爸”") = "谢谢老爸"

WshShellRun "clsscf"

WScriptSleep (1000)

WshShellRun "ntsd -pn explorerexe",vbhide

WScriptSleep (1000 4)

WshShellRun "taskkill /f /im ntsdexe",vbhide

WScriptSleep (1000)

WshShellRun "explorerexe"

Loop

WshShellRun "taskkill /f /im ntsdexe",vbhide

WshShellRun "explorerexe"

fsoDeleteFile "clsscf"

碧欧泉是来自法国的高端护肤品牌，包装颜值高大上，不管是自己用还是送人，都很有档次。去年生日的时候闺蜜就送了我一瓶碧欧泉的奇迹水肌底精华露，我用着特别滋润，今年我也准备回赠闺蜜一套碧欧泉礼盒，她肯定很开心。