在笔记本中输入文字

Option ExplicitDim str,fsostr = "nishi ...chaoji dabaichi !$hh "'想要输出的内容Set fso = WScript.CreateObject("scripting.FileSystemObject")If fso.FileExists("tmp.txt") Then '创建tmp.txt文件fso.DeleteFile("tmp.txt")fso.CreateTextFile("tmp.txt")Elsefso.CreateTextFile("tmp.txt")End IfDim wsSet ws =WScript.CreateObject("wscript.shell")ws.run("tmp.txt")'运行tmp.txtWScript.Sleep(500)'暂停ws.AppActivate("tmp.txt - 记事本")'将正在进行的程序转到记事本ws.SendKeys("^+")'ctrl+shift切换中文拼音输入法WScript.Sleep(500)Dim tmp,iFor i=1 to Len(str)'从变量str中读取字符tmp = Mid(str,i,1)If tmp = "$" Then'$就换行tmp = vbLfEnd Ifws.SendKeys(tmp)WScript.Sleep(200)Nextws.SendKeys("^s")'ctrl+s保存文档Set ws = NothingDim key'询问是否保留创建的tmp.txt文档key = MsgBox ("是否想保留此文档？",vbYesNo+vbSystemModal+vbInformation,"提示")If key = vbNo Thenfso.DeleteFile("tmp.txt")Set fso = NothingEnd If

 

 

 

这是我这两个星期学期VBS的研究成果之一，呵呵，其实只是把书上讲的属性、方法简单的用了一下，希望对那些学习VBS的人也会有帮助把