求vbs代码能 自动新建记事本 并自动打字的

Question

能隆个简单的吗 帮忙整理下我好加分

Answer 1

这个功能你可以使用SHELL中的sendkeys虚拟按键来完成。

dim sh,str,a,i
set sh=createobject("wscript.shell")
sh.run "notepad" '打开记事本
do while sh.appactivate("无标题 - 记事本")=false
wscript.sleep 200
loop
str="nihao!" '这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。
'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不带引号)
'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1
sh.sendkeys "^ "
'解释上一行：呼唤中文输入法
for i=0 to len(str)-1
a=mid(str,i+1,1)
sh.sendkeys a '发送虚拟按键
wscript.sleep 100 '打字速度。数值越小越快。
next
save=0 '如想保存则写1
if save=1 then
'sh.sendkeys "^ "
'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。
sh.sendkeys "^s"
wscript.sleep 100
sh.sendkeys "c:\name.txt" '文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭
wscript.sleep 100
sh.sendkeys "{Enter}"
end if

参考资料：原创

本回答被提问者采纳

Answer 2

set ws = createobject("wscript.shell")
ws.run "notepad"
wscript.sleep 500
ws.appactivate "无标题 - 记事本"
wscript.sleep 500
ws.sendkeys "holle world!"