使用C++/CLI封装使用Windows Api sendmessages，在VB.NET中调用，使用sendmesaages举例说明

好的，下面是使用C++/CLI封装Windows Api中的SendMessage()方法，并在VB.NET中调用的示例代码。

首先，在C++/CLI中封装SendMessage()方法，可以使用以下代码：

#pragma once
#include "windows.h"

namespace MyNamespace
{
    public ref class MyWindowsApiWrapper
    {
    public:
        static LRESULT SendMessage(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam)
        {
            return ::SendMessage(hWnd, Msg, wParam, lParam);
        }
    };
}

其中，SendMessage()方法中的四个参数分别为：要发送消息的窗口句柄、消息类型、wParam参数（根据不同消息类型而有所不同）、lParam参数（根据不同消息类型而有所不同）。

然后，在VB.NET中调用SendMessage()方法，可以使用以下代码：

Imports System.Runtime.InteropServices
Imports MyNamespace

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim hWnd As IntPtr = Process.GetProcessesByName("notepad")(0).MainWindowHandle
        Dim WM_SETTEXT As Integer = &HC
        Dim lpText As String = "Hello World!"
        MyWindowsApiWrapper.SendMessage(hWnd, WM_SETTEXT, 0, lpText)
    End Sub
End Class

这里使用SendMessage()方法给Notepad应用程序的主窗口发送WM_SETTEXT消息，将文本框的内容设置为"Hello World!"。

值得注意的是，SendMessage()方法的返回值类型为LRESULT，在VB.NET中需要使用Marshal.GetLastWin32Error()方法获取错误代码，以判断是否发送成功。

以上代码可以在VB.NET中点击按钮后，将Notepad的文本框内容修改为"Hello World!"。