本帖最后由 afan 于 2012-11-19 16:32 编辑
请教超版
怎么把代码加到你9楼的代码里面呢？
加到哪一步分啊？
yufei8051 发表于 2012-11-19 14:59 http://www.autoitx.com/images/common/back.gif#include <Date.au3>
HotKeySet('{esc}', '_Exit')
Local $o_speech, $Flag = 0, $hWnd, $sTitle, $sTxt, $sLast, $sAll
AdlibRegister('_GetWinTxt')
While 1
If $Flag Then
If $sAll <> $sLast Then
FileWrite(@ScriptDir & '\my.txt', '[' & _NowTime() & ']' & @CRLF & $sAll & @CRLF & @CRLF)
$sLast = $sAll
EndIf
$o_speech = ObjCreate('SAPI.SpVoice')
$o_speech.Speak($sTitle & @CRLF & $sAll, 1)
Else
Sleep(1)
EndIf
WEnd
Func _GetWinTxt()
$hWnd = WinGetHandle('', '设置关注')
If Not $hWnd Then
$Flag = 0
Return 0
EndIf
$sTitle = _GetWinTextFromPoint('', '设置关注', 13, 7)
$sTxt = _GetWinTextFromPoint('', '设置关注', 13, 51)
$sAll = $sTitle & @CRLF & $sTxt
If $sAll == $sLast Then
$Flag = 0
Return 0
EndIf
$Flag = 1
EndFunc ;==>_GetWinTxt
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _GetWinTextFromPoint($title, $text, $_x, $_y)
;afan提示：获取窗口指定坐标点包含的窗口(控件)的文本
Local $hWnd = WinGetHandle($title, $text)
Local $tPoint = DllStructCreate('long X;long Y')
DllStructSetData($tPoint, 1, $_x)
DllStructSetData($tPoint, 2, $_y)
DllCall('user32.dll', 'bool', 'ClientToScreen', 'hwnd', $hWnd, 'ptr', DllStructGetPtr($tPoint))
Local $tPointCast = DllStructCreate('int64', DllStructGetPtr($tPoint))
Local $aRt0 = DllCall('user32.dll', 'hwnd', 'WindowFromPoint', 'int64', DllStructGetData($tPointCast, 1))
If @error Then Return SetError(2, '', '')
Return ControlGetText($hWnd, '', $aRt0)
EndFunc ;==>_GetWinTextFromPoint
更完善点的函数 _GetWinInfoFromPoint 在此 http://www.autoitx.com/thread-36184-1-1.html
回复 46# afan
感谢超版亲切关怀和具体指导，程序运行正常，预定目的完全实现！
祝超版升官发财美女环绕长命百岁！
小伙子不错嘛，都用上win8了。
小伙子不错嘛，都用上win8了。
MicroBlue 发表于 2012-11-19 19:55 http://www.autoitx.com/images/common/back.gif
紧跟科技潮流，哈哈
win8的确好用，启动速度不到10秒，比win7快多了。
而且基本上集成了所有常用软件，像虚拟光驱，压缩解压缩，杀毒，连浏览器我都直接使用ie10了，输入法用win8自带的拼音，省事多了
又学习到了.
原来两年前就问过这问题，我真是不长进