VB 代码：模拟 PUSHBUTTON001 按钮按下，设置 WHD086.OP=2

以下是用 VB 编写将 PUSHBUTTON001 按钮按下，并设置 WHD086.OP=2 的代码示例：

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByRef lParam As String) As Integer

Private Const WM_SETTEXT As Integer = &HC
Private Const WM_COMMAND As Integer = &H111

Private Sub PushButton001_Click()
    Dim hwnd As IntPtr = GetHandleOfWHD086() ' 获取 WHD086 窗口句柄
    If hwnd <> IntPtr.Zero Then
        Dim lParam As String = "WHD086.OP=2"
        SendMessage(hwnd, WM_SETTEXT, 0, lParam) ' 设置 WHD086 窗口文本为 WHD086.OP=2
        SendMessage(hwnd, WM_COMMAND, 1, 0) ' 向 WHD086 窗口发送命令，模拟按钮按下
    Else
        MsgBox("WHD086 窗口未找到！")
    End If
End Sub

Private Function GetHandleOfWHD086() As IntPtr
    ' 根据 WHD086 窗口的标题查找窗口句柄
    Dim hwnd As IntPtr = IntPtr.Zero
    hwnd = FindWindow(Nothing, "WHD086")
    Return hwnd
End Function

注意：

• 此代码示例仅供参考，实际实现可能需要根据您的环境和需求进行调整。
• 请确保您已正确引用相关的库和命名空间，并在适当的位置调用 PushButton001_Click 方法以触发按钮按下操作。
• 代码中使用 FindWindow 函数查找 WHD086 窗口，请确保该窗口的标题为 "WHD086"。
• 代码通过发送 WM_SETTEXT 和 WM_COMMAND 消息来模拟按钮按下，具体实现可能需要根据目标窗口的具体情况进行调整。