Visual Basic 2005 - 如何与其它软件互动

wayne 询问,能否开启个软件(可能是非微件),于程序中去操作或是控制这软?比如按下窗口的 yes 或是该软件的子窗口呢。

 

Visual Basic 2005文件IO与数据存取秘书讨论过「如何送按键给它应用程序」wayne 的需求可能其有点似。于此,我再例子来说明。

 

以下的程序代码会启动Ulead PhotoImpact 11,开启 PhotoImpact 11 之后,接着会从「文件」菜单中选取「开启」指令、然后于「开启」对话框中选取并开启 C:\Program Files\Ulead Systems\Ulead PhotoImpact 11\Samples\Golf.ufo文件,最后再「文件」「另存新文件」指令 C:MyGolf.ufo 新文件名称来将其存 

 

' 启动PhotoImpact 11
Dim myProcess As Process = System.Diagnostics.Process.Start( _
  "C:\Program Files\Ulead Systems\Ulead PhotoImpact 11\Iedit.exe")

myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal

'
先等待直到目程序已...
myProcess.WaitForInputIdle(1000)

'
以下的程序代码会依序完成开档与另存新文件的作
If myProcess.Responding Then
     My.Computer.Keyboard.SendKeys("%FO", True)
     My.Computer.Keyboard.SendKeys( _
       "C:Program Files\Ulead Systems\Ulead PhotoImpact 11\Samples\Golf.ufo", _
       True)
     My.Computer.Keyboard.SendKeys("{ENTER}", True)
     My.Computer.Keyboard.SendKeys("%F", True)
     My.Computer.Keyboard.SendKeys("%F", True)
     My.Computer.Keyboard.SendKeys("{DOWN}", True)
     My.Computer.Keyboard.SendKeys("A", True)
     My.Computer.Keyboard.SendKeys("C:MyGolf.ufo", True)
     My.Computer.Keyboard.SendKeys("%S", True)
 End If

 

posted on 2006-11-03 10:34 章立民研究室 阅读(1779) 评论(4)  编辑 收藏 所属分类: Visual Basic 2005

导航

公告


章立民
六度当选MVP
七十本著作酿成
十九载作者生涯
现在有了章立民研究室
依旧陶醉在写作的生活里。

统计

与我联系

搜索

 

常用链接

留言簿(312)

随笔分类(111)

随笔档案(110)

光盘勘误下载

最新随笔

积分与排名

最新评论

阅读排行榜

评论排行榜