madmasles

bills4, Sorry, my mistake,replace this: If Not @error Then ExitLoop to: If @error Then ExitLoop between For ...Next only.

First. May be like this? ;... $oTags = _IETagNameGetCollection($oIE, 'input') If Not @error Then For $oTag In $oTags If $oTag.type == 'submit' And $oTag.value == 'Join Now' Then _IEAction($oTag, 'click') If Not @error Then ExitLoop _IELoadWait($oIE) If Not @error Then ExitLoop EndIf Next EndIf ;... PS Sorry, I do not know English

$sText = '<?xml version="1.0" encoding="UTF-8" ?>' & @CRLF & _ '<user>' & @CRLF & _ '<login>' & @CRLF & _ ' <name>My name</name>' & @CRLF & _ ' <autologin>Yes</autologin>' & @CRLF & _ ' <pwd>No</pwd>' & @CRLF & _ ' <language>en</language>' & @CRLF & _ ' <skin>SkinBlack</skin>' & @CRLF & _ '</login>' & @CRLF & _ '<network tcp="0" udp="1513" used="1">' & @CRLF & _ ' <upnp>33</upnp>' & @CRLF & _ '</network>' & @CRLF & _ '</user>' Dim $aTags[7] = [6, 'name', 'autologin', 'pwd', 'language', 'skin', 'upnp'] For $i = 1 To $aTags[0] $sSearch = StringRegExpReplace($sText, '(?s).*?<' & $aTags[$i] & '>(.*?)</' & $aTags[$i] & '>?.*', '$1') If @extended = 1 Then MsgBox(0, $aTags[$i], $sSearch) Else MsgBox(16, 'Error', 'StringRegExpReplace') EndIf Next

#include <IE.au3> $sUrl = 'http://www.site.com/' $oIE = _IECreate($sUrl) If @error Then MsgBox(16, 'Error', _IECreate) Exit EndIf $oTags = _IETagNameGetCollection($oIE, 'input') If Not @error Then For $oTag In $oTags If $oTag.ClassName == 'standardButton' And $oTag.value == 'Refresh' Then _IEAction($oTag, 'click') _IELoadWait($oIE) MsgBox(64, 'Info', 'OK') EndIf Next Else MsgBox(16, 'Error', '_IETagNameGetCollection') EndIf