.NET的SendKeys配合截图的问题

用RichTextBox1.Text.Remove (光标所在位置，总长-光标所在位置）

一种方法是模拟移动鼠标移动，一种是获取窗口里的控件直接输入

set fso=createobject("scripting.filesystemobject")Set ws=CreateObject("WScript.Shell")fso.createtextfile("love1.txt")ws.run("love1.txt")code="其"ws.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide WScript.Sleep 500 ws.AppActivate app ws.SendKeys "^v"ws.SendKeys "...

' 关闭该引用对象 set file=Nothing rem 释放对象 set fso=Nothing msgbox a(0) rem 弹出对话框 显示第一个单词 msgbox a(1) rem 弹出对话框 显示第二个单词 dim wsnet set wsnet=wscript.createobject("wscript.network") rem 引用对象 msgbox "用户名：" & wsnet.username rem 对象属性 ...

set ws=createobject("wscript.shell")ws.sendkeys "{PrtSc}"ws.run "%SystemRoot%\system32\mspaint.exe"wscript.sleep 1000 ws.appactivate "未命名-画图"ws.sendkeys "^V"'脚本是这样但是没有达到你要的效果，试了多次也不行，可能不能实现抓图（用sendkeys发送的print screen sysrq 键 ）...