Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WScript.Sleep 100
WshShell.SendKeys "{enter}"
18green 写道:2楼的粘贴并回车,使用中就等于”粘贴并换行“。弄成粘贴并发帖怎么样?
我也没有找到更好的办法,“粘贴并回车”只好使用 vbs 代替:
代码: 全选
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WScript.Sleep 100
WshShell.SendKeys "{enter}"
ashang 写道:这个代码保存成vbs之后再直接像像用程序那样调用吗?
龙2009 写道:是的 就是询问这个问题.
那个代码是自动换行 不是提交