Jump to content

how to replace -- IE.au3 ?


Recommended Posts

What exactly do you want to do? Do you have a .html saved somewhere?

Hi!

My UDF: NetInfo UDF Play with your network, check your download/upload speed and much more! YTAPI Easy to use YouTube API, now you can easy retrive all needed info from a video. NavInfo Check if a specific browser is installed and retrive other usefull information. YWeather Easy to use Yahoo Weather API, now you can easily retrive details about the weather in a specific region. No-IP UDF Easily update your no-ip hostname(s).

My Script: Wallpaper Changer Change you wallpaper dinamically, you can also download your wallpaper from your website and share it with all!   My Snippet: _ImageSaveToBMPConvert an image to bmp format. _SciteGOTO Open a file in SciTE at specific fileline. _FileToHex Show the hex code of a specified file

Link to comment
Share on other sites

If you are looking to do this with IE.au3, you could extend the functionality of _IETagNameAllGetCollection to loop through attributes that each tag contains.

#include<IE.au3>
#include<array.au3>

$oIE = _IE_Example("basic")

$aTest = _IETagGetInfo($oIE)
_ArrayDisplay($aTest)

Func _IETagGetInfo($oIE, $sDelim = ' = ')
    If $sDelim = -1 Then $sDelim = ' = '
    Local $oElements = _IETagNameAllGetCollection($oIE)
    If @error Then
        Return SetError(@error, @extended, 0)
    Else
        $iNumEle = @extended
    EndIf
    Dim $aTags[$iNumEle][100]
    $i = 0
    $iMaxPar = 0
    For $oElement In $oElements
        $aTags[$i][0] = $oElement.tagname
        $oAttribs = $oElement.attributes
        $a = 1
        For $oAttrib In $oAttribs
            If $oAttrib.specified Then
                $aTags[$i][$a] = $oAttrib.nodeName & $sDelim & $oAttrib.nodeValue
                $a += 1
                If $a > $iMaxPar Then $iMaxPar = $a
            EndIf
        Next
        $i += 1
    Next
    ReDim $aTags[$iNumEle][$iMaxPar]
    Return $aTags
EndFunc   ;==>_IETagGetInfo
Link to comment
Share on other sites

example

#include<IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
HotKeySet('{esc}', '_Exit')
$IE_Load = _IECreateEmbedded()
$Form1 = GUICreate("Form1", 627, 443, 192, 124,$WS_SYSMENU, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
$IE_Frame = GUICtrlCreateObj($IE_Load, 0, 0, 624, 400)
GUISetState(@SW_SHOW)

_IENavigate($IE_Load, "http://iphone.meuguia.tv/programacao/categoria/Todos")

Func _Exit()
    Exit
EndFunc

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

imagemopa.jpg

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...