VB写把PUSHBUTTON001按钮按下WHD086OP=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方法来触发按钮按下操作