Search in HTML

[Siemien]

Hi ,i'd like to do script who can search 1 word in html and when AutoIT cant find it ,my script will do func()

i wrote :

<---- This part is working ---->
Func loguj()
$oIE = _IECreate ("www.battleknight.pl");

$oUser = _IEGetObjByName ($oIE, "user_name")
$oPass = _IEGetObjByName ($oIE, "user_password")
$oServer = _IEGetObjByName ($oIE, "Server")
$oSubmit = _IEGetObjByName ($oIE, "Submit")

_IEFormElementOptionselect($oServer,GUICtrlRead($server))
_IEFormElementSetValue ($oUser,GUICtrlRead($log))
_IEFormElementSetValue ($oPass, GUICtrlRead($haslo))


_IEAction ($oSubmit, "click")
_IELoadWait($oIE)


sprlogowanie()

EndFunc
<---- This part is working ---->
<--- But it isnt working ---->
Func sprlogowanie()
$zalogowany =   _IEBodyReadHTML("art/switch_7.gif")
If($zalogowany <> "art/switch_7.gif") Then
loguj()
EndIf
EndFunc

<--- But it isnt working ---->

How i can do it?:/

[GEOSoft]

Func sprlogowanie()

$zalogowany = _IEBodyReadHTML("art/switch_7.gif")

If($zalogowany <> "art/switch_7.gif") Then

loguj()

EndIf

EndFunc

First off $oIE should be declared as a global variable. Then try this

;
Func sprlogowanie()
$zalogowany =   _IEBodyReadHTML($oIE)
If NOT StringInStr($zalogowany, "art/switch_7.gif") Then
[indent]loguj()[/indent]
EndIf
EndFunc
;

EDIT: If for some reason you can't declare $oIE globaly then this should also work

Func loguj()
$oIE = _IECreate ("www.battleknight.pl");

$oUser = _IEGetObjByName ($oIE, "user_name")
$oPass = _IEGetObjByName ($oIE, "user_password")
$oServer = _IEGetObjByName ($oIE, "Server")
$oSubmit = _IEGetObjByName ($oIE, "Submit")

_IEFormElementOptionselect($oServer,GUICtrlRead($server))
_IEFormElementSetValue ($oUser,GUICtrlRead($log))
_IEFormElementSetValue ($oPass, GUICtrlRead($haslo))


_IEAction ($oSubmit, "click")
_IELoadWait($oIE)


sprlogowanie($oIE)

EndFunc

Func sprlogowanie($obj)
$zalogowany =   _IEBodyReadHTML($obj)
If NOT StringInStr($zalogowany, "art/switch_7.gif") Then
   loguj()
EndIf
EndFunc

Edited February 28, 2009 by GEOSoft

[Siemien]

Cheers! It works but i have 1 question more:

How can i write to $oIE2 current website addres or window name?

[GEOSoft]

Cheers! It works but i have 1 question more:

How can i write to $oIE2 current website addres or window name?

What is $oIE2??? I don't see that in your code anyplace. And just where are you planning on writing this?

[Siemien]

When i using:

Func loguj()
Global $oIE = _IECreate ("www.battleknight.pl");

$oUser = _IEGetObjByName ($oIE, "user_name")
$oPass = _IEGetObjByName ($oIE, "user_password")
$oServer = _IEGetObjByName ($oIE, "Server")
$oSubmit = _IEGetObjByName ($oIE, "Submit")

_IEFormElementOptionselect($oServer,GUICtrlRead($server))
_IEFormElementSetValue ($oUser,GUICtrlRead($log))
_IEFormElementSetValue ($oPass, GUICtrlRead($haslo))


_IEAction ($oSubmit, "click")
_IELoadWait($oIE)

WinWaitActive ("BattleKnight - Windows Internet Explorer")
Sleep (5000)

sprlogowanie()

EndFunc
    
Func sprlogowanie()
$zalogowany =   _IEBodyReadHTML($oIE)
If NOT StringInStr($zalogowany, "art/switch_7.gif") Then
loguj()
EndIf
EndFunc

my boot always does new Weendow

i want do about :

expandcollapse popup

Func loguj()
Global $oIE = _IECreate ("www.battleknight.pl");

$oUser = _IEGetObjByName ($oIE, "user_name")
$oPass = _IEGetObjByName ($oIE, "user_password")
$oServer = _IEGetObjByName ($oIE, "Server")
$oSubmit = _IEGetObjByName ($oIE, "Submit")

_IEFormElementOptionselect($oServer,GUICtrlRead($server))
_IEFormElementSetValue ($oUser,GUICtrlRead($log))
_IEFormElementSetValue ($oPass, GUICtrlRead($haslo))


_IEAction ($oSubmit, "click")
_IELoadWait($oIE)

WinWaitActive ("BattleKnight - Windows Internet Explorer")
Sleep (5000)

sprlogowanie()

EndFunc
func loguj2()
Global $oIE2 =[b] "Curent Website Addres or Window Name"[/b]

$oUser = _IEGetObjByName ($oIE, "user_name")
$oPass = _IEGetObjByName ($oIE, "user_password")
$oServer = _IEGetObjByName ($oIE, "Server")
$oSubmit = _IEGetObjByName ($oIE, "Submit")

_IEFormElementOptionselect($oServer,GUICtrlRead($server))
_IEFormElementSetValue ($oUser,GUICtrlRead($log))
_IEFormElementSetValue ($oPass, GUICtrlRead($haslo))


_IEAction ($oSubmit, "click")
_IELoadWait($oIE)

WinWaitActive ("BattleKnight - Windows Internet Explorer")
Sleep (5000)



EndFunc
    
Func sprlogowanie()
$zalogowany =   _IEBodyReadHTML($oIE)
If NOT StringInStr($zalogowany, "art/switch_7.gif") Then
loguj2()
EndIf
EndFunc

And it will do still all in the same window

[GEOSoft]

It's creating a new window because you have $oIE declared inside your first function. Just move the

Global $oIE = _IECreate ("www.battleknight.pl");

to someplace before the function. Since you are calling loguj2() when the string is not found then you are telling it to create another instance of the object ($oIE) which points to the same page.

Example of better placement

expandcollapse popup

#include<ie.au3>
Global $oIE = _IECreate ("www.battleknight.pl");
more code here (possibly)
Func loguj()
$oUser = _IEGetObjByName ($oIE, "user_name")
$oPass = _IEGetObjByName ($oIE, "user_password")
$oServer = _IEGetObjByName ($oIE, "Server")
$oSubmit = _IEGetObjByName ($oIE, "Submit")

_IEFormElementOptionselect($oServer,GUICtrlRead($server))
_IEFormElementSetValue ($oUser,GUICtrlRead($log))
_IEFormElementSetValue ($oPass, GUICtrlRead($haslo))


_IEAction ($oSubmit, "click")
_IELoadWait($oIE)

WinWaitActive ("BattleKnight - Windows Internet Explorer")
Sleep (5000)

sprlogowanie()

EndFunc
#cs;; You shouldn't need this one
func loguj2()
$oUser = _IEGetObjByName ($oIE, "user_name")
$oPass = _IEGetObjByName ($oIE, "user_password")
$oServer = _IEGetObjByName ($oIE, "Server")
$oSubmit = _IEGetObjByName ($oIE, "Submit")

_IEFormElementOptionselect($oServer,GUICtrlRead($server))
_IEFormElementSetValue ($oUser,GUICtrlRead($log))
_IEFormElementSetValue ($oPass, GUICtrlRead($haslo))


_IEAction ($oSubmit, "click")
_IELoadWait($oIE)

WinWaitActive ("BattleKnight - Windows Internet Explorer")
Sleep (5000)



EndFunc
#ce
Func sprlogowanie()
$zalogowany =   _IEBodyReadHTML($oIE)
If NOT StringInStr($zalogowany, "art/switch_7.gif") Then
loguj2()
EndIf
EndFunc