VB SendMessage向其他程序窗口发送字符串消息实例

以下通过程序的标题来获取该窗口的句柄,然后通过SendMessage函数给该窗口句柄发送WM_SETTEXT消息。

代码如下：

'先创建一个文本文档,命名为： 1.txt

' 然后打开测试。。。
Private Const WM_SETTEXT = &HC

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetDlgItem _
Lib "user32" (ByVal hDlg As Long, _
ByVal nIDDlgItem As Long) As Long

Private Sub Command1_Click()
Dim s As String
Dim FT_hWnd As Long
Dim ID_Control_hWnd As Long
s = "你好"
FT_hWnd = FindWindow(vbNullString, "1.txt - 记事本")

If FT_hWnd = 0 Then
MsgBox "False", vbInformation, "Title"
End
End If

ID_Control_hWnd = GetDlgItem(FT_hWnd, &HF)
SendMessage ID_Control_hWnd, WM_SETTEXT, 0, ByVal s

End Sub

摘自：网络整理

相关文章参考：

※VB SendMessage向其他程序窗口发送字符串消息实例

※VB 二进制数组与十六进制字符串相互转换

※VB 汉字字符串转换成拼音

※VB查找替代字符串的函数

※VB中字符串匹配的多种方式

※vb 字符串转为数字和判断字符串是否是数字字符串【转】

※查找替代字符串的函数

※VB中使用MD5算法

※VB的MD5加密模块

※加密算法-MD5