求助一个VB粘贴的问题！ - 编程论坛

#2

lianyicq2015-06-01 09:14

如果向任意已知句柄的控件发送信息,可以了解sendmessage这个API.
很早以前用老版本QQ时我试过,粘和抓文本都没问题,因为那时的聊天对话框的句柄能被搜索到.但涉及到安全问题,现在的QQ绝不是如此简单的放一个控件来输入和显示文本和图形信息.
你可以用微软的spy++来试试看.

#3

lzb31582015-06-01 11:36

回复 2楼 lianyicq

请问版主? 粘贴在记事本上可以吗？怎么实现？

#4

lianyicq2015-06-01 14:06

回复 3楼 lzb3158

网上关于sendmessage发送文本信息的内容太多了。
实现也很容易，如果是操作记事本，用3个API和1个常数申明。自己花点时间在网上查查资料。
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
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 Const WM_SETTEXT = &HC