vbs求爱程序

答案:1 悬赏:40 手机版

解决时间 2021-08-10 03:49

提问者网友：沦陷
2021-08-09 16:09

清楚的

要我能做出来的

做不出来的我不给最佳的。

最佳答案

五星知识达人网友：野味小生
2021-08-09 17:32

set fso=createobject("scripting.filesystemobject")
set ws=wscript.createobject("wscript.shell")

fso.createtextfile("love.txt")
ws.run("love.txt")
wscript.sleep 500
ws.sendkeys("S")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys(":")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("l")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("v")
wscript.sleep 500
ws.sendkeys("e")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("u")
wscript.sleep 500
ws.sendkeys("!")

新建一个TXT文档

复制进去

然后把扩展名改成vbs

双击运行

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！