请问如何dllcall这段API代码使之能用于AU3[已解决]

cashiba

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
   Const $WM_GETTEXT = &HD
   Const  $WM_GETTEXTLENGTH=&HE
Func GetText($Arg_hwnd)
   Dim $S_TextLen,$S_strText
   $S_TextLen = SendMessage($Arg_hwnd, $WM_GETTEXTLENGTH,0, 0)
   $S_strText = Space($S_TextLen)
   SendMessage($Arg_hwnd, $WM_GETTEXT, $S_TextLen+1, $S_strText)
   return $S_strText
EndFunc

新手还不会使用dllcall，请教各位老师，以上代码如何改写才能在AU3中正常运行呢？

afan

这个 SendMessage Api 能获取的文本用 Au3 的内置函数都能获取，早跟你说过，干嘛不自己测试呢？
WinGetText、ControlGetText 等

cashiba

这个 SendMessage Api 能获取的文本用 Au3 的内置函数都能获取，早跟你说过，干嘛不自己测试呢？
WinGetTe ...
afan 发表于 2016-3-17 22:12

for $i=0 to ubound($Hsbrr,1)-1
    $sText = ControlGetText($Hsbrr[$i][0], "", $Hsbrr[$i][1]);显示编辑控件的文本.
    ConsoleWrite($sText & @CRLF)
        $sText=""
next
http://www.autoitx.com/thread-51776-1-1.html

请aFan超版看看这段代码哪里写得不对，为啥取不到值呢？在按键里引用sendmessage（如一楼类似形式的代码）能得到想要的结果

afan

ControlGetText($Hsbrr[$i][0], "", $Hsbrr[$i][1]);显示编辑控件的文本.
改为
ControlGetText("", "", $Hsbrr[$i][1]);显示编辑控件的文本.
试试
为何不用大家都能测试的目标程序做测试呢… 想不通~~  这样完全靠猜

cashiba

ControlGetText("", "", $ ...
afan 发表于 2016-3-17 23:36

也试过了，取不到值阿。所以才想改用最直接的sendmessage来试试。就是下面这个

$S_strText = Space($S_TextLen)
DllCall("user32.dll","int","SendMessage","hwnd",$Arg_hwnd, "int",$WM_GETTEXT,"int",$S_TextLen+1,"int",$S_strText)

不知道怎么修改。au3里好像没有space函数....

zldfsz

Run("notepad.exe")
Local $var = ControlGetText("[CLASS:Notepad]", "", "Edit1")
WinWaitActive("[CLASS:Notepad]","")
ControlCommand("[CLASS:Notepad]", "", "Edit1", "EditPaste", "是要获得这里的内容吗")

$Arg_hwnd = ControlGetHandle("[CLASS:Notepad]", "", "[CLASS:Edit; INSTANCE:1]")
MsgBox(4096, "测试", GetText($Arg_hwnd))
Func GetText($Arg_hwnd)
        Const $WM_GETTEXT = 0xD
        Const $WM_GETTEXTLENGTH = 0xE
        Dim $S_TextLen, $S_strText
        $S_TextLen = _SendMessage($Arg_hwnd, $WM_GETTEXTLENGTH, 0, 0)
        $S_strText = Space($S_TextLen)
        $txt = _SendMessage($Arg_hwnd, $WM_GETTEXT, $S_TextLen + 1, DllStructGetPtr($S_strText))
        Return DllStructGetData($S_strText, "var")
EndFunc   ;==>GetText
Func Space($S_TextLen)
        Local $a = DllStructCreate("char var[" & $S_TextLen & "]") ;创建一个结构，分配内存空间
        Return $a;
EndFunc   ;==>Space

Func _SendMessage($hWnd, $iMsg, $wParam = 0, $lParam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lresult")
        Local $aResult = DllCall("user32.dll", $sReturnType, "SendMessageA", "hwnd", $hWnd, "uint", $iMsg, $wParamType, $wParam, $lParamType, $lParam)
        If @error Then Return SetError(@error, @extended, "")
        If $iReturn >= 0 And $iReturn <= 4 Then Return $aResult[$iReturn]
        Return $aResult
EndFunc   ;==>_SendMessage

cashiba

zldfsz 发表于 2016-3-18 11:25

谢谢zldfsz老师！我还以为调用API只能用dllcall呢。

测试汇报：
1、 Const $WM_GETTEXT = 0xD
       Const $WM_GETTEXTLENGTH = 0xE
       _SendMessage
       在#include <.....>中均有原型已预定义，注释后不再报错。
2、窗口spy所见如右：
     请看第一个句柄66666处有值。
3、代码测试结果如右：

不知道为啥会有不同，是不是还要字符转码啥的呢。感觉已经很接近了

afan

6# 获取的和直接 ControlGetText() 是一样的。
把第7行改一下比较结果
MsgBox(4096, ControlGetText("[CLASS:Notepad]", "", "Edit1"), GetText($Arg_hwnd))
楼主继续折腾。

cashiba

这个真不是折腾，如果都是记事本、计算器那样的标准控件，采取哪种方法可能都能行，但是这次采取六楼的写法还真取到值了，也就是只通过句柄就得到值。用control get text就是得不到结果。咱是新手，这些AU3的函数咱是不明觉厉，也许是太高深了，不会用吧。不管怎么讲，达到目的，得到结果才是王道吧.

cashiba

顺便说一句，六楼得到的结果跟大多数窗口spy工具能得到的结果是一致的，也许最多只能达到这个地步了。就算解决问题了，再往下走就太难为人了，真变成折腾了吧?

afan

这个真不是折腾，如果都是记事本、计算器那样的标准控件，采取哪种方法可能都能行，但是这次采取六楼的写法 ...
cashiba 发表于 2016-3-19 15:00

    你要的本来就是标准的edit控件，如果内置取不到你这种方法也取不到。当然，首先你得拿对了句炳。不说了

cashiba

对API几乎没啥了解，所以不懂为什么，那段代码也是在网上搜了好久看到的，在按键里已经验证可行，到Auotoitx里来，也是想看看有没有更有效的函数，试过 Controlgettext
怎么折腾都取不到，也许不会用它吧。
试过各种spy工具，但是奇怪的是，同为edit编辑框，少数能取到值，大多数取不到。不知道AU3有没有spy++这样的树状层次结构显示窗口和控件的工具，易语言写的倒有好几个。不管怎么说，这段代码简捷直观有用是真的.....。问题算是解决了吧，再次 谢谢各位老师咯

afan

回复 12# cashiba

就像你说的，窗口控件的层次结构并非一致的，有的可能很深，探测工具可能探测到的并非是你想要的，所以还得你自己探测其结构，找到需要的真实句炳一般就解决了。如果是非win标准控件，自绘的之类的，那获取就不容易了，需要读内存、ocr识别、找图识别之类的，相对来说，那就比较麻烦了

justlovemm

_WinAPI_SendMessage