下面的这断win32的命令怎么转tc语言呢，知道的老师帮我下。

dongshrine

（我想做的就是获取其他程序的控件文本，比如获取编辑框，文本框的文本。如下，找了程序，但是自己翻译不过来）


Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '声明发消息API

TracePrint getText(69198)

Function GetText(Arg_hwnd)
Dim S_TextLen
S_TextLen = SendMessage(Arg_hwnd, &HE, 0, 0) '发消息获取EDIT字符长度
S_strText = Space(S_TextLen) '以空格填充变量
Call SendMessage(Arg_hwnd, &HD, S_TextLen+1, S_strText) '发消息获取EDIT的内容
GetText = S_strText
End Function

如此美丽。

{:soso_e103:} ..

1. 
   
2. function GetText(Arg_hwnd)
   
3. 
   
4.         var WM_GETTEXTLENGTH = #E, WM_GETTEXT = #D
   
5.    
   
6. //    var Arg_hwnd
   
7. 
   
8.         var s_len
   
9. 
   
10.         s_len = dllcall("user32.dll", "long", "SendMessageW", "long", Arg_hwnd, "long", WM_GETTEXTLENGTH, "long", 0, "long", 0)
    
11.        
    
12.     traceprint("len: " & s_len)
    
13.    
    
14.     var s_tmp = ""
    
15.    
    
16.         dllcall("user32.dll", "long", "SendMessageW", "long", Arg_hwnd, "long", WM_GETTEXT, "long", s_len + 1, "long", varaddress(s_tmp))
    
17. 
    
18.         traceprint("str: " & s_tmp)
    
19.    
    
20.     return s_tmp
    
21. end
    

复制代码

.. TC 现在基本废了   没人会回答你的问题

somyyy

dllcall研究一下就明白了

sam7894604

其实你用TC内建的命令不就可以了么?

1. 窗口获取标题(窗口句柄,1)

复制代码

具体原因请查阅文档

1102509486

直接用GetWindowTextW 获取普通编辑框内容 部分编辑框内容是需要自身进程调用 才能获得内容  sendmessageW获取是自身进程的地址其他进程无法获得

dongshrine

如此美丽。 发表于 2015-11-14 02:30
..

谢谢大神。。辛苦了。

dongshrine

sam7894604 发表于 2015-11-14 05:59
其实你用TC内建的命令不就可以了么?

谢谢鬼神大哥，你的这个简单暴力，楼上的帮我翻译，我就不给你采纳了，但是你的办法解决了我的问题，谢了！！

dongshrine

1102509486 发表于 2015-11-14 07:31
直接用GetWindowTextW 获取普通编辑框内容 部分编辑框内容是需要自身进程调用 才能获得内容  sendmessageW ...

谢谢