前言:最近大火的"某音"中, 有的人用txt文档写了个表白的程序, 发给身边的朋友或姑娘, 很有意思, 所以我就去研究了一下，发现是用VB写的, 在这里分享给大家.先看效果图
整蛊.gif
图片效果容易看不懂, 口述一下:
双击程序, 会弹出框(我帅么?)
a. 选择是, 就会弹出txt文档并自动打出I Love You
b. 选择否, 电脑将会提示定时关机, 并且再弹出选择框
c. 再选择是, 和上述是一样
d. 再选择否, 程序结束, 电脑将会定时关机
注:为什么要用定时关机, 其实也可以直接将对方关机, 但毕竟是整蛊, 举个例子, 如果对方没有保存写了一天的文档, 因为这个玩笑丢失了, 估计会打死你吧, 哈哈
具体步骤(很简单, 可粘贴复制)
1.创建个txt文档
2.在文本中写入如下代码
- '这个符号开头的是注释, 不影响代码
- 代码中的中文可以随便修改
- 备注我写的还是比较详细的, 而且程序也很简单, 有兴趣可以研究下
'创建WScript对象, WScript.Shell是WScript对象的ProgID
Set MyWScript = WScript.CreateObject("WScript.Shell")
'提供 WshSpecialFolders 对象，用于访问某些 Windows 外壳文件夹，例如桌面文件夹、开始菜单文件夹，以及个人文档文件夹等。
strDesktop = MyWScript.SpecialFolders("AllUsersDesktop")
'这里打个小广告, 这几步创建快捷方式的没啥用, 哈哈
set oShellLink = MyWScript.CreateShortcut(strDesktop & "\CoderW的简书.url")
oShellLink.TargetPath = "//www.greatytc.com/u/d85b089a04fe"
oShellLink.Save
'创建过程语句, 从 Sub 语句后的第一个可执行语句开始，到遇到的第一个 End Sub、Exit Sub 或 Return 语句结束。
Sub process
'释放内存
Set oShellLink=Nothing
'运行notepad窗口 windowStyle为3(激活窗口并将其显示为最大化窗口)
MyWScript.Run "notepad",3
'暂停500毫秒
WScript.Sleep 500
'发送按键消息到窗口
MyWScript.SendKeys " I "
WScript.Sleep 500
MyWScript.SendKeys "L"
WScript.Sleep 500
MyWScript.SendKeys "o"
WScript.Sleep 500
MyWScript.SendKeys "v"
WScript.Sleep 500
MyWScript.SendKeys "e "
WScript.Sleep 500
MyWScript.SendKeys "Y"
WScript.Sleep 500
MyWScript.SendKeys "o"
WScript.Sleep 500
MyWScript.SendKeys "u"
'结束过程语句
End Sub
'创建弹窗, 4:显示是否按钮
se_key = (MsgBox("我帅么?",4,"CoderW_"&Time))
'如果点击了是
If se_key=6 Then
'调用过程
Call process
Else
'否则定时关机
MyWScript.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("你死定了,在给你一次机会，我帅不帅?",52,"提示"))
If agn=6 Then
'取消定时关机
MyWScript.Run "shutdown.exe -a"
MsgBox "I Love You",,"嘿嘿"
WScript.Sleep 500
Call process
Else
'48:警告消息图标
MsgBox "拜拜",48,"警告"
End If
End If
3.保存, 将txt文档改成.vbs格式
大功告成, 双击就可以运行看到效果啦!
喜欢的小伙伴点个喜欢或关注吧, 你们的鼓励是我前进的动力!
