Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long dim retlength As Long dim retstring As String Const WM_GETTEXT = &HD Const WM_GETTEXTLENGTH = &H...
tempstr = Space(90000) strlong = Len(tempstr) rtn = SendMessage(hwnd, WM_GETTEXT, strlong, ByVal tempstr)
你还是用键盘钩子吧,为了安全,现在的Edit密码框,几乎全部过滤WM_GETTEXT消息,也就是说你向它发这个消息,它就过滤掉了,不理会你的要求.所以现在用WM_GETTEXT,多数都是无法返回内容的
WM_CONTEXTMENU '当用户某个窗口中点击了一下右键就发送此消息给这个窗口WM_STYLECHANGING '当调用SETWINDOWLONG函数将要改变一个或多个'窗口的风格时发送此消息给那个窗口WM_STYLECHANGED '当调用SETWINDOWLONG函数一个或多个'窗口的风格后发送此消息给那个窗口WM_DISPLAYCHANGE '当显示器的分辨率改变后发送此消息给所有的...
'向该窗口发送一个WM_GETTEXT消息,以获得该窗口的文本,并显示在PasswordText文本框中 tempstr = Space(255) strlong = Len(tempstr) rtn = SendMessage(curwnd, WM_GETTEXT, strlong, tempstr) tempstr = Trim(tempstr) PasswordText.Text = tempstr ...
首先，请您使用wParam和lParam来称呼 wParam是你要获得的消息的长度 lParam是你要用来储存目标Text的内容的变量指针
WM_SETTEXT '应用程序发送此消息来设置一个窗口的文本 WM_GETTEXT '应用程序发送此消息来复制对应窗口的文本到缓冲区 WM_GETTEXTLENGTH '得到与一个窗口有关的文本的长度(不包含空字符) WM_PAINT '要求一个窗口重画自己 WM_CLOSE '当一个窗口或应用程序要关闭时发送一个信号 ...
Public Const WM_GETTEXT = &HD '取得窗体的caption Private Sub Command_Click(Index As Integer) Dim S As String S = String(80, Chr(0)) Select Case Index Case 0: SendMessage Me.hwnd, WM_GETTEXT,Len(S), ByVal S: Text1 = Left(S, InStr(S, Chr(0)) - 1) '读出窗体的Caption ...
WM_GETTEXT = $000D; 应用程序发送此消息来复制对应窗口的文本到缓冲区 WM_GETTEXTLENGTH = $000E; 得到与一个窗口有关的文本的长度(不包含空字符) WM_PAINT = $000F; 要求一个窗口重画自己 WM_CLOSE = $0010; 当一个窗口或应用程序要关闭时发送一个信号 WM_QUERYENDSESSION = $0011; 当用户选择结束...
用WindowFromPoint(Poss);得到鼠标下的窗口句柄.用SendMessage(Hands, WM_GETTEXT, 128, Integer(@Buf));取得窗口上的文字,如果取得的是空 则用GetWindowText(Handle,buf,256);再取一次就行了.buf数组里面的就是空口上的文字.