精华内容
下载资源
问答
  • vbs表白代码+整人代码,抖音vbscript表白代码

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

    步骤一:

    在电脑上新建一个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

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

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

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

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

    展开全文
  • 表白代码,HTML

    万次阅读 多人点赞 2020-12-23 09:37:17
    1.在电脑桌面右击鼠标选择新建--文本文档 2.并命名为:biaobai.txt 3.打开并且把一下代码复制并粘贴到biaobai.txt <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ...

     1.在电脑桌面右击鼠标选择新建--文本文档

     2.并命名为:biaobai.txt

    3.打开并且把一下代码复制并粘贴到biaobai.txt 

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>JUMP WORDS</title>
    </head>
    <body>
    <div id="show"></div>
    <script type="text/javascript">
    var str="自从和你相识以来,我平静的心湖再也无法平静了。你的芳姿,你的丽影,你的笑靥,使我难以忘怀,我已被你美妙的风姿深深吸引!";
    var len=str.length;
    var i=1;
    function showword(){
    document.getElementById("show").innerHTML=str.substr(0,i++)+'_';;
    if(i>len){
    clearInterval("done");
    }
    }
    var done=setInterval("showword()",500);
    </script>
    </body>
    </html>

     

    使用快捷键ctrl+S进行保存,并关闭

     

    4.在桌面选择此文件  并且修改为html文件即可

    5.双击即可在浏览器进行运行~

    运行效果为一个字一个字的出现~

    6.注意:浏览器打开时候的编码 

     

    展开全文
  • 表白代码

    2021-02-27 10:34:35
    vbs脚本表白代码 代码一、做我女朋友非同意不可 msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?") msgbox ("自从第一天遇见你,我便对你难以忘怀了!") msgbox ("做我女朋友好吗?") msgbox ("房产写你名字...

    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("我就知道你会同意的,哈哈哈哈!!")
    

    代码二、做我女朋友不同意就关机

    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

    代码三、做我女朋友,即使不同意因为更爱你所以撤销关机

    Set Seven = WScript.CreateObject("WScript.Shell")
    strDesktop = Seven.SpecialFolders("AllUsersDesktop")
    set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url")
    oShellLink.Save
    se_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑!!!"))
    If se_key=6 Then
    MsgBox "谢谢你给了我这次机会,I Love You",64,"Love you"
    Else
    seven.Run "shutdown.exe -s -t 600"
    agn=(MsgBox ("我真的很喜欢你!求你了,别拒绝我,好吗?是=同意 否=拒绝",4,"别拒绝我,好吗?"))
    If agn=6 Then
    seven.Run "shutdown.exe -a"
    MsgBox "谢谢你给了我这次机会,I Love You",,"Love you"
    WScript.Sleep 500
    Else
    MsgBox "唉,那祝你能找到自己喜欢的人,若可回头,记住,我在你身后一直等你!--爱你的人",64,"祝你幸福!!"
    seven.Run "shutdown.exe -a"
    MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!"
    End If
    End If
    

    代码4、爱情测试

    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
    

    代码5、求对象原谅

    msgbox"亲爱的不要生气了好不好"
    msgbox"我已经深刻的认识到自己的错误了"
    msgbox"但请相信我,我并不是有意的"
    msgbox"能原谅我吗?亲爱的。"
    dim i
    do while i<1
    Select Case msgbox("如果原谅我了请点是",68,"")
    Case 6 i=1
    Case 7
    msgbox"你再考虑一下呗,我向你保证,以后绝对不会再犯了!"
    end Select
    loop
    msgbox"谢谢亲爱的你原谅我,mua~"
    

    vbs脚本使用教程


    1.在桌面上创建一个新的文本文档 后缀名为.txt

    img
    2.打开文本文件,拷贝我给的代码。

    img
    3.文件另存为,选择路径。

    img
    4.将文件的后缀名改成.vbs,前面的名字任取,将编码格式改成ANSI编码!

    img
    5.双击vbs文件运行即可。

    img
    6.强制关闭,ctrl+shift+esc打开任务管理器关闭进程即可。

    在这里插入图片描述

     

     

     

     

    展开全文
  • 抖音表白代码

    万次阅读 多人点赞 2019-07-22 15:02:51
    最近抖音上火了一个由小伙伴自己制作的一个表白代码,很多小伙伴都在问这个表白代码是怎么写的?小编今天就为大家带来了抖音表白代码汇总! 抖音表白代码 示例1: msgbox(“做我女朋友好吗?”) msgbox(...

    最近抖音上火了一个由小伙伴自己制作的一个表白代码,很多小伙伴都在问这个表白代码是怎么写的?小编今天就为大家带来了抖音表白代码汇总!
    抖音表白代码
    示例1:
    msgbox(“做我女朋友好吗?”)
    msgbox(“房产证写你名字…保大…我妈会游泳…”)
    示例2:
    msgbox(“做我女朋友好吗?”)
    msgbox(“房产证写你名字…保大…我妈会游泳…”)
    x=msgbox(“做我女朋友好不好”,VbOkCancel)
    if x=VbOk then
    msgbox(“爱你,么么哒”)
    elseif x=VbCancel then
    msgbox(“哼,再见”)
    set ws=createobject(“wscript.shell”)
    ws.run"cmd.exe /c shutdown -s -f -t 0"
    end if
    使用方法:将第一段示例或者第二段示例复制到一个新建的文本文档中,保存。然后修改文本文档的后缀为vbs,如果会弹出如下面的弹窗,就表明成功了。
    第一种示例比较简单,大家可以随意修改里面的字,也可以加更多段msgbox带括号的那种。
    第二种示例中也可以在第三行前面随意增加,不管加多少行都行,不过第二个示例如果她选择拒绝就会被关机,怕是你要被打。
    Tips:除了中文用全角,其他全用半角格式输入!
    获取示例代码可关注微信公众号“极客丁”回复“代码”即可获取

    展开全文
  • vbs无法拒绝的表白代码

    千次阅读 2021-02-14 11:57:55
    代码网上很多,我找了两个,再加上一些套路,效果更好。 代码1: msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字") msgbox ("保大") msgbox ("我妈会游泳") dim j do while j<1 Select Case...
  • js表白代码

    千次阅读 2019-06-04 20:24:32
    主要使用了js的函数调用,对于小白来讲,可以在桌面新建一个文本文档,再将下面的代码复制粘贴后保存,将后缀名txt改成html双击运行即可 <!DOCTYPE html> <html lang="en"> <head> <meta ...
  • 最近抖音上有一个弹窗表白玩法比拟盛行,这是技术宅专用的表白方式,不过随着代码被分享出来,往常有很多的抖友都可以中止弹窗表白了,想晓得抖音弹窗表白代码怎样弄的?那么就来看看小编带来的抖音弹窗表白玩法代码...
  • vbs表白代码

    万次阅读 2020-03-06 19:32:05
    新建文本文件 2,右键->编辑 3,粘贴下面代码 MsgBox " 十年相遇" MsgBox " 百年回眸" MsgBox " 千年同船渡" MsgBox " 我愿以万年的等待" MsgBox " 百世的轮回" MsgBox " 换你今朝一世情缘...
  • html跨年表白代码

    千次阅读 多人点赞 2020-12-31 16:38:14
    今天是2020年的最后一天,最近很忙,很久没有写博客了,今天给大家一个跨年表白代码,祝大家快乐,不止今天! <!doctype html> <html> <head> <meta charset="utf-8"> <title>跨年...
  • 炫酷相册表白代码

    千次阅读 2021-05-04 13:33:17
    电脑桌面新建一个txt文本,复制粘贴下面的html代码,保存后修改文件后缀为html,双击就可以看到页面了。但是这只有音乐和文字,因为这只是html代码,css和js代码需要去我的资源下载或者加我QQ1975728171。 完整html...
  • 520表白日,男人怎么送礼物,就怎么爱你 每个女孩都喜欢男孩对自己浪漫的表白,不过每个人性格不同,浪漫表白的方式也是不同的,那么520怎样浪漫的表白好呢?哪些方式的表白可以俘获女孩的心呢? 马上5月20日了,...
  • 七夕刚过不久,作为未来的...老样子,新建文本打入或复制粘贴网上提供的代码后保存退出,将.txt改为.vbs文件 如果单单这样子启动,就会出现类似这样的错误提醒 二话不说,直接将vbs 改回txt,重新编辑文本. ...
  • 【欢迎白嫖】新·vbs表白代码

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

    千次阅读 多人点赞 2019-10-30 10:21:56
    抖音表白代码制作方法 抖音表白代码制作方法 打开新建文本。 抖音表白代码制作方法 输入代码,不会编写代码的可以去网上查找,只需在百度输入vbs代码,就会有各种各样的代码,比如输入: msgbox("做我女朋友好吗...
  • 七夕表白JS代码

    千次阅读 多人点赞 2020-08-21 17:20:46
    2. 然后把下面代码复制进去(傻瓜式的Ctrl+CV教学就算了。) <!DOCTYPE html> <html> <head> <meta charset="utf-8" /> <title>七夕喔</title> </head> <...
  • 抖音快手vbs表白代码大全(操作方法)

    千次阅读 2020-12-08 22:03:45
    抖音快手vbs表白代码大全使用方法...在电脑上新建一个txt文本文件。 步骤二: 打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。 Set Seven = WScript.CreateObject("WScr..
  • 本期为老铁们分享滑动关机、应用多开、QQ微信消息攻击、表白神器等骚操作,你那颗骚动的心是否已经控制不住了呢?滑动关机你是如何关闭计算机的呢?“开始-》关机”“什么?直接切断电源”骚年们,一波操作猛如虎啊...
  • 情人节表白代码

    万次阅读 多人点赞 2021-02-14 00:15:46
      天寒地冻,路遥马亡,不负...在桌面上创建1个新的文本文档 后缀名为.txt2.打开文本文件,拷贝我给的代码。3.文件另存为,选择路径。4.将文件的后缀名改成.vbs,前面的名字任取,将编码格式改成ANSI编码!将编码格
  • 作为一名程序员,如何用自己的技术向喜欢的人表白?这篇程序员表白教程,可以让你创造出不...创建一个新的文本文件。2.将以下代码复制到新创建的文件中@echo offmsg * I LOVE YOU shutdown -c "Error! You are too...
  • 本文章代码效果实现使用的是Python语言,编译软件用的是PyCharm 2018.1.2×64,Python环境选用的是3.7版本的。 用到的Python库有利用SDL(Simple DirectMedia Layer)写就的游戏库——pygame库、海龟绘图体系——...
  • 表白代码,浪漫网页-JavaScript的应用

    万次阅读 多人点赞 2019-01-16 14:14:16
    上图是效果图,这里的时间和文字都是可以改的。 兄弟,我只能帮你到这了 <!... ...<title>I love you 傻 瓜!... y : -(13 * Math.cos(step) - 5 * Math....新建文本文件,更改后缀名为html,双击即可进入网页。。。完成
  • 在情人节送给自己的女朋友玫瑰花,对于程序员来说是不是太普通了呢? 为什么不试试让情人节变得更特别一些呢?作为一名程序员,可以用自己的技术创造出...百度资深的程序员“Peter”,为了给心爱女孩表白悄悄溜进了...
  • vbs表白文件

    万次阅读 2018-06-28 15:06:57
    ,都知道怎么用吧,把下面代码粘贴复制到新建的txt文件里,然后更改后缀名为vbs,之后点击就可以了,效果自己试(表白必备) MsgBox " 十年相遇" MsgBox " 百年回眸" MsgBox " 千年同船渡" MsgBox " 我愿以万年...
  • 可用来表白哟,更多表白程序源代码可关注我私信我发源代码和压缩文件哟 想要更多可关注我,运行成品如下 #include "stdlib.h" #include "time.h" #include "stdio.h" #include "graphics.h" #include "mmsystem.h...
  • vbs整人代码表白+提醒 两段代码就OK

    万次阅读 多人点赞 2018-06-16 20:27:27
    在沉闷的工作环境下,有时玩玩整人代码也不错,整人代码一般使用VBS脚本来实现,简单的两行代码就可以实现表白+提醒了,不过大家也要警惕VBS脚本的危险性,下面小编分享的只是整人简单脚本,大家可以随便玩!...
  • 第一步:新建一个文本文档 第二步:命名为:表白代码.txt 第三步:输入一下代码: msgbox("做我女朋友好吗?") msgbox("房子写你的名字") msgbox("保大") msgbox("我妈妈会游泳") 第四步:选择文件--...
  • 在情人节送给自己的女朋友玫瑰花,对于...这些浪漫的技术表白,你值得拥有。九章算法基础班(JAVA)原价:$399 现价:$0在公众号 “九章算法”公众号回复【JAVA互动课】可领取:价值399RMB的7天互动课尊贵用户服务包...
  • 励志的表白代码

    2019-08-12 10:43:15
    int main() { //创建窗口 //创建窗口 宽 高 单位:px 像素 HWND hwnd = initgraph(GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN)); //设置窗口风格 去除标题 SetWindowLong(hwnd, GWL_STYLE, ...
  • 程序员表白简短代码Graphs are very useful structures to work with in programming, since very often computer science problems can be represented as a graph and solved with one of many existing graph ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 492
精华内容 196
关键字:

新建文本文档表白代码