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

    2018-07-04 00:22:25
    根据抖音上小程序改的,写的比较激进,60秒没按要求填写会自动重启,并且将程序添加到了启动文件夹,重启后会自动运行,按要求输入后才会取消重启并删除启动文件夹内的文件。如果真的想用来表白请三思而后行哦。
  • vbs无法拒绝的表白代码

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

    女朋友生日快乐代码—>>>html生日快乐代码
    html表白代码大全—>>>html表白代码大全

    代码网上很多,我找了两个,再加上一些套路,效果更好。
    我已经做好了两个可执行文件,直接qq或者微信发给她就可以了。可以去我的资源下载—>>>表白套路可执行程序

    QQ发给她的效果(微信也可以发哦):
    代码1效果:
    在这里插入图片描述
    代码1效果视频展示

    代码2效果:
    不同意的话,会关闭他的电脑。(当然是套路一波,后面会取消注销计划的。)
    在这里插入图片描述
    同意的话,会自动打开记事本,自动写上我也爱你。
    在这里插入图片描述
    代码2效果视频展示

    代码1:

    msgbox "做我女朋友好吗",vbQuestion,"在吗"
    msgbox ("房产写你名字")
    msgbox ("保大")
    msgbox ("我妈会游泳")
    dim j
    
    
    do while j<1
    Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")
    Case 6 j=1
    Case 7 msgbox("再给你一次机会")
    end Select
    loop
    
    msgbox("我就知道你会同意的,哈哈哈哈")
    

    电脑桌面上新建一个txt文本,代码复制进去后需要修改编码格式(文件>另存为>编码改为ANSI),然后保存。

    再右击这个txt文本,重命名文件后缀为vbs。(变成下图这样)
    在这里插入图片描述
    然后右击选择创建快捷方式。
    在这里插入图片描述
    接着选择一个ta经常使用的软件,比如QQ。右键QQ,选择属性,点击更改图标,把里面的图标路径复制下来。
    在这里插入图片描述
    然后右键刚才创建的快捷方式,属性里面找到更改图标,把路径替换即可。
    在这里插入图片描述
    然后变成了这样:
    在这里插入图片描述
    最后重命名为腾讯QQ即可。
    效果1:
    在这里插入图片描述
    嫌麻烦可以直接去我的资源下载。下载完直接发给她就行。
    可以去我的资源下载—>>>表白套路可执行程序

    代码2:

    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"
    seven.Run "python ai.py"
    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
    seven.Run "python ai.py"
    Else
    MsgBox "唉,那 祝你能找到自己喜欢的人,若可回头 记住 我在你身后一直等你! --爱你的人",64,"祝你幸福!!"
    seven.Run "shutdown.exe -a"
    MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!"
    End If
    End If
    

    和第一个一样得到vbs文件,另外需要搭建好python环境(没有的话看下文),桌面新建一个ai.py文件画爱心。
    在这里插入图片描述
    ai.py代码(这是python语言,可以画爱心):

    # -*- coding:utf-8 -*-
    import turtle
    
    import time
    
    # 画心形圆弧
    
    def hart_arc():
    
      for i in range(200):
    
        turtle.right(1)
    
        turtle.forward(2)
    
    def move_pen_position(x, y):
    
      turtle.hideturtle()# 隐藏画笔
    
      turtle.up()# 提笔
    
      turtle.goto(x, y) # 移动画笔到指定起始坐标(窗口中心为0,0)
    
      turtle.down()# 下笔
    
      turtle.showturtle()# 显示画笔
    
    # 初始化
    
    turtle.setup(width=800, height=500)# 窗口大小
    
    turtle.color('red', 'pink')# 画笔颜色
    
    turtle.pensize(3)# 画笔粗细
    
    turtle.speed(1000)# 描绘速度
    
    # 初始化画笔起始坐标
    
    move_pen_position(x=0,y=-180)# 移动画笔位置
    
    turtle.left(140)# 向左旋转140度
    
    turtle.begin_fill()# 标记背景填充位置
    
    # 画心形直线( 左下方 )
    
    turtle.forward(224)# 向前移动画笔,长度为224
    
    # 画爱心圆弧
    
    hart_arc()# 左侧圆弧
    
    turtle.left(120)# 调整画笔角度
    
    hart_arc()# 右侧圆弧
    
    # 画心形直线( 右下方 )
    
    turtle.forward(224)
    
    turtle.end_fill()# 标记背景填充结束位置
    
    # 点击窗口关闭程序
    
    window = turtle.Screen()
    
    window.exitonclick()
    
    

    效果2:
    在这里插入图片描述
    如果电脑没有配置python环境,可以用下面的代码(制作方法和代码1一样)。

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

    这个同意之后的效果是自动打开记事本,然后自动输入“ILoveYouToo”。
    在这里插入图片描述
    嫌麻烦可以直接去我的资源下载。下载完直接发给她就行。
    我已经做好了两个可执行文件,直接qq或者微信发给她就可以了。可以去我的资源下载—>>>表白套路可执行程序

    女朋友生日快乐代码—>>>html生日快乐代码
    html表白代码大全—>>>html表白代码大全

    展开全文
  • 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

    展开全文
  • 七夕快到了,在抖音看那些大手子...有各种代码哦,表白,恶搞的都有,具体操作很简单,接下来小编就来教大家一下。(超简单的,学不会你可以打死我,学会了你就点个赞评论666咯,哈哈)将代码复制到txt文本首先在桌面...

    AAffA0nNPuCLAAAAAElFTkSuQmCC

    七夕快到了,在抖音看那些大手子用代码撩自己喜欢的小姐姐是不是心痒难耐,愤恨不已,是不是也想撩一撩自己喜欢的小姐姐,那就来试试吧!

    其实这用的只是很基础的VB脚本代码就能做出来了,而这次小编专门收集了一些很有意思的代码分享给大家。有各种代码哦,表白,恶搞的都有,具体操作很简单,接下来小编就来教大家一下。(超简单的,学不会你可以打死我,学会了你就点个赞评论666咯,哈哈)

    将代码复制到txt文本

    AAffA0nNPuCLAAAAAElFTkSuQmCC

    首先在桌面新建一个txt文本,然后将代码复制进去,里面中文的内容可以根据自己的需求来修改(开启你的脑洞,发挥你的想象,马上你就玩的比小编还6),而英文和标点符号千万不要修改哦,改了就无法执行了。先来第一个“强行表白大法”,下面是代码

    msgbox "做我女朋友好吗",vbQuestion,"在吗"

    msgbox ("房产写你名字")

    msgbox ("保大")

    msgbox ("我妈会游泳")

    dim j

    do while j<1

    Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")

    Case 6 j=1

    Case 7 msgbox("再给你一次机会")

    end Select

    loop

    msgbox("我就知道你会同意的,哈哈哈哈")

    web前端开发学习Q-q-u-n: 767273102 ,分享开发工具,零基础,进阶视频教程,希望新手少走弯路

    修改好之后保存,再右击文件重命名将文件.txt后缀改为 .vbs后缀。(这里补充一点如果没有显示文件后缀的小伙伴,可以在我的电脑里进入文件夹和搜索选项,再去掉隐藏已知文件类型的扩展名的勾再点确定就行了,具体操作看下面,4步搞定)

    AAffA0nNPuCLAAAAAElFTkSuQmCC

    Win7操作方式

    AAffA0nNPuCLAAAAAElFTkSuQmCC

    上面是Win7的修改方式,如果你电脑是Win10的,那就按下面这个方式来修改就可以咯

    Win10操作方式

    AAffA0nNPuCLAAAAAElFTkSuQmCC

    Win10操作方式

    AAffA0nNPuCLAAAAAElFTkSuQmCC

    如果上面4步都做了,还是不能显示文件后缀,那可能是你没勾选下面这个选项,只需勾选一下就可以了。

    Win10操作方式

    AAffA0nNPuCLAAAAAElFTkSuQmCC

    修改完后,就完成了,然后双击就可以启动vbs脚本啦(嗨起来!)是不是很简单。做我女朋友好吗?(不同意?不存在的,不点同意是关闭不了的,除了同意点哪都没用,你就从了我吧,毕竟我这么帅还这么好,哈哈。)

    强势表白

    做我女朋友好吗Mua ~

    AAffA0nNPuCLAAAAAElFTkSuQmCC

    还有一些恶搞的代码,比如倒计时60秒威胁关机的程序,必须输入指定文字(比如我是猪,我要帮xxx洗脚,反正放开你的脑洞,嗨起来)才可以解除,用来教育一下不听话的小女朋友,是个不错的选择,哈哈。以及整蛊好友的网页代码(这个只需将.txt的后缀修改为.HTML),大家可以根据自己的想法进行不同的尝试。

    第一个:说我要帮xxx洗脚,不然一分钟关机(后缀改成.vbs)

    on error resume next

    dim WSHshellA

    set WSHshellA = wscript.createobject("wscript.shell")

    WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我要帮xxx洗脚,不说就一分钟关你机,不信,试试···"" ",0 ,true

    dim a

    do while(a <> "我要帮xxx洗脚")

    a = inputbox ("说我要帮xxx洗脚,就不关机,快撒,说 ""我要帮xxx洗脚"" ","说不说","不说",8000,7000)

    msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

    loop

    msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,乖乖"

    dim WSHshell

    set WSHshell = wscript.createobject("wscript.shell")

    WSHshell.run "cmd.exe /c shutdown -a",0 ,true

    msgbox chr(13) + chr(13) + chr(13) + "宝宝是不是又帅啦??"

    web前端开发学习Q-q-u-n: 767273102 ,分享开发工具,零基础,进阶视频教程,希望新手少走弯路

    第二个:说我是猪,不然关机哦(后缀改成.vbs)

    set ws=createobject("wscript.shell")

    call shutdown(1)

    do while a<>"我是猪"

    a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","")

    loop

    call shutdown(2)

    msgbox "早说就行了嘛",4096+64

    msgbox"再输一遍我是猪!",4096+64

    msgbox"我是猪!",4096+64

    MsgBox"最后一次!",4096+64

    MsgBox"如果你很快的点过去,不看的话",4096+64

    MsgBox"我就要你踩我空间的!哼!",4096+64

    MsgBox"从前有座山!",4096+64

    MsgBox"山里有个庙.",4096+64

    MsgBox"庙里有个老和尚在讲故事.",4096+64

    ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"

    msgbox"哎呀累了!数绵羊哄我睡觉",4096+64

    for i=1 to 100

    MsgBox i&"只绵羊",4096+64

    next

    msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64

    msgbox"最后问个问题,我是不是大好人!",4096+64

    if inputbox("是不是","请选择","是")<>"是" then

    call shutdown(1)

    end if

    sub shutdown(s)

    select case s

    case 1

    ws.run"cmd.exe /c shutdown -r -t 60 -c",0

    case 2

    ws.run"cmd.exe /c shutdown -a",0

    end select

    end sub

    web前端开发学习Q-q-u-n: 767273102 ,分享开发工具,零基础,进阶视频教程,希望新手少走弯路

    第三个:知错了吧(这个后缀修改为.HTML)

    网页特效|Linkweb.cn/Js|---很恶心的常见整人效果

    不许把鼠标移到这里

    web前端开发学习Q-q-u-n: 767273102 ,分享开发工具,零基础,进阶视频教程,希望新手少走弯路

    好啦,分享完毕,赶紧去撩妹吧。对了,提醒一点,因为这些脚本有些是带修改和限制代码的所以会被360或者电脑管家等杀毒软件误杀的,所以小伙伴在撩妹前,记得先将杀毒软件退出再开始哦。

    展开全文
  • 抖音表白代码

    万次阅读 多人点赞 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:除了中文用全角,其他全用半角格式输入!
    获取示例代码可关注微信公众号“极客丁”回复“代码”即可获取

    展开全文
  • 情人节表白代码

    2021-02-18 14:28:40
    代码2:做我女朋友不同意关机 代码3:做我女朋友,即使不同意因为更爱你所以撤销关机 代码4:爱情测试 代码5:求对象原谅 四、vbs脚本使用教程 1.在桌面上创建一个新的文本文档 后缀名为.txt 2.打开文本文件...
  • 表白代码

    千次阅读 2021-02-27 10:34:35
    vbs脚本表白代码 代码一、做我女朋友非同意不可 msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?") msgbox ("自从第一天遇见你,我便对你难以忘怀了!") msgbox ("做我女朋友好吗?") msgbox ("房产写你名字...
  • 本期为老铁们分享滑动关机、应用多开、QQ微信消息攻击、表白神器等骚操作,你那颗骚动的心是否已经控制不住了呢?滑动关机你是如何关闭计算机的呢?“开始-》关机”“什么?直接切断电源”骚年们,一波操作猛如虎啊...
  • 一串代码实现让女神无法拒绝的表白

    万次阅读 多人点赞 2020-04-30 17:04:21
    查看效果 把文件后缀改为.vbs。 双击执行,效果如下: (1)如果点是的话出现以下弹窗。 点击确定,结束程序。 (2)如果点否的话出现以下关机提示。 关闭提示后出现以下弹窗。 (2-1)如果点是,提示关机计划取消。 然后...
  • 表白,整人,无门槛,娱乐代码

    千次阅读 热门讨论 2020-12-21 17:24:30
    简介 ...二 :vbs弹窗表白&整人; 三 :html样式表白 一:代码定时关机和取消 1.1,代码定时关机 此处我们用vsb来实现(vsb是一种脚本语言,一般系统都能支持) CreateObject("Wscript.Shell").
  • VBS基础语法讲解

    万次阅读 2021-04-14 08:24:45
    最近在学习VBS语言的时候,搜索了不少资料,但是往往只是介绍一下什么整人代码表白代码之类的,很少有基础的语法讲解,因此,我在这里写一篇博文来进行一下VBS基础语法的讲解。 一、编辑的软件 对于基于VBS的编程...
  • 闲暇所学“表白对话框”

    千次阅读 2018-08-01 19:00:42
    相信大家都在某音上看过一段表白的视频:打开某个文件后,弹出一个个对话框,表达对心里人的情愫,请求她做自己的女朋友什么的。 现在把教程详细的叙述一下: 1、新建一个文本,然后输入代码。 2、鼠标左键点击...
  • 记录几个有趣的整蛊代码

    千次阅读 2021-02-12 16:11:19
    每段代码只需要新建一个txt文本文件,然后直接复制进去,最后把txt的后缀名改成vbs,就可以双击运行啦。下面开始分享代码哦1.关机并更改电脑密码(要关闭杀毒软件才行。。不然会被拦截,毕竟是简易的小程序嘛)...
  • 68,"表白神器") Case 6 i=1 Case 7 msgbox("重新给你一次选择的机会") end Select loop msgbox("女神,我就知道你会同意") 将后缀改为.vbs-》修改编码为GBK-》把文档发给女神 表白神器制作完成,咋样?女神同意了吗...
  • 1、新建一个文本,然后输入代码。 2、鼠标左键点击文本左上角文件,再点击另存为。 3、点击后会弹出以下窗口,文件名改成:表白示例.vbs,保存类型改为:所有文件,然后点击确定。“表白示例”就是一个名字,可以...
  • 千万不要随意尝试,否则后果自负哦!...废话多说直接上源码 @echo off echo 正在为您的系统加速... echo 正在优化系统... ping 127.0.0.1 -n 10 >nul echo 正在删除垃圾文件... ping 127.0.0.1...
  • 导语 哈喽!哈喽!我是木木子,最近沉迷整蛊这种类型的代码,特别有趣好玩! 虽然踩中了特别多的坑,但是越玩越上瘾呀!这里整理了蛮多整蛊的...那还赶紧的学起来! ​ ​ 正文 Come On 我们来点有技术的!.

空空如也

空空如也

1 2
收藏数 24
精华内容 9
关键字:

vbs表白代码不同意关机