Skip to content

Instantly share code, notes, and snippets.

@zohead

zohead/copy_qqmsg.au3

Created April 8, 2014 14:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zohead/10130455 to your computer and use it in GitHub Desktop.
Save zohead/10130455 to your computer and use it in GitHub Desktop.
Download ZIP
AutoIt script to export QQ remote message log
Raw
copy_qqmsg.au3
Local $hWnd = WinGetHandle("[CLASS:TXGuiFoundation; TITLE:qqgroup]", "")
Local $editWnd = WinGetHandle("EditPlus", "")
$i=1
While $i<=200
WinActivate($hWnd)
Local $aPos = WinGetPos("[ACTIVE]")
MouseClick("left", $aPos[0] + $aPos[2] - 52, $aPos[1] + $aPos[3] - 18)
Sleep(100)
$i=$i+1
WEnd
$i=1
While $i<=100
WinActivate($hWnd)
Local $aPos = WinGetPos("[ACTIVE]")
MouseClick("left", $aPos[0] + $aPos[2] - 52, $aPos[1] + $aPos[3] - 18)
Sleep(5000)
Send("^a")
Send("^c")
WinActivate($editWnd)
Sleep(500)
Send("^v")
Send("{ENTER}")
Sleep(500)
$i=$i+1
WEnd
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment