从 Edge 自动启动应用程序

Question

我正在从 Excel VBA 运行一个程序。它正在将一个文本文件写入我的硬盘。到目前为止一切顺利。

我曾经使用下面的代码从 Internet Explorer 运行这个程序。由于我安装了 Windows 11，VBA 会自动打开 MS Edge。该程序仍然运行良好。但是，我收到一条烦人的消息，这意味着我必须按“打开”才能继续。由于我的 VBA 程序是完全自动化运行的，因此无法容忍这种手动操作。

谁能告诉我如何摆脱这个打扰的问题？

Function pubRobo(RobInp, RobOut)
Dim IE As Object, maxTime As Date

    Set IE = CreateObject("InternetExplorer.Application") 'New InternetExplorer
    With IE
        .Visible = False
        .navigate "http://robostorage.blob.core.windows.net/clickonce/PbnPlayer/RoboBridge.PbnPlayer.application?pbnFileName=" & RobInp
    End With
    Set IE = Nothing
End Function

Answer 1

您可以使用以下解决方案来匹配鼠标光标可以通过 VBA 移动到计算机屏幕上的某个位置的位置。使用 VBA，然后单击该框。

您可能需要添加一个等待计时器，例如 Wait (Now + TimeValue("0:00:02")) 或 Do While IE.ReadyState <> 4: DoEvents: Loop //，以便让弹出框有时间加载。

您也可以为此使用 Selenium。

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

Private Sub SingleClick()
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub DoubleClick()
  'Double click as a quick series of two clicks
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub RightClick()
  'Right click
  SetCursorPos 200, 200 'x and y position
  mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

来源：https://excelhelphq.com/how-to-move-and-click-the-mouse-in-vba/