回复 7# yu2n
好像不行啊,有ClipboardText = "AB中文cd会跳过1234.[>"这一句时,提示 缺少对象a
没有的话无提示,但也没有任何操作啊
像以前问的这个代码就可以,只不过是读取C:\log.txt 然后再a.SendKeys 出来的
现在是直接读取剪切板的,该怎么改呢- Dim objFSO, objTextStream, objWshShell, strS, i
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objTextStream = objFSO.OpenTextFile("C:\log.txt", 1, False)
- strS = objTextStream.ReadLine()
- Set objWshShell = CreateObject("Wscript.Shell")
- For i = 1 To Len(strS)
- objWshShell.SendKeys Mid(strS, i, 1)
- Next
复制代码
|