[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS 中文乱码

  1. Const ForReading=1 '常量,表示只读
  2. Dim fso,filePath,f,WshShell,str
  3. set WshShell = WScript.CreateObject("WScript.Shell")'创建 wsh 对象,可以获取系统环境变量的访问、创建快捷方式、访问Windows的特殊文件夹
  4. Set fso=CreateObject("Scripting.FileSystemObject")'创建fso对象,来处理文件夹和文件
  5. filePath="d:\h.txt"
  6. Set f=fso.OpenTextFile(filePath,ForReading)'打开文本文件,常量为1表示只读
  7. WScript.Sleep 1000 '休眠1秒
  8. for i=0 to 3
  9. str=f.ReadLine'读取1行
  10. WshShell.SendKeys str'向活动窗口发送键盘文字
  11. WScript.Sleep 500
  12. WshShell.SendKeys "{ENTER}"
  13. next
  14. f.Close
  15. Set fso=Nothing
  16. Set f=Nothing
  17. Set WshShell=nothing
复制代码

回复 1# hmq_hmq


请把截图发出来看看吧,参考:
http://bbs.bathome.net/thread-60985-1-1.html
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表