Foxtable(狐表)用户栏目专家坐堂 → 关于Sendkeys的模拟按键动作及激活外部程序问题


  共有8857人关注过本帖树形打印复制链接

主题:关于Sendkeys的模拟按键动作及激活外部程序问题

帅哥哟,离线,有人找我吗?
yankunhao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1038 积分:7299 威望:0 精华:0 注册:2008/9/1 22:34:00
关于Sendkeys的模拟按键动作及激活外部程序问题  发帖心情 Post By:2012/5/26 16:26:00 [只看该作者]

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

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

第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")


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/28 8:31:00 [只看该作者]

Dim Proc As New Process '定义一个新的Process
Proc.File = "C:\WINDOWS\system32\mspaint.exe" '指定要打开的文件
Proc.Start()
proc.WaitForExit

 回到顶部