本帖最后由 _ddqs. 于 2010-12-20 05:22 编辑 #Include <WinAPI.au3>
$win = WinGetTitle("") ;获取调试窗口
Run("Notepad.EXE") ;启动记事本
WinActivate($win,"") ;返回调试窗口
Sleep(500)
$HWND = ControlGetHandle("[CLASS:Notepad]", "", "Edit1") ;获取"记事本"控件句柄
ConsoleWrite("句柄: "& $HWND &@LF)
ControlSend("[CLASS:Notepad]", "", "[CLASS:Edit; INSTANCE:1]","help"&"^a",0) ;发送测试文本并全选(如果以下不会点击,这里的文本是选定状态)
Sleep(1000)
;---------------------------------------------------------------
_WinAPI_PostMessage($HWND, "0x0201",0 ,0) ;按下鼠标左键
_WinAPI_PostMessage($HWND, "0x0202",0 ,0) ;释放鼠标左键
;---------------------------------------------------------------
Sleep(500)
WinActivate("[CLASS:Notepad]", "") ;看下"记事本"操作结果
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;结果
;有启用 :_WinAPI_PostMessage() 没有选定状态
;不启用:_WinAPI_PostMessage() 2行都注释掉……存在选定状态
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|