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

    2018-07-06 16:02:21
    用于向小姐姐表白
  • 表白代码表白代码表白代码.vbs
  • vbs表白代码.zip

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

    2018-07-17 12:38:51
    表白vbs程序,自己本人编写的,添加了声音的代码,也可以自行修改。
  • vbs表白代码+整人代码,抖音vbscript表白代码

    万次阅读 多人点赞 2018-09-30 00:47:38
    步骤二:将以下代码复制过去(中文可以改) const title = “爱情测试” const yourname = “嫦娥” const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。” const info = “你在说谎!不要...

    步骤一:

    在电脑上新建一个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表白小程序

    2018-09-06 14:58:59
    vbs可以用于表白女生也可以用于说平时嘴上说不出口的东西
  • 抖音vbs表白代码大全分享,最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法,感觉非常的有趣。不过不少玩家还不知道怎么弄的,下面就来一起看下制作方法吧
  • 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表白代码

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

    新·vbs表白代码

    前言

            之前有在B站上发布过一个表白代码的视频,但是貌似Bug多的让人心痛,所以,今天返璞归真,重新做了一个表白代码,欢迎各位批评指正!

    分析问题

            对于上一版的代码,我总结出了以下两个问题:
     1.由编码错误引起的输出内容为乱码,或者有类似于"编译器错误","语句未结束",以及"找不到路径"的报错。
    
     2.由代码问题引起的"找不到文件"的报错。
    

    解决问题

            第一个问题是由文件的编码格式错误引起的,现在大多数语言的编码格式是Unicode家族(多为utf-8),而ANSI和utf-8在中文文字编码上恰好出现了偏差,所以出现了不兼容的现象。相关知识请转至: 《编码格式简介(ANSI、GBK、GB2312、UTF-8、GB18030和 UNICODE)》
    所以要注意修改vbs文件的编码格式。
            修改编码的方法很简单,只要用记事本打开文件,点击’文件’->‘另存为’,在下面的编码格式里选择为ANSI即可。
            (如下图)
    修改编码格式1
    修改编码格式2
            在上一次的代码中,想要运行自身需要在代码内定义好自己的路径。
    原代码
            所以这次我们直接用代码完成获取自身路径的任务,这样大大增加了代码的可移植性。

    新的实例

            大体思路是在另一个txt文件内写入想要输出的内容,这样增加了脚本的灵活性,因为你可以自己随心所欲地添加和删减语句了。想要同时输出一个多行的句子只需要在每个需要换行的地方加入一个自定义的换行标记"[\n]"即可,之后会由脚本的Relpace()函数完成转换。话不多说,直接上代码:

    '声明变量
    Dim txt, mypath, sentences
    
    '第一步,获取当前的文件路径
    '解决了手动改名的问题
    mypath = CreateObject("WScript.Shell").CurrentDirectory
    
    '创建一个对象来读取目标文本文档的内容
    Set txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(mypath + "\base.txt", 1)
    sentences = Split(txt.ReadAll(), Chr(10))'回车键的ASCII码值是10,这里是用回车来分割句子。返回值是一个数组
    For i = 0 To UBound(sentences) - 1
    	sentences(i) = Replace(sentences(i), "[\n]", Chr(10))'把所有句子内的字符串"[\n]"换为换行符,做到第一行是英文,第二行是中文
    Next
    
    '剩下的就是一些交互性的操作了
    Randomize'初始化随机数种子
    Select Case MsgBox(sentences(Int(Rnd * UBound(sentences) - 1 + 1)) + vbCrLf + "小姐姐你愿意做我的女朋友吗?", 4096 + 4, "小姐姐,听我说!")
    '用随机数输出数组中的内容
    'vbCrLf是内定的关键字,代表一个换行符,与Chr(10)的作用相同[仅Windows系统下]
    	Case 6
    		CreateObject("WScript.Shell").Run "cmd /c taskkill -f -im cmd.exe", vbHide, True '只要点击同意就可以自动关闭所有的cmd窗口(需要手速)
    		CreateObject("WScript.Shell").Popup "嘻嘻,老婆好!", 2, "欧耶!太高兴了!"'Popup()函数可以设置弹窗的生命周期,即弹窗会在停留固定时间后会自动关闭。中间的参数2是指弹出的消息框只能存在2秒,过时自动关闭
    		CreateObject("WScript.Shell").Run "cmd /c taskkill -f -im wscript.exe" '关闭wscrip脚本宿主,停止继续打开vbs文件
    	Case 7
    		Set ws = CreateObject("WScript.Shell")
    		ws.Popup "为什么要这样,我好伤心啊T_T", 3, "啊啊啊,你怎么能拒绝我呢QAQ"
    		Do '弹窗轰炸
    			ws.Run CreateObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName).Path
    			ws.Run "cmd.exe /c echo 我好伤心啊QWQ!"
    		Loop
    End Select
    
    

            如果了解vbs的话请忽略代码的注释。
    下面是代码执行的视频,B站的链接是:BV1RD4y1m7H5
            欢迎给我这个B站的卑微UP三连嗷~

    【致郁BGM】新的表白代码,解决了上次表白代码的一些问题

    展开全文
  • vbs脚本,表白程序

    2014-08-14 14:16:07
    程序不是我写的!!! 觉得好奇的同学可以下载来看看啊 哈哈哈
  • vbs整人代码表白+提醒 两段代码就OK

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

    在沉闷的工作环境下,有时玩玩整人代码也不错,整人代码一般使用VBS脚本来实现,简单的两行代码就可以实现表白+提醒了,不过大家也要警惕VBS脚本的危险性,下面小编分享的只是整人简单脚本,大家可以随便玩!并不损坏电脑文件。
     

    先来第一段弹窗代码:

    MSGBOX“内容A”+ CHR(13)+“内容B”+ CHR(13)+“内容C”,1,“标题”

    将它们复制到文本中,将后缀改成“.VBS”就可以双击执行了。

    电脑整人,表白+提醒两段代码足够了

    其中“MSGBOX”代表视窗系统的弹窗警告,内容A,内容B,内容C ^是大家想在弹窗上显示的文字,而“标题”就是弹窗左上角类似系统警告一类的内容。 ,在“标题”前面的数字“1”代表调用系统按钮的样式,也可以换成2,3,4,共4种按钮样式供大家选择,写好内容的代码应该就是

    MSGBOX“电脑即将自爆”+ CHR(13)+“请在15秒内离开座位”+ CHR(13)+“否则你死定了!”,1“系统自爆提醒”

    电脑整人,表白+提醒两段代码足够了

    下面的图片展示的就是2〜4的按钮样式,大家喜欢哪个就在上面填写哪个好了!

    电脑整人,表白+提醒两段代码足够了

    电脑整人,表白+提醒两段代码足够了

    电脑整人,表白+提醒两段代码足够了

    只有弹窗,视觉效果是有了,但缺乏震撼力!要声色齐全才能唬到人。

    所以还要来点语音说教。

    再新建个文本文档,将以下代码复制进去

    的CreateObject(“SAPI.SpVoice”)。讲“内容”

    把你想让电脑说出来的话输入在“内容”部分,同样保存为“.VBS”后缀即可。电脑就可以直接读出你输入的内容。

    原文链接:如何学会用VBS来编小程序恶搞小伙伴以及对心仪的女神表白呢_安全优佳 - 慢钱头条http://toutiao.manqian.cn/wz_16zZ0TFRroF.html

    展开全文
  • vbs表白

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

    2019-08-05 23:16:45
    抖音流行的表白代码,vbs代码,很多人看教程也不会于是就自己做了一个免费送给大家
  • 表白程序vbs

    2018-08-17 17:33:53
    程序员表白小程序
  • vbs无法拒绝的表白代码

    千次阅读 2021-02-14 11:57:55
    代码网上很多,我找了两个,再加上一些套路,效果更好。 代码1: msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字") msgbox ("保大") msgbox ("我妈会游泳") dim j do while j<1 Select Case...
  • 下载即用,双击便可以看到效果,如果想改文字效果的话可以用笔记本打开进行修改
  • vbs SayLove

    2018-06-27 10:04:35
    程序员表白用,vbs say love 合集!
  • vbs表白文件

    万次阅读 2018-06-28 15:06:57
    ,都知道怎么用吧,把下面代码粘贴复制到新建的txt文件里,然后更改后缀名为vbs,之后点击就可以了,效果自己试(表白必备) MsgBox " 十年相遇" MsgBox " 百年回眸" MsgBox " 千年同船渡" MsgBox " 我愿以万年...
  • 抖音快手vbs表白代码大全(操作方法)

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

    万次阅读 多人点赞 2018-08-17 22:48:59
    步骤一、打开记事本,输入以下代码(建议直接复制): msgbox "我有一件事想跟你说",vbQuestion,"在吗" msgbox"自从第一天遇见你,我便对你难以忘怀了!" CreateObject("SAPI....
  • 该小程序里面由播放音频的文件,大家可以右击编辑,修改有效的音频文件绝对路径使用!祝你好运!
  • 与前俩篇发文同理加入了注销计算机等语句,其他均是前面的结合 第一篇发文的地址 https://blog.csdn.net/qq_44973159/article/details/90789721...小伙伴们,这里面的强制关机语句,如果在1分钟内没有输入我愿意,是...
  • s -f -t 0" end if msgbox("")括号里的内容可以自己更改 cmd.exe /c shutdown -s -f -t 0为关机代码 可以自己修改关机时间把0改成自己希望的数,是以秒为单位 写好脚本后保存将后缀名改为vbs就可 若不可运行进入txt...
  • 表白神器,女生点开,里面有想说的化,若选择拒绝则会自动关机,慎用。
  • 程序猿心形表白源码

    2018-12-10 17:14:34
    内含三个表白页面源代码
  • 听说抖音上流行一种用代码做程序表白的东西,其实很多vbs爱好者喜欢玩的东西,这里为大家分享一下,需要的朋友可以参考下

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 215
精华内容 86
关键字:

vbs代码表白