notepad拼心形_用shell脚本写个心形动画表格

说回游戏，游戏通关后，本来都还好，让我产生情绪波动的是最后那个与纯子对话的档案，读完就感觉这个角色瞬间升华了，莫名情绪随之而来

set fso=createobject("scripting.filesystemobject") : name=1

Dim na

na=Inputbox("请输入拓展名:","拓展名","txt")

while fso.fileexists(name&"."&na)=true

name=name+1

wend

set o=fso.opentextfile(name&"."&na,2,true)

set hf=Createobject("htmlfile")

wind=hf.parentwindow.clipboarddata.getdata("text")

o.writeline wind : o.close

createobject("wscript.shell").exec "notepad.exe "&name&"."&na&""IhaveascriptwhereusersentersomeinformationinanInputbox.Theinformationneedstobeenteredinall-capitalletters,somyinstructionssay,“PleasemakesuretheCapsLockkeyisonbeforeenteringtheinformation.”The