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算法

※VB 字符串MD5加密函数

 

★ V B 部 分 相关 文 章 推 荐 ：★

---

☆VB 

☆VB 

☆VB 获取汉字拼音的首字母

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

☆VB判断指定名字的进程是否存在函数

☆VB 两种方法实现热键

☆VB 使用SendMessage枚举文件与目录

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

☆VB 二进制数据读写实例

☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

☆VB 判断是否文本文件

☆VB 读取UTF-8编码文件函数

☆VB 按指定编码格式写入文本文件

☆VB UTF-8 URL编码函数

☆VB 实现UTF-8 与GB2312互转

☆VB 设置ListView中指定一行的背景颜色

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

☆VB Listview导出到CSV文件函数

☆vb卸载所有窗体

☆VB中Null, Empty, Nothing, and vbNullString的区别

☆利用API函数计算程序运行时间VB

☆获取快捷方式原文件路径vb路径

☆利用VB函数Dir()实现递归搜索目录

☆VB数组的清除和重新定义

☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)

☆获取对象的接口信息(方法/属性/事件)(VB6代码)

☆VB6中给数组赋值的限制

☆[vb]一些窗口消息的详解

☆VB直接播放EXE文件中的声音文件

☆VB中利用CopyMemory使用指针

☆VB读写注册表的三种方法

☆[VB]SaveSetting 语句 和 DeleteSetting 语句 

☆VB APP对象属性一览表 + 灵活使用VB的APP对象 

☆[vb]SendMessageA函数 

☆使用VB绘制抛物线动画曲线 

☆关于vb中的容器 

☆[vb]利用WScript.Shell对象隐藏cmd命令行运行 

☆浅析VB For Each.Next语句 

☆VB中窗体模块、标准模块、类模块的区别 

☆引用 VB类模块 

☆VB中什么是类，类模块有什么作用 

☆VB SendKeys 语句 

☆VB 全局热键 

☆用VB轻松调用其他程序 

☆vb读取txt文件到textbox 

☆如何去优化你的VB程序3 

☆如何去优化你的VB程序2 

☆如何去优化你的VB程序1 

☆[VB]在状态栏中显示帮助信息 

☆[VB]把屏幕保存为图像 

☆Mp3Play.ocx控件让音乐之声响起来 

---

更多精彩>>>