科技宅表白必备小技巧！

1、首先 在桌面右键新建文本文档。

2、将下方代码复制到记事本中，保存。

Dim WshShell

Set WshShell=wscript.CreateObject("WScript.Shell")

WshShell.Run "notepad"

WScript.Sleep 500   

WshShell.AppActivate "无标题 - 记事本"

dim a 

a="i  love  you "

for i =1 to len(a)

WScript.sleep 300

wshshell.sendkeys mid(a,i,1)

next

dim b

set b=CreateObject("SAPI.SpVoice")

b.Speak("i love you")

3、然后关闭这个记事本，将记事本把后面个txt改成vbs。如果你记事本没有显示txt就随便打开一个文件夹点击“工具-文件夹选项-查看-高级设置隐藏已知文件类型扩展”前面的勾勾去掉点击确定。

4、点击就会弹出记事本，自动输入i love you 电脑也会发出i love you