晴天博客

#include <IE.au3>
opt("WinTitleMatchMode",2)
$objvoice = objcreate("sapi.spvoice")
$objvoice.volume =50
;$objvoice.rate = 9
$ocon =""

$objvoice.speak("晴天聊天小助手",1)
while 1
if WinExists(".bliao.com") =1 then
bliao()
endif
sleep(500)
wend


func bliao()
$oie = _IEAttach(".bliao.com")
$oid = _IEFrameGetObjByName($oie,"u1")
$ostr = _IEBodyReadText($oid)
if StringLen($ostr)> $ocon then
$astr = StringTrimLeft($ostr,$ocon)
$str = StringRegExpReplace($astr,"\(\d{2}:\d{2}:\d{2}\)","")
$objvoice.speak($str)
$ocon = StringLen($ostr)
$oie ="null"
endif
if StringLen($ostr)< $ocon AND $ostr<>"" then
$str = StringRegExpReplace($ostr,"\(\d{2}:\d{2}:\d{2}\)","")
;if NOT $str = $oldstr then
$objvoice.speak($str,1)
$ocon = StringLen($ostr)
;$oldstr = $str
$oie ="null"
endif
endfunc