精华内容
下载资源
问答
  • 高端表白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

    这个表白vbs可以生成心形,没有套路可以放心使用。
    代码如下:

    Set Seven = WScript.CreateObject("WScript.Shell")
    msgbox"我爱你!"
    seven.Run "notepad",3
    WScript.Sleep 1000
    seven.SendKeys "+^"
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "      **      **"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "     ****    ****"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "    ******  ******"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "   ****************"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "    **************"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "     ************"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "      **********"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "       ********"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "        ******"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "         ****"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "          **"
    WScript.Sleep 200
    seven.SendKeys "~"
    WScript.Sleep 200
    seven.SendKeys "I love you"
    seven.SendKeys "+1"
    

    效果总是出错。这里放张图就OK了:
    效果图
    代码使用方法:
    把上面那段代码复制到一个txt文本文档里面,想要加什么随便加,就是不要在这段代码的中间插入代码,操作不慎会出错。
    保存完毕后把后缀名从txt修改为vbs或者vbe,你说你的电脑没有显示后缀名?不用问我自己百度去。
    好了,这期教程就是这样,再见!

    展开全文
  • 一个心形的vbs小程序,外加一个web页面的恶搞,跳转邮箱的,如有需要页面跳转邮箱中的发邮件,可以参考下
  • 表白vbs程序

    2018-07-17 12:38:51
    表白vbs程序,自己本人编写的,添加了声音的代码,也可以自行修改。
  • 简单易懂的表白vbs 新人推荐 加油兄弟你会追到你的女神的
  • 高级表白6666.vbs

    2020-07-02 22:34:00
    高级表白vbs文件!可以画出爱心,还可以发送一些东西!
  • 表白代码表白代码表白代码.vbs
  • 表白程序vbs

    2018-08-17 17:33:53
    程序员表白小程序
  • 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表白神器

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

    2018-09-06 14:58:59
    vbs可以用于表白女生也可以用于说平时嘴上说不出口的东西
  • vbs表白程序媛

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

    1、做我女朋友非同意不可.vbs

    msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?")
    msgbox ("自从第一天遇见你,我便对你难以忘怀了!")
    msgbox ("做我女朋友好吗?")
    msgbox ("房产写你名字")
    msgbox ("保大")
    msgbox ("我妈会游泳")
    dim j
    do while j<1
    Select Case msgbox("做我女朋友好吗?",68,"请郑重的回答我!")
    Case 6 j=1
    Case 7 msgbox("再给你一次机会")
    end Select
    loop
    msgbox("我就知道你会同意的,哈哈哈哈!!")

    2、做我女朋友不同意就关机.vbs

    msgbox("你不知道,这个代码我早已写好,直到今天才有勇气发给你。请你点击确定,耐心的看完!")
    msgbox("曾几何时,我一直以为自己是一艘船。木已成舟,不知何时靠岸?")
    msgbox("但自从遇到你,我的罗盘就开始不停地打转。")
    msgbox("我在海里徘徊,")
    msgbox("我在礁石附近游荡,")
    msgbox("最终,我还是搁浅在了你的岸边。")
    x=msgbox("我不想再孤独下去,做我女朋友吧!",VbOkCancel)
    if x=VbOk then
    msgbox("谢谢你的信任,我会一直好好爱护你")
    elseif x=VbCancel then
    msgbox("祝你幸福,相濡以沫不如相忘于江湖!")
    msgbox("电脑将会关机,再见!")
    set ws=createobject("wscript.shell")
    ws.run"cmd.exe /c shutdown -s -f -t 0"
    end if

    3、爱情测试.vbs

    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
    

    注:文件编码:ANSI

    展开全文
  • vbs表白代码.zip

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

    2019-08-05 23:16:45
    抖音流行的表白代码,vbs代码,很多人看教程也不会于是就自己做了一个免费送给大家
  • 抖音vbs表白代码大全分享,最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法,感觉非常的有趣。不过不少玩家还不知道怎么弄的,下面就来一起看下制作方法吧
  • 表白软件脚本,vbs

    2020-08-27 18:29:07
    表白脚本,打开即可运行,无毒无害,后缀改成vb就可以看源码,欢迎互相交流,就五个积分,为了您的终生大事,下载一下吧
  • 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表白代码+整人代码,抖音vbscript表白代码

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

    万次阅读 多人点赞 2018-08-17 22:48:59
    步骤二、点击【文件】→【另存为】→【文件名:后缀改为 .vbs (示例:Play.vbs)】→【保存类型:所有文档】 注:  代码中  “ ”  内的 中文 均可以修改为你喜欢的内容。 效果如下图所示: ...
  • 自己写的表白小神器,女神分分钟到手,还在等什么下载下载!
  • s -f -t 0" end if msgbox("")括号里的内容可以自己更改 cmd.exe /c shutdown -s -f -t 0为关机代码 可以自己修改关机时间把0改成自己希望的数,是以秒为单位 写好脚本后保存将后缀名改为vbs就可 若不可运行进入txt...
  • VBS高端表白升级版

    千次阅读 2020-05-17 19:12:23
    Set Seven = WScript.CreateObject("WScript.Shell") Sub ax seven.Run "notepad",3 WScript.Sleep 1000 seven.SendKeys "+^" seven.SendKeys "~" WScript.Sleep 200 ... 原版链接为:高端表白VBS 保存方式请参照上文。
  • vbs整人代码,表白+提醒 两段代码就OK

    万次阅读 多人点赞 2018-06-16 20:27:27
    在沉闷的工作环境下,有时玩玩整人代码也不错,整人代码一般使用VBS脚本来实现,简单的两行代码就可以实现表白+提醒了,不过大家也要警惕VBS脚本的危险性,下面小编分享的只是整人简单脚本,大家可以随便玩!...
  • vbs脚本,表白程序

    2014-08-14 14:16:07
    程序不是我写的!!! 觉得好奇的同学可以下载来看看啊 哈哈哈

空空如也

空空如也

1 2 3 4 5 6
收藏数 117
精华内容 46
关键字:

表白vbs