【程序员】多久没有真诚表白了？新晋表白神器了解一下（让你感动到哭出声来~）-CSDN博客

本文链接：https://blog.csdn.net/weixin_55822277/article/details/122923737

导语

一年有365天，某一天在重要的节日来临的时候（比如情人节、七夕......）

你是否曾想着有朝一日，你的意中人会踏着七彩祥云来对你表白（可能是猴子）！

或者骑着白马轻声温柔地对你说一句“我爱你”（别开心的太早，要记得唐僧骑的可是白马哟！）……

但无论是哪一种吧，你一定经历过或者想象着“被表白”吧！

表白方式千千万，有的人拿着花、有的人拿着礼物、也有人发红包……，但是你一定还没遇见过，

拿程序代码表白吧！（你遇见过没？）

那今天，天时地利，小编就鼓起勇气，拿着程序代码对你花样表白吧！

前方高能，请各自备好纸巾！因为如果现实中你要这样被表白（撩），如果不暴躁骂对方是神经

病，那一定会被感动到哭。（除非是真爱）文末见源码撒！

正文

一、表白小代码

1）vbs第一类

option explicit
on error resume next
dim answer
dim wshshell
set wshshell=createobject("WScript.shell")
wshshell.run"shutdown/f/s/t70/c输入’我要做你男朋友’否则70秒后关机",0
do while answer<>"我要做你男朋友"
answer=inputbox("输入,我要做你男朋友，否则70秒后关机","哈哈哈 照着做吧",,7000,5000)
loop
wshshell.run"shutdown/a",0
msgbox"来打我啊",,"我爱你"

2）vbs第二类升级

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop") 
set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")
oShellLink.TargetPath = "http://user.qzone.qq.com/985390927" 
oShellLink.Save
Sub ak47
Set oShellLink=Nothing
seven.Run "notepad",3
WScript.Sleep 500
seven.SendKeys "       I  "
WScript.Sleep 500
seven.SendKeys "L"
WScript.Sleep 500
seven.SendKeys "o"
WScript.Sleep 500
seven.SendKeys "v"
WScript.Sleep 500
seven.SendKeys "e  "
WScript.Sleep 500
seven.SendKeys "Y"
WScript.Sleep 500
seven.SendKeys "o"
WScript.Sleep 500
seven.SendKeys "u  Too"
End Sub

se_key = (MsgBox("你喜欢我吗？",4,"Seven_下午"&Time))
If se_key=6 Then
Call ak47
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("你死定了,在给你一次机会，你喜欢我吗",52,"提示"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "我也喜欢你",,"恭喜"
WScript.Sleep 500
Call ak47
Else 
MsgBox "你可以去chishi了",48,"wo cao"

就不截图展示了哈，呜呜呜.......关机了好多次关机！