以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于Sendkeys的模拟按键动作及激活外部程序问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20001)

--  作者:yankunhao
--  发布时间:2012/5/26 16:26:00
--  关于Sendkeys的模拟按键动作及激活外部程序问题

以下代码为用模拟按键动作进行屏幕打印,然后启动画图软件进行粘贴

但这些代码不符想要的那样,有下面两点问题:

第1点:Sendkeys.SendWait("%{PRTSC}")的代码能复制屏幕,但会包含操作系统的任务栏(我用人工的方法却不包含任务栏的)
第2点:当用代码打开画图软件后,软件不能最大化,只能最小化在任务栏里,只能用人手去激活为当前窗口.(我想的是打开后就能显示画图的窗口,并模拟粘贴,但代码不能粘贴,不知原因)

 

代码如下:

Sendkeys.SendWait("%{PRTSC}")
e.Form.Close
Dim Proc As New Process \'定义一个新的Process
Proc.File = "C:\\WINDOWS\\system32\\mspaint.exe" \'指定要打开的文件
Proc.Start()
Sendkeys.SendWait("^v")


--  作者:狐狸爸爸
--  发布时间:2012/5/28 8:31:00
--  
Dim Proc As New Process \'定义一个新的Process
Proc.File = "C:\\WINDOWS\\system32\\mspaint.exe" \'指定要打开的文件
Proc.Start()
proc.WaitForExit