抖音发的vbs怎么做的

需要工具：电脑

一、首先，现在桌面新建一个TXT文本文档，鼠标右键，依次选择新建、文本文档，如下图。

二、打开该文档，在其中输入msgbox，后面加上括号和引号，注意，这里的字符都是英文格式，若是中文会不成功哦。

三、接着，可以多输入几行，其中引号内的中文需要自己想，感人也好，搞笑也好，都可以。

四、然后，点击上方菜单栏文件、保存。

五、可以重命名一下，比如写个【惊喜哦】。

六、然后，将当前的TXT扩展名修改成VBS，可以看到文件样子，出现变化了。

七、鼠标双击该文件，神奇的一幕出现了，一直有对话框提示出来，跟刚才在文本中输入的一样。

抖音那个表白的vbs怎么停止

电脑桌面最下面一横栏鼠标右键，启动任务管理器，进程里找到wscript.exe，结束进程。
然后拉黑发给你vbs的人。

抖音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中输入这个语音代码CreateObject("SAPI.SpVoice").Speak时，ActiveX提示部件不能创建对象？

你这是哪个操作系统？
依赖操作系统的功能哦

win10怎么运行VBS？

其实是您保存的文件后缀不对，所以不能运行。
系统默认是不显示后缀名的。如果您没有开启显示后缀名，那么您新建一个文本文档后，应该后面没有.txt，这时候就算您重命名，添加了.vbs也没有，您其实更改的只是文件名，而不是后缀名，这个文件还是一个txt格式的文本。
所以您要么先开启显示文件后缀名（在资源管理器的选项中有相关开启的地方）
要么不要新建文本文档，而是直接打开系统的记事本软件，然后输入VBS代码，输好后，点击文件>另存为，类型选择所有文件，文件名最后加上.vbs，后面保存。这要就保存为vbs格式的脚本文件了。