[问题求助] 【已解决】vbs模拟中文打字

kofbld

vbs如何实现以下功能：
1、打开记事本，发送ctrl+空格按键切换到中文输入法。
2、模拟按键随机输入n个英文字符后按空格键。

kofbld

贴上网上百度来的代码，请高手修改，实现随机输入n个字符
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

kofbld

楼上的不好用，谢谢你的热心帮助！批处理要是能实现就好了，vbs都没碰过！
有个思路就是修改二楼的代码，用vbs随机读取文本中某行的内容给变量，然后模拟中文输出！求给个vbs代码

kofbld

回复 5# pcl_test


    谢谢大神，此代码修改后完全符合我的要求！
随机输出N个字符的代码能解释下吗？