vbs满屏飘爱心代码教程(html满屏飘爱心代码微信)
爱心代码如何显示在桌面
爱心代码显示在桌面的方法:
1、在桌面右键新建一个记事本。
2、准备一个爱心代码。
3、将你准备的代码复制黏贴进入记事本点击左上角文件选择另存为将保存类型改为所有文件将文件名后面填上后缀bat。
4、回到桌面会发现有一个bat文件点击打开就可以显示了。
在电脑上用代码弄爱心
在电脑上用代码弄爱心方法如下:
1、打开运行电脑中安装的dreamware软件,打开“文件”菜单中的“新建”功能,创建一个新的HTML文件。
2、在body标签中加入如下的html代码,设置显示爱心的对象。
3、在head标签中添加css样式标签<style,并写入CSS样式,把爱心的对象变成红色的方块。
4、给这个元素设置伪元素CSS样式。
5、这个爱心的一半就出来了,再给它进行一下角度的45度旋转。
6、接下来只需要再添加另外一边的爱心,再把两个叠加在一起就完成了。
抖音vbs表白代码怎么用
最近好像某音上vbs表白挺火的
小姐姐们都受不了这种撩人的套路呢
那我就为广大男同胞分享一个哦!!先创建一个空文本,然后将下面分割线里的复制粘贴进去
汉字部分就自行选词代替啦!!!!
——————————————我是分割线——————————————
msgbox "啊哈哈哈哈哈哈!想不到吧!"
msgbox "先问个简单的问题,我经常和你说你一定知道"
const title = "啊哈哈哈哈一定要做完啊"
const yourname = "XXX纪念日"
const question = "今天是个特殊的日子呐,你记得是什么日子吗?"
const info = "不对不对,XXX说错了。给一个提示 XXXJNR"
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
msgbox "嗯嗯,不错不错,看来低能小白在爸爸的调教下冰雪聪明了许多啊= ="
msgbox "那再问你个问题,不怕被锤脑壳就乖乖得哦"
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""你最喜欢的人是谁?请在下面的方框中输入他(她)的名字,否则会被关机......"" ",0 ,true
dim a
do while (a "猪悟空")
a = inputbox ("你最喜欢的人是谁?请在下面的方框中输入他(她)的名字,否则会被关机......","说假话的人是要被锤脑壳的哦","",8000,7000)
if ( a "猪悟空" ) then
msgbox "不对不对,说错了。难道你不稀罕我的狗命了莫"
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "你才姓猪!!!!!!!!!!"
msgbox("既然这样")
msgbox("做我女朋友好吗")
msgbox("不能拒绝")
msgbox("房产证写你名")
msgbox("我保大")
msgbox("我妈会游泳")
msgbox("你腿长")
msgbox("你漂亮")
msgbox("心是你的,肉体也是你的,每一块腹肌都是你的")
msgbox("只做你的XXX")
do while j1
Select Case msgbox("那么,,做我女朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox "哈哈哈哈,好乖"
msgbox "做到这一定是通关了"
msgbox "啾咪!"
——————————————我是分割线——————————————
亲手做的质量比较高哦!
再之就是将txt改成vbs就OK了!
有没有觉得时机已经成熟的同胞们可以试试哦!
在不追到手就是别人家的女票啦!
抖音vbs代码表白怎么制作
不同意就关机的那种
x=msgbox("做我女朋友好不好",VbYesNo)
if x=VbYes then
msgbox("明天就去领证吧!")
msgbox("记得来找我。")
elseif x=VbNo then
x=msgbox("房产证写你名字",VbYesNo)
if x=VbYes then
msgbox("明天就去领证吧!")
msgbox("记得来找我。")
elseif x=VbNo then
x=msgbox("保大...",VbYesNo)
if x=VbYes then
msgbox("明天就去领证吧!")
msgbox("记得来找我。")
elseif x=VbNo then
x=msgbox("我妈会游泳",VbYesNo)
if x=VbYes then
msgbox("明天就去领证吧!")
msgbox("记得来找我。")
elseif x=VbNo then
msgbox("你真的不爱我吗?")
msgbox("那好吧。")
msgbox("那你就关机吧")
msgbox("真的哟!")
msgbox("都怪我太善良,再给你一次机会")
x=msgbox("你后悔吗?",VbYesNo)
if x=VbYes then
x=msgbox("到底爱不爱我",VbYesNo)
msgbox("明天就去领证吧!")
msgbox("记得来找我。")
elseif x=VbNo then
msgbox("宁死不屈在下佩服,拜拜。")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"
End if
End if
End if
End if
End if
表白代码大全 抖音vbs表白代码怎么用
步骤一:在电脑上新建一个txt文件。
步骤二:打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。
do
msgbox"我爱你"
loop
步骤三:点文件/另存为,然后输入你想改的名字,然后把后缀名改成.vbs,再在下面那个框框选择所有文件。保存到桌面。
步骤四:把所有的安全卫士关了。然后双击之前做的程序就行了。
请采纳,谢谢!
李询表白代码怎么打卡
你好可以通过以下步骤操作
1、在桌面新建文本文档,打开文本文档输入代码。
2、输入完成以后,单击“文件”,选择“另存为”,输入文件名为“重要信息.vbs”,保存类型为“所有文件”。
3、完成后单击桌面上的文件试试,必须输入“名字”才能关闭这个窗口