python调用vbs文件_打开多个vbs文件的Python或批处理文件（vbs文件打开程序+文件）...

ゝ一世哀愁。 2023-01-10 03:36 41阅读 0赞

Activates an application window.Syntax: object.AppActivate title

Arguments:

object: WshShell object.

title: Specifies which application to activate. This can be a string containing the title of the application (as it appears in

the title bar) or the application's Process ID.

确保提供给objShell.AppActivate的字符串要么是Program.exe的所需实例的标题，要么是进程ID。在You should be aware that sending keystrokes to an application is not

the optimal method for automating a procedure. If you have an

application in your enterprise that you need to automate and it has no

COM-based object model, you might consider this technique. However,

you should first examine whether other methods exist for automating

that particular application.

Although SendKeys can be used effectively, there are several potential

problems with this approach:The script might have difficulty determining which window to send the keystrokes to.

Because the application runs in GUI mode, a user might close the application prematurely. Unfortunately, this will not terminate the

script, and the script could end up sending keystrokes to the wrong

application.

The script might have difficulty synchronizing with the application.

This timing issue is especially troublesome, simply because scripts

tend to run much faster than GUI applications.

…

和使用AppActivate：Before sending keystrokes to an application, you must first ensure

that the application is running and that the focus is on the

application (that is, the application is running in the active

window).

…

You can place your script in a loop, periodically

calling AppActivate until the return value is True. At that point, the

application is loaded and prepared to accept keystrokes.

…

When

the script is determining which application to activate, the given

title is compared to the title of each window visible on-screen. If

no exact match exists, the AppActivate method sets the focus to the

first window whose title begins with the given text. If a window

still cannot be found, the first window whose title string ends with

the text is given the focus. The partial matching with the leading and

trailing text of title bars ensures that AppActivate works with

applications, such as Notepad, that display the name of the currently

opened document on the title bar. (For example, when you first start

Notepad, the window title is Untitled - Notepad, not Notepad.)

…

(以上引述只是我的重点摘要：太长了，不能在这里引用整篇文章。)

编辑。在

让我们正视这个SendKeys方法将击键发送到活动窗口中看不见的窗口，因为实际上我们永远不知道哪个窗口当前是焦点。利用Run Method (Windows Script Host)完整语法objShell.Run sCmdLine, 1, False，其中窗口样式1的含义是什么1Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and

position. An application should specify this flag when displaying

the window for the first time.

使用下一个示例脚本进行了测试(为了更好地理解，对其进行了注释)：option explicit

On Error GoTo 0

Dim objShell, sProgram, sTxtFile, sTxtPath, sCmdLine, sTxtExists

Set objShell = WScript.CreateObject( "WScript.Shell" )

sProgram = "C:\\Windows\\System32\\notepad.exe"

sTxtFile = Replace( Wscript.ScriptName, ".vbs", ".txt", 1, -1, vbTextCompare)

sTxtPath = CreateObject("Scripting.FileSystemObject").BuildPath( \_

objShell.ExpandEnvironmentStrings("%temp%"), sTxtFile)

sTxtExists = CreateObject("Scripting.FileSystemObject").FileExists(sTxtPath)

' delete file merely for testing and debugging to ensure that