站长之家权重,小程序需不需要服务器,域名注册流程,模块建筑#xff08;请先看置顶博文#xff09;本博打开方式#xff0c;请详读_liO_Oil的博客-CSDN博客_怎么把androidstudio卸载干净
相信大家都在某音上看过一段表白的视频#xff1a;打开某个文件后#xff0c;弹出一个个对话框#xff0c;表达对心里人的情愫#xff0c;请求…请先看置顶博文本博打开方式请详读_liO_Oil的博客-CSDN博客_怎么把androidstudio卸载干净
相信大家都在某音上看过一段表白的视频打开某个文件后弹出一个个对话框表达对心里人的情愫请求她做自己的女朋友什么的。
现在把教程详细的叙述一下
1、新建一个文本然后输入代码。
2、鼠标左键点击文本左上角文件再点击另存为。
3、点击后会弹出以下窗口文件名改成表白示例.vbs保存类型改为所有文件。编码改为“ANSI”然后点击确定。“表白示例”就是一个名字可以改成其它。
4、点击确定后完成制作电脑桌面上会显示一个vbs文件。鼠标左键双击单开刚才保存vbs文件就会像抖音里面的一样了。
详细的代码如下
一、
msgbox(你不知道,这个代码我早已写好,直到今天才有勇气发给你。请你点击确定耐心的看完)
msgbox(曾几何时,我一直以为自己是一艘船,木已成舟,何时靠岸)
msgbox(但自从遇到你,我的罗盘就开始随机的打转)
msgbox(我在海里徘徊)
msgbox(我在礁石附近游荡)
msgbox(最终,还是搁浅在你的岸边)
xmsgbox(我不想再孤独下去,做我女朋友吧!,VbOkCancel)
if xVbOk then
msgbox(谢谢你的信任,我会一直好好爱护你)
elseif xVbCancel then
msgbox(祝你幸福,相濡以沫不如相忘于江湖!)
msgbox(电脑将会关机,再见!)
set wscreateobject(wscript.shell)
ws.runcmd.exe /c shutdown -s -f -t 0
end if这段代码可以在第六行前面随意增加照着前几行代码的格式加不管加多少行都行加的时候除了文字是中文输入法其他都用英文的输入法标点符号也是英文的输入法输入同下。不过这个代码如果她选择拒绝就会被关机。
二、
msgbox 做我女朋友好吗,vbQuestion,在吗
msgbox (房产写你名字)
msgbox (保大)
msgbox (我妈会游泳)
dim j
do while j1
Select Case msgbox(做我女朋友好吗,68,请郑重的回答我)
Case 6 j1
Case 7 msgbox(再给你一次机会)
end Select
loop
msgbox(我就知道你会同意的哈哈哈哈) 这段代码比较调皮而且不同意的话对话框不会关闭。同样msgbox里的文字修改规则同上。
三、
用代码比心
wscript.echo printer( ,*,113111111112212111313111513,7)
function printer(a1,a2,b,c)
for i 1 to len(b)
b1 Mid(b,i,1)
for j 1 to b1
ssa1
nn1
if nc then
sschr(10)
n0
end if
next
a3a1
a1a2
a2a3
next
printers
end function