模拟复制得到QQ聊天记录的最后一条信息

白嫖之黑

call("main","")

Func main($xx)

        Local $hand,$win,$txt

        if WinExists($xx) Then

                $hwnd=WinGetHandle($xx)

                WinSetState($hwnd,"",@SW_RESTORE)

                WinActivate($hwnd)

                send("!h")

                Sleep(1000)

                $win=WinGetPos($hwnd)

                $xy=MouseGetPos()

                MouseClick("",$win[0]+$win[2]-200,$win[1]+$win[3]-160)

                send("^a")

                send("^c")

                $txt=clipget()

                MouseMove($xy[0],$xy[1])

                send("!h")

                Call("getmsg",$txt)

        EndIf

EndFunc

func getmsg($msg)

        $zzxx=StringRegExp($msg,".*? ..../..?/..? ..?:..?:..?",3)

        $zz=$zzxx[UBound($zzxx)-1]

        $zb=StringInStr($msg,$zz,0,-1)

        $hfwb=StringMid($msg,$zb)

        FileWriteLine("getmsg.txt",$hfwb)

EndFunc