在笔记本中输入文字

Option Explicit Dim str,fso str = "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") Else fso.CreateTextFile("tmp.txt") End If Dim ws Set ws =WScript.CreateObject("wscript.shell") ws.run("tmp.txt") '运行tmp.txt WScript.Sleep(500) '暂停 ws.AppActivate("tmp.txt - 记事本") '将正在进行的程序转到记事本 ws.SendKeys("^+") 'ctrl+shift切换中文拼音输入法 WScript.Sleep(500) Dim tmp,i For i=1 to Len(str) '从变量str中读取字符 tmp = Mid(str,i,1) If tmp = "$" Then '$就换行 tmp = vbLf End If ws.SendKeys(tmp) WScript.Sleep(200) Next ws.SendKeys("^s") 'ctrl+s保存文档 Set ws = Nothing Dim key '询问是否保留创建的tmp.txt文档 key = MsgBox ("是否想保留此文档？",vbYesNo+vbSystemModal+vbInformation,"提示") If key = vbNo Then fso.DeleteFile("tmp.txt") Set fso = Nothing End If

 

 

 

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