找回密码
 加入
搜索
查看: 974|回复: 0

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

[复制链接]
发表于 2020-5-10 22:48:45 | 显示全部楼层 |阅读模式
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

评分

参与人数 1金钱 +10 收起 理由
niqindong + 10 赞一个!

查看全部评分

您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 20:58 , Processed in 0.071519 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表