#AutoIt3Wrapper_UseUpx=n
#include <IE.au3>
#include <Clipboard.au3>
#include <ScreenCapture.au3>
$url = "http://service.weibo.com/reg/regindex.php?appsrc=39qqvX&backurl=&diy="
GetPic($url)
Func GetPic($opicURL)
$oIE = _IECreate($opicURL, 0, 1, 1)
$i = 1
If FileExists(@TempDir & "\1") = 0 Then
DirCreate(@TempDir & "\1")
Else
DirRemove(@TempDir & "\1", 1)
DirCreate(@TempDir & "\1")
EndIf
Do
Sleep(600)
$Ele = _IEGetObjById($oIE, "check_img")
$oPic = $oIE.Document.body.createControlRange()
$oPic.Add($Ele)
$oPic.Select()
$oPic.execCommand("Copy");复制到剪贴板
_ClipBoard_Open(0);从剪切板获取图片数据
$iVPics = _ClipBoard_GetDataEx($CF_BITMAP)
_ClipBoard_Close()
$pic_name = "VPics" & $i & ".bmp"
_ScreenCapture_SaveImage(@TempDir & "\1" & $pic_name, $iVPics)
$Ele = _IEGetObjById($oIE, "refreshCode") ;
$Ele.click
$i += 1
Until $i = 500
_IELoadWait($oIE)
EndFunc ;==>GetPic