superlsw2008 发表于 2011-8-24 00:56:06

163注册页取出验证图无法显示，求解

本帖最后由 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

wsfda 发表于 2011-8-24 08:57:34

是不是要把BMP转换成jpg呀，

superlsw2008 发表于 2011-8-24 14:45:39

换了也不行
页: [1]
查看完整版本: 163注册页取出验证图无法显示，求解