[Сеть, интернет] IE. Как импортировать изображение со со страницы в GUI?

[Belfigor]

Имеется вот такой вот код:

<a href="/player/" class="name"><img src="/@/images/pers/man2_thumb.png" class="avatar">
<b>WilliBubba [1]
		</b></a>

На странице он отображает аватар и ниже его ник. Как можно импортировать картинку со страницы сайта к себе в ГУИ?

 

[dwerf]

Скачать картинку с помощью InetGet(), в ГУИ использовать GuiCtrlCreatePic() и возможно GuiCtrlSetImage().

 

[Belfigor]

Суть в том что я не знаю как качать картинку вот по такой ссылке:
src="/@/images/pers/man2_thumb.png"

 

[kaster]

URL/@/images/pers/man2_thumb.png

 

[dwerf]

Если в начале адреса какого нибудь файла указанного в хтмл-странице не стоит домен то:
если первый знак / то в начале просто подставляется домен
иначе в начале подставляется адрес самого хтмл-файла минус название хтмл-файла.

Надеюсь понятно написал. :whistle:

 

[FlatX007]

Может исходный код этой программы поможет вам

http://autoit-script.ru/index.php?topic=1723.0

 

[Garrett]

Belfigor
Можно ссылку на страницу с аватаром?
Вот тут тоже посмотрите, может, поможет.

 

[Belfigor]

Ссылка на страницу вот: http://www.moswar.ru/player/
Но надо логиниться в игру чтобы аватар отображался :(

 

[Garrett]

Где-то так:

#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GDIPlus.au3>

Global $oForm
Global $sPath = @ScriptDir & "\avatar.jpg"

_GDIPlus_Startup ()

$oIE = _IECreate("http://www.moswar.ru/")

#Region ### START Koda GUI section ### Form=
$Form = GUICreate("Form1", 105, 133, 192, 114)
$BottonSend = GUICtrlCreateButton("Войти", 14, 96, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    _ShowAvatar()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            _GDIPlus_ShutDown ()
            Exit
        Case $nMsg = $BottonSend
            _Submit()
    EndSelect
WEnd

Func _Load() ; Загружаем и сохраняем картинку
    $oDiv = _IEGetObjById ($oIE, "personal")
    $oImgs = _IETagNameGetCollection ($oDiv, "img")

    For $oImg In $oImgs
        $sAvatar = $oImg.src
    Next
   
    InetGet($sAvatar, $sPath, 1)
    _ShowAvatar() 
EndFunc

Func _ShowAvatar() ; Показываем картинку в GUI
    $hBitmap = _GDIPlus_BitmapCreateFromFile ($sPath)
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($Form)
    _GDIPlus_GraphicsDrawImage ($hGraphic, $hBitmap, 10, 5)
    _GDIPlus_GraphicsDispose ($hGraphic)
    _GDIPlus_BitmapDispose ($hBitmap)
    Sleep(30)
EndFunc


Func _Submit() ; Отправляем данные
    Local $sLogin	= "" ; Логин
    Local $sPass	= "" ; Пароль

	$oForm = _IEFormGetCollection ($oIE, 0)
    $oInputs = _IETagNameGetCollection ($oForm, "img")
    $sNW_login = _IEFormElementGetObjByName($oForm, "email")
        _IEFormElementSetValue($sNW_login, $sLogin)
    $sNW_pass = _IEFormElementGetObjByName($oForm, "password")
        _IEFormElementSetValue($sNW_pass, $sPass)
	_IEFormElementCheckboxSelect ($oForm, 0,"remember", 0, "byIndex")
    _IEFormSubmit($oForm)
    _IELoadWait ($oIE)
	If Not FileExists($sPath) Then _Load()
EndFunc