精华内容
下载资源
问答
  • vbs表白

    千次阅读 2019-01-27 21:05:37
    dim x,ifx msgbox(“XXX,我们认识半年了,有个问题想问你…...msgbox(“表白成功,开心ing…”) msgbox(“晚上一起吃饭,地方你挑.”) elseif x=vbcancel then msgbox(“为什么要点取消???”) msgbox(“伤心ing…”) ms...

    dim x,ifx
    msgbox(“XXX,我们认识半年了,有个问题想问你…”)
    x=msgbox(“做我女朋友可好?”,vbyesnocancel)
    if x=vbyes then
    msgbox(“表白成功,开心ing…”)
    msgbox(“晚上一起吃饭,地方你挑.”)
    elseif x=vbcancel then
    msgbox(“为什么要点取消???”)
    msgbox(“伤心ing…”)
    msgbox(“请至少给我一个答案好吗?”)
    '此处能否帮忙增加一个ctr让程序回到第3行,执念让我必须得到一个答案,哪怕是被拒绝,也不要被忽略.
    elseif x=vbno then
    msgbox(“哎,被拒绝了…”)
    msgbox(“心痛…”)
    msgbox(“能告诉我为什么吗?”)
    msgbox(“好吧我知道了祝你幸福…”)
    msgbox(“只想让你的电脑10秒后关机…请原谅我…”)
    set ws=createobject(“wscript.shell”)
    ws.run"cmd/c shutdown /s /t 10"
    end if

    展开全文
  • vbs表白文件

    2019-05-05 13:51:56
    vbs 表白文件,里面有我微博的一个说话表白的还有一个是不同意无限循环,大家还是去我微博找吧。本来打算设置1积分的,忘了改了。结果现在改不了了
  • vbs表白代码

    2018-07-08 20:40:08
    抖音爆火vbs表白代码,亲测可用,含if-else选择语句,do-loop循环语句,inputbox()输入函数,功能较多,仅需修改文字即可使用。
  • 抖音vbs表白代码大全分享,最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法,感觉非常的有趣。不过不少玩家还不知道怎么弄的,下面就来一起看下制作方法吧
  • vbs表白代码.zip

    2020-07-27 19:28:10
    vbs表白代码,欢迎使用 部分代码: '声明变量 Dim txt, mypath, sentences '第一步,获取当前的文件路径 '解决了手动改名的问题 mypath = CreateObject("WScript.Shell").CurrentDirectory
  • vbs表白代码制作教程

    千次阅读 2019-09-25 03:24:32
    想知道这是怎么做的,自己也想弄一个,下面小编为大家带来了抖音vbs表白代码制作教程分享,想学习的朋友快来了解一下吧! 抖音vbs表白代码制作教程 步骤一: 在电脑上新建一个txt文件。 步骤二: 打开txt文件,...

     相信很多朋友在刷抖音的时候刷到很多表白程序,很是神奇。想知道这是怎么做的,自己也想弄一个,下面小编为大家带来了抖音vbs表白代码制作教程分享,想学习的朋友快来了解一下吧!
      
      抖音vbs表白代码制作教程
      
      步骤一:
      
      在电脑上新建一个txt文件。
      
      步骤二:
      
      打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。
      
      Set Seven = Ws cript.CreateObject("Ws cript.Shell")
      
      strDesktop = Seven.SpecialFolders("AllUsersDesktop")
      
      set oShelll ink = Seven.CreateShortcut(strDesktop "\Seven.url")
      
      oShelll ink.TargetPath = "http://user.qzone.qq.com/985390927"
      
      oShelll ink.Save
      
      Sub ak47
      
      Set oShelll ink=Nothing
      
      seven.Run "notepad",3
      
      Ws cript.Sleep 500
      
      seven.SendKeys " I "
      
      Ws cript.Sleep 500
      
      seven.SendKeys "L"
      
      Ws cript.Sleep 500
      
      seven.SendKeys "o"
      
      Ws cript.Sleep 500
      
      seven.SendKeys "v"
      
      Ws cript.Sleep 500
      
      seven.SendKeys "e "
      
      Ws cript.Sleep 500
      
      seven.SendKeys "Y"
      
      Ws cript.Sleep 500
      
      seven.SendKeys "o"
      
      Ws cript.Sleep 500
      
      seven.SendKeys "u Too"
      
      End Sub
      
      se_key =http://zzdxjyzd.com/ (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 "好弟弟,你真乖",,"恭喜"
      
      Ws cript.Sleep 500
      
      Call ak47
      
      Else
      
      MsgBox "你可以去死了",48,"wo cao"
      
      End If
      
      End If
      
      步骤三:
      
      将txt文件名称后面的“.txt”改为“.vbs”。
      
      步骤四:
      
      双击改名后的vbs文件即可看到和抖音视频上一样的效果。
      
      注意事项
      
      若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击,在前面打勾即可。

    转载于:https://www.cnblogs.com/dakunqq/p/11438759.html

    展开全文
  • 抖音vbs表白代码在整个制作教程需要对代码的写入有一定的认知,对于具体的教程内容,下面一起来看看相关的介绍吧。抖音vbs表白代码制作教程步骤一:在电脑上新建一个txt文件。步骤二:打开txt文件,复制以下代码粘贴...

    抖音vbs表白代码在整个制作教程需要对代码的写入有一定的认知,对于具体的教程内容,下面一起来看看相关的介绍吧。

    抖音vbs表白代码制作教程

    步骤一:

    在电脑上新建一个txt文件。

    步骤二:

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

    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 "你可以去死了",48,"wo cao"

    End If

    End If

    步骤三:

    将txt文件名称后面的“.txt”改为“.vbs”。

    6e6016c677da5111182f1419b3441f6c.png

    步骤四:

    双击改名后的vbs文件即可看到和抖音视频上一样的效果。

    注意事项

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

    展开全文
  • vbs表白神器

    2018-10-30 17:28:57
    表白神器,女生点开,里面有想说的化,若选择拒绝则会自动关机,慎用。
  • vbs表白小程序

    2018-09-06 14:58:59
    vbs可以用于表白女生也可以用于说平时嘴上说不出口的东西
  • vbs表白代码+整人代码,抖音vbscript表白代码

    万次阅读 多人点赞 2018-09-30 00:47:38
    步骤一: 在电脑上新建一个txt文件 步骤二:将以下代码复制过去(中文可以改) const title = “爱情测试” const yourname = “嫦娥” ...const scend = “你说出了你的心扉,那就向他(她)表白吧。” di...

    步骤一:

    在电脑上新建一个txt文件

    步骤二:将以下代码复制过去(中文可以改)
    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

    在这里插入图片描述

    步骤三:讲后缀名改为vbs

    点击之后效果:点击之后效果

    当输入的名字不是代码中的“嫦娥”,则会弹出"你在说谎!不要逃避,实话实说。"
    在这里插入图片描述

    当输入“嫦娥”时,则会弹出"你说出了你的心扉,那就向他(她)表白吧。"
    在这里插入图片描述

    如果输入的名字不是不是之前代码中写的名字,弹窗就会关不掉,效果是不是很棒,赶紧向心仪的人表白吧。

    展开全文
  • vbs表白程序媛

    2021-02-25 16:56:34
    1、做我女朋友非同意不可.vbs msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?") msgbox ("自从第一天遇见你,我便对你难以忘怀了!") msgbox ("做我女朋友好吗?") msgbox ("房产写你名字") msgbox ("保大") ...
  • 【欢迎白嫖】新·vbs表白代码

    千次阅读 2020-07-27 19:00:50
    新·vbs表白代码 前言         之前有在B站上发布过一个表白代码的视频,但是貌似Bug多的让人心痛,所以,今天返璞归真,重新做了一个表白代码,欢迎各位批评指正! 分析...
  • vbs表白小程序,女生同意才能关掉。

    万次阅读 多人点赞 2018-06-20 09:30:24
    python 交流学习群205075113 msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字") ...使用方法:新建一个txt文档,将上面的代码复制到txt,然后将文档的后缀名改成vbs。鼠标双击即可执行。
  • 抖音快手vbs表白代码大全(操作方法)

    千次阅读 2020-12-08 22:03:45
    抖音快手vbs表白代码大全使用方法前言步骤一:步骤二:步骤三、步骤四、注意事项总结 前言 作为一个真正的程序员,首先应该尊重编程,热爱你所写下的程序,他是你的伙伴,而不是工具。 、、、、、、、、、、、、、、...
  • 论看了别人抖音vbs表白

    万次阅读 多人点赞 2018-06-29 19:06:17
    第一个、 打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它...然后把文件后缀名改成.vbs,这是最基本的,没有逻辑。 若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【...
  • 第二步:命名为:表白代码.txt 第三步:输入一下代码: msgbox("做我女朋友好吗?") msgbox("房子写你的名字") msgbox("保大") msgbox("我妈妈会游泳") 第四步:选择文件--另存为 注意:第四步是关键...
  • 高端又易学的vbs表白程序了解一下

    万次阅读 多人点赞 2018-07-11 17:47:42
    第一个、打开txt文件,复制以下代码粘贴...)然后把文件后缀名改成.vbs,这是最基本的,没有逻辑。若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。第二个、...
  • vbs代码步骤一:在电脑上新建一个txt文件步骤二:将以下代码复制过去(中文可以改)const title = “爱情测试”const yourname = “嫦娥”const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。”...
  • msgbox “做我女朋友好吗”,vbQuestion,”你好我的小可爱” msgbox (“房产写你名字”) msgbox “做我女朋友好吗” msgbox (“我妈会游泳”) dim j do while j&amp;lt;1 Select Case msgbox(“做我女朋友...
  • 表白代码表白代码表白代码.vbs
  • 高端表白vbs

    千次阅读 2020-05-11 17:30:46
    高端表白VBS 这个表白vbs可以生成心形,没有套路可以放心使用。 代码如下: Set Seven = WScript.CreateObject("WScript.Shell") msgbox"我爱你!" seven.Run "notepad",3 WScript.Sleep 1000 seven.SendKeys "+^" ...
  • 表白程序vbs

    2018-08-17 17:33:53
    程序员表白小程序

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 142
精华内容 56
关键字:

vbs表白