论看了别人抖音vbs表白后

 

第一个、

打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。

msgbox("做我女朋友好吗?")

msgbox("房产证上写你名字")

msgbox("保大")

msgbox("我妈会游泳")

然后把文件后缀名改成.vbs,这是最基本的,没有逻辑。

若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。

 

第二个、

 

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我,否则会被关机......"" ",0 ,true 

dim a

do while(a <> "我愿意")

    a = inputbox ("你愿意嫁给我么","爱的表白","",8000,7000)

    if( a <> "我愿意" ) then

        msgbox "不愿意么?再考虑一下哦"

loop

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true 

msgbox "哈哈哈哈,好乖"

 

 

里面的汉字自己改成合适的。

如果对方不愿意,真的会被关机哦,请谨慎使用。

第三个、

 

dim a
a="从我见到你的第一眼开始"
msgbox a
dim b
b="我就喜欢你了"
msgbox b
dim c
c="......"
msgbox c
就这样一直下去想多长就多长 a
a="从我见到你的第一眼开始"
msgbox a
dim b
b="我就喜欢你了"
msgbox b
dim c
c="......"
msgbox c
就这样一直下去想多长就多长

第四个、

 

在桌面新建文本文档。然后打开输入如下代码:

const title = "爱情测试"

const yourname = "范冰冰"

const question = "你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。"

const info = "你在说谎!不要逃避,实话实说。"

const scend = "你说出了你的心扉,那就向他(她)表白吧。"

dim youranswer

do

youranswer = inputbox(question, title)

if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title

loop until youranswer = yourname

msgbox scend, vbinformation+vbokonly, title

 

第五个、

http://jujuba.top/love

这个链接可以直接在手机端发送,点开就是以上的效果,

qq和微信均可发送,微信反应速度会快一点,如果对于不想发送脚本的人来说,

这个最简单了。

 

 

因为本人学的是python,并不是,所以也都是借鉴居多,希望对大家表白有点帮助。

因为,这个真的比较简单,只需要一个脚本文件就行,大家尽情使用吧。

用完觉得好用的小主回来点个赞。

阅读更多
个人分类: 资料分析
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭