search

Yhzhtk / note

知识代码笔记
https://github.com/Yhzhtk/note/issues
MIT License
108 stars 11 forks source link

一个简单的vbs，新建文本文件，自动输入内容 #10

Open Yhzhtk opened 10 years ago

Yhzhtk commented 10 years ago

以下代码是新建一个love.txt，然后输入内容是：

Girl:
I LOVE YOU!

最后将love.txt删除。

将以下代码拷贝到一个txt文件，并将后缀修改为.vbs，保存打开即可。注，vbs仅windows下有效。

set fso=createobject("scripting.filesystemobject")
set ws=wscript.createobject("wscript.shell")
fso.createtextfile("love.txt")
ws.run("love.txt")
wscript.sleep 500
ws.sendkeys("G")
wscript.sleep 100
ws.sendkeys("i")
wscript.sleep 100
ws.sendkeys("r")
wscript.sleep 100
ws.sendkeys("l")
wscript.sleep 100
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("!")
fso.DeleteFile("love.txt")