论坛 › 已解决问题区 › 【已解决】如何点击此类的标签（按钮）？

chishingchan 发表于 2023-9-3 18:23:59

【已解决】如何点击此类的标签（按钮）？

本帖最后由 chishingchan 于 2023-9-3 21:17 编辑

Zlib Tools 程序运行后默认是 Decompress，如何点击 Compress (不知道是按钮还是标签）
不需要窗口坐标点击方式！
不需要窗口坐标点击方式！
不需要窗口坐标点击方式！
谢谢！





答案在 3#

3131210 发表于 2023-9-3 19:16:46

Local $hCompress = ControlGetHandle(WinGetHandle(''),'','')
If Not @error Then
        _MouseClick($hCompress,8,8)
EndIf

Func _MouseClick($hWnd, $x, $y)
        Local $lParam = BitOR(BitAND($x, 0xFFFF), $y * 0x10000)
        _PostMessage($hWnd, 0x200, 0, $lParam) ;WM_MOUSEMOVE
        Sleep(10)
        _PostMessage($hWnd, 0x201, 0, $lParam) ;WM_LBUTTONDOWN
        _PostMessage($hWnd, 0x202, 0, $lParam) ;WM_LBUTTONUP
EndFunc   ;==>_MouseClick

Func _PostMessage($hWnd, $iMsg, $iwParam, $ilParam)
        DllCall('user32.dll', 'bool', 'PostMessage', 'hwnd', $hWnd, 'uint', $iMsg, 'wparam', $iwParam, 'lparam', $ilParam)
EndFunc   ;==>_PostMessage

afan 发表于 2023-9-3 19:22:38

ControlClick('Zlib Tools', '', 'obj_SysTabControl321', 'left', 1, 40, 10)

chishingchan 发表于 2023-9-3 21:01:32

afan 发表于 2023-9-3 19:22


报告a大，代码无效！
Run(@ScriptDir & "\ZlibUIN.exe", @ScriptDir)
$Title = "Zlib Tools"
$hWnd = WinWait($Title)
WinActivate($hWnd)
ControlClick('$hWnd', '', 'obj_SysTabControl321', 'left', 1, 40, 10)

afan 发表于 2023-9-3 21:07:22

chishingchan 发表于 2023-9-3 21:01
报告a大，代码无效！

我的代码被你改错了…
ControlClick('$hWnd'引号去掉

chishingchan 发表于 2023-9-3 21:13:41

afan 发表于 2023-9-3 21:07
我的代码被你改错了…
ControlClick('$hWnd'引号去掉

谢谢a大！我总是大意。

查看完整版本: 【已解决】如何点击此类的标签（按钮）？