文字里面的内容可以自己更改想说的话
5000那个位置的数字可以更改
小面的代码是创建5000个文本文件满屏都是你要说的话的文件
同样首先创建一个记事本复制下面的代码保存
然后把笔记本后面的txt名称改成vbs
想改图标的话，创建快捷方式然后打开就可以看到更换图标
Do Until t_i=1
t_i=t_i+1
T=T+”我喜欢你丫.txt “
Loop
Do
Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.OpenTextFile(I&”.我喜欢你呀.jpg”, 2, True, -2)
f.Write T
f.Close
I=I+1
If I = 5000 then
Exit Do
End If
Loop
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://itzsg.com/10290.html
