Как отправить текст в поле редактирования во внешнем приложении с помощью Excel VBA - PullRequest
Новая
       47

Как отправить текст в поле редактирования во внешнем приложении с помощью Excel VBA

1 голос
/ 29 мая 2019

Я написал код для отправки текста в другое веб-приложение (.appref-ms), мой код открывает приложение, но в моем коде есть некоторые ошибки, такие как отсутствие окна приложения из переменной "main_window1" в отделениях (см. захваченная картинка из WINSPECTOR 

Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As Long

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
     ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long

Public Declare Function SendMessageByString Lib "user32.dll" Alias "SendMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByRef lParam As Any) As Long


Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByRef lParam As Any) As Long

Public Const SW_SHOWMAXIMIZED As Long = 3

Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
ByVal hWndParent As Long, _
ByVal hWndChildAfter As Long, _
ByVal lpszClass As String, _
ByVal lpszWindow As String) As Long

Public Const WM_SETTEXT As Long = &HC
Public Const BM_CLICK As Long = &HF5&

Public Declare Function GetWindow Lib "user32.dll" ( _
     ByVal hwnd As Long, _
     ByVal wCmd As Long) As Long

Sub run_application()
Dim str As String
str = "C:\Users\Guest\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Excellon 5.appref-ms"
hwnd = FindWindow(VBA.Constants.vbNullString, "Excellon")
start_doc = ShellExecute(hwnd, "open", str, "", "", SW_SHOWMAXIMIZED)
If start_doc = 2 Then Exit Sub
If start_doc = 3 Then Exit Sub

Do
DoEvents
hwindow2 = FindWindow(vbNullString, "Excellon")
Loop Until hwindow2 > 0

main_window1 = FindWindowEx(hwindow2, 0&, "layoutControl1", vbNullString)
main_window2 = FindWindowEx(main_window1, 0&, "0011037C", vbNullString)
main_window3 = FindWindowEx(main_window3, 0&, "EDIT", vbNullString)

Call SendMessageByString(main_window3, WM_SETTEXT, 0, "123")
DoEvents
[enter image description here][1]
End Sub\[enter image description here\]\[1\]

enter image description here

...