Declare Function SendMessageStr Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal MSG As Integer, ByVal wParam As Integer, ByVal lParam As System.Text.StringBuilder) As Integer Const WM_SETTEXT = &HC
: 'utf-8文字 Dim sb = New StringBuilder("", 256) sb.Clear() sb.Append("赵治勋") SendMessageStr(hwnd, WM_SETTEXT, Len(sb.ToString), sb) :