当前位置:编程学习 > VB >>

[VBS]表白可用的代码:打开文本编辑器然后慢慢显示要输出的字(仅限英文)

[plain]
set fso=createobject("scripting.filesystemobject") 
set ws=wscript.createobject("wscript.shell") 
 
fso.createtextfile("To-HuaHua.txt") 
ws.run("To-HuaHua.txt") 
wscript.sleep 500 
ws.sendkeys("M") 
wscript.sleep 500 
ws.sendkeys("y") 
wscript.sleep 500 
ws.sendkeys(" ") 
wscript.sleep 500 
ws.sendkeys("d") 
wscript.sleep 500 
ws.sendkeys("e") 
wscript.sleep 500 
ws.sendkeys("a") 
wscript.sleep 500 
ws.sendkeys("r") 

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

fso.createtextfile("To-HuaHua.txt")
ws.run("To-HuaHua.txt")
wscript.sleep 500
ws.sendkeys("M")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("d")
wscript.sleep 500
ws.sendkeys("e")
wscript.sleep 500
ws.sendkeys("a")
wscript.sleep 500
ws.sendkeys("r")


1.创建空白文档,将以上代码粘贴

2.修改文件后缀为vbs即可。

 


运行后,会自动在当前路径创建一个txt文件,并且自动输入代码中要输入的内容。

比如以上代码的意思就是:每隔0.5秒,依次输出:My dear

 

补充:综合编程 , 其他综合 ,
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,