
点此下载 Opera Mini - 全球使用量最多的手机浏览器
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 写道:是的 就是询问这个问题.
那个代码是自动换行 不是提交
