0

我有一个成功进入页面并单击“上传文件”按钮的网络应用程序。

我的应用程序还通过监视和挂钩来成功处理弹出窗口。大多数情况下，只需单击“确定”或“取消”按钮。按钮很简单。

我需要帮助的是选择文件对话框。我挂得很好，但是上面有很多控件，我需要一些指导。

选择文件对话框示例

这些是它的子控件：

DUIViewWndClassName,DirectUIHWND,CtrlNotifySink,NamespaceTreeControl,Static,SysTreeView32,CtrlNotifySink,Shell Preview Extension Host,CtrlNotifySink,SHELLDLL_DefView,DirectUIHWND,CtrlNotifySink,ScrollBar,CtrlNotifySink,ScrollBar,Static,Static,Static,ListBox,Static,Static,ComboBoxEx32,ComboBox,Edit,Static,ComboBox,Button,Button,Button,ScrollBar,WorkerW,ReBarWindow32,TravelBand,ToolbarWindow32,Address Band Root,msctls_progress32,Breadcrumb Parent,ToolbarWindow32,ToolbarWindow32,UniversalSearchBand,Search Box,SearchEditBoxWrapperClass,DirectUIHWND

我很乐意将确切的路径/文件粘贴到文件名文本框/组合框中并单击“打开”。按钮部分很简单，但我不知道如何在窗口中选择文件，和/或如何将我的路径放入文件名输入字段。

现在我有这样的事情：

<DllImport("user32.dll")> _
Private Shared Function GetClassName(ByVal hWnd As IntPtr, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Int32) As Int32
End Function

<DllImport("user32.dll")> _
Private Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal text As StringBuilder, ByVal maxLength As Int32) As Int32
End Function

<DllImport("user32.dll")> _
Private Shared Function GetDlgCtrlID(ByVal hwndCtl As IntPtr) As Integer
End Function

....

Private Shared Function hwndHandler() As Int32
    Dim ptrButtonhwnd As IntPtr

    For Each pChild As IntPtr In Interop.ChildWindows(pPopup.hwnd)
        Dim sbControl As New StringBuilder(255)
        GetClassName(pChild, sbControl, sbControl.Capacity)
        If "Button".Equals(sbControl.ToString()) Then
            Dim sbText As New StringBuilder(255)
            GetWindowText(pChildOfDialog, sbText, sbText.Capacity)
            If "&Open".Equals(sbText.ToString()) Then
                ptrButtonHwnd = pChild
            End If
        End If
    Next

    If ptrButtonHwnd <> IntPtr.Zero Then
        Dim ctrlId As Int32 = GetDlgCtrlID(ptrButtonHwnd)
        SendMessage(pPopup.hwnd, WM_COMMAND, New IntPtr(ctrlId), ptrButtonHwnd)
        Return 1
    End If

Return 0
End Function

这很好用，但我需要添加一些内容来选择要打开的文件，方法是将其输入到文本/组合字段中，或者在窗口中选择它。

4

1 回答 1

1

我发现答案是寻找带有“编辑”文本的控件，这是我原始列表中列出的控件之一。

所以根据我上面发布的代码，我创建了一个新的指针ptrEdit，并为它分配了控制 where "Edit".Equals(sbControl.ToString())。

然后为了操作它，我使用了其中一个 DLL：

If ptrEdit <> IntPtr.Zero Then
    SetWindowText(pEditHwnd, strFilePath)
    If ptrButtonHwnd <> IntPtr.Zero Then
        Dim ctrlId As Int32 = GetDlgCtrlID(ptrButtonHwnd)
        SendMessage(cwp.hwnd, WM_COMMAND, New IntPtr(ctrlId), ptrButtonHwnd)
        Return 1
    End If
End If

所以我能够控制“选择要上传的文件”对话框。

于 2013-07-23T14:35:30.683 回答