找回密码
 加入
搜索
查看: 2135|回复: 2

[IE类操作] 163注册页取出验证图无法显示,求解

[复制链接]
发表于 2011-8-24 00:56:06 | 显示全部楼层 |阅读模式
本帖最后由 superlsw2008 于 2011-8-24 00:58 编辑
#include <IE.au3>
#include <GUIConstants.au3>
#include <ClipBoard.au3>
#include <GDIPlus.au3>
#include <Winapi.au3>
$OpenPage = _IECreate("http://reg.email.163.com/mailregAll/reg0.jsp")
$iVerifyPic = _IEImgGetCollection($OpenPage, 1)
_GDIPlus_Startup()
$iVerifyPics = $OpenPage.Document.body.createControlRange()
$iVerifyPics.add($iVerifyPic)
$iVerifyPics.Select ()
$iVerifyPics.execCommand('Copy')
Sleep(500)
_ClipBoard_Open(1)
$iVerifyPics = _ClipBoard_GetDataEx($CF_BITMAP)
$iVerifyPics = _GDIPlus_BitmapCreateFromHBITMAP($iVerifyPics)
_ClipBoard_Close()
;FileDelete(@TempDir & "\VerifyPic.bmp")
_GDIPlus_ImageSaveToFile($iVerifyPics, @TempDir & "\VerifyPic.bmp")
GUICreate("VerifyPic", 150, 150, -1, -1, -1)
GUISetBkColor(0xFFFFFF)
GUISetState()
$Img = GUICtrlCreatePic(@TempDir & "\VerifyPic.bmp", 10, 20, 80, 30)
_GDIPlus_BitmapDispose($iVerifyPics)
_GDIPlus_Shutdown()
While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then
                GUIDelete()
                ExitLoop
        EndIf
WEnd

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2011-8-24 08:57:34 | 显示全部楼层
是不是要把BMP转换成jpg呀,
 楼主| 发表于 2011-8-24 14:45:39 | 显示全部楼层
换了也不行
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-15 01:13 , Processed in 0.077236 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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