Question

vb用sendmessage给其他程序赋值和取值问题

我这里想用vb做一个开票辅助软件，请问为什么我修改不了商品名称，也不能取得商品名称的值？
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Const WM_GETTEXT = &HD
Private Const EM_REPLACESEL = &HC2
Private Const BM_CLICK = &HF5
Private Sub Command1_Click()
QQHwnd = FindWindow("TInvListForm", "销货清单填开")
QQHwnd = FindWindowEx(QQHwnd, 0, "TRecordDisplayForm", vbNullString)
QQHwnd = FindWindowEx(QQHwnd, 0, "TPanel", vbNullString)
QQHwnd = FindWindowEx(QQHwnd, 0, "TStaticText", vbNullString)
MsgBox QQHwnd
MsgBox SendMessage(QQHwnd, EM_REPLACESEL, 0, ByVal "商品名称")
Dim lLen As Long
GetWinText = String(255, Chr(0))
lLen = SendMessage(QQHwnd, WM_GETTEXT, Len(GetWinText), ByVal GetWinText)
GetWinText = Left(GetWinText, lLen)
MsgBox GetWinText
End Sub
这里得到的值分别为132148，0和一个空值，

分剩下的不多了

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏10（财富值+成长值）

Answer 1

你的代码运行时该框内显示的里面是有“螺丝”两个字还是空的？

追问

是有两个字的

追答

那说明132148并不是你需要修改的窗口，你看spy里面，0x20434窗口的文本也是""，空，说明spyxx也没能获取到文本。

追问

什么原因会导致获取的不是这个句柄？会不会是软件自身的保护机制或者安全软件这些？

追答

是的

追问

你提醒我了，是句柄不对，要双击窗口之后才能看到另外一个编辑窗口。
我刷新之后子窗口有标题，但是为什么用下面的代码获取不到获取这些标题呢？

追答

双击出来的那个窗口应该不是TStaticText类

追问

双击出来的不是那个类，我编辑成功了，但是获取数据不成功，再好好研究下。