精华内容
下载资源
问答
  • 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表白代码+整人代码,抖音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表白代码制作教程

    千次阅读 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表白代码

    千次阅读 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表白代码大全(操作方法)

    千次阅读 2020-12-08 22:03:45
    抖音快手vbs表白代码大全使用方法前言步骤一:步骤二:步骤三、步骤四、注意事项总结 前言 作为一个真正的程序员,首先应该尊重编程,热爱你所写下的程序,他是你的伙伴,而不是工具。 、、、、、、、、、、、、、、...
  • vbs代码步骤一:在电脑上新建一个txt文件步骤二:将以下代码复制过去(中文可以改)const title = “爱情测试”const yourname = “嫦娥”const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。”...
  • 第二步:命名为:表白代码.txt 第三步:输入一下代码: msgbox("做我女朋友好吗?") msgbox("房子写你的名字") msgbox("保大") msgbox("我妈妈会游泳") 第四步:选择文件--另存为 注意:第四步是关键...
  • 表白代码表白代码表白代码.vbs
  • 520表白代码

    2019-04-19 13:51:24
    vbs表白代码
  • vbs整人代码表白+提醒 两段代码就OK

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

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

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

    千次阅读 2021-02-14 11:57:55
    代码网上很多,我找了两个,再加上一些套路,效果更好。 代码1: msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字") msgbox ("保大") msgbox ("我妈会游泳") dim j do while j<1 Select Case...
  • 说到“隔空示爱”,这可是咱们程序员的强项,不信看看这个程序员发明的表白弹窗,女生同意才能关掉,是不是很不要脸?话不多说,先看效果图:↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓如果...
  • 电脑整蛊绝招趁朋友不在电脑旁边时,在TA的电脑上单击右键,新建一个文本文档,文件名...",1,"系统自爆提醒"输入完后,关闭这个文档,将这个文本文档的扩展名从 txt 改成 vbs。(如果出现弹窗,记得点击“是”)更...
  • 论看了别人抖音vbs表白

    万次阅读 多人点赞 2018-06-29 19:06:17
    打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。 msgbox("做我女朋友好吗?") msgbox("房产证上写你名字") msgbox("保大") ...
  • 幸福就握在你手里∇前不久《亲爱的热爱的》热播无论是上头姐妹还是中毒的观众通通被剧中男主和女主的恋爱齁到爆今天一年一度的七夕终于来了...一丝丝趣味和高科技下面一大波黑科技表白甜蜜来袭快点收藏起来吧NO...
  • 现在很多新人结婚的时候,亲朋好友为了表示十分...这种硬核接亲,小编真的表示一般人还真的hold不住,下面小编教你11行代码表白。1.新建txt文本格式2.输入文字:CreateObject("SAPI.SpVoice").Speak"一生中不可错过...

空空如也

空空如也

1 2 3 4 5
收藏数 90
精华内容 36
关键字:

vbs表白代码