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

本文出自 “章立民” 博客,转载请与作者联系!

你可能感兴趣的:(职场,basic,软件,休闲,Visual)