Jump to content
Sign in to follow this  
autoitxp

IE Form

Recommended Posts

autoitxp

Hi

hay i want to fix this this is poping up input data after loading whole page how to popup msg before loading page?

#include <IE.au3>
HotKeySet("{ESC}", "_Quit")
Local $sHwnd, $window, $len, $oIE, $inserthead ,$sTexts, $colForms, $iFormCnt, $iForm, $sMsg, $oForm, $iElemCnt, $iElem, $surl, $filewriter, $fHandle, $char, $socket, $TotalSize

While 1
    $sHwnd = WinGetHandle("", "")
    $oIE = _IEAttach($sHwnd, "HWND")
If _IEPropertyGet($oIE  , "busy") Then
    
_IELoadWait($oIE)
    If @error Then
Else


            $sTexts = _IEBodyReadHTML($oIE)
            $colForms = _IEFormGetCollection($oIE)
            $iFormCnt = @extended
            $iForm = 0
            $sMsg = "Element values:" & @CRLF
            For $oForm In $colForms
                $colElem = _IEFormElementGetCollection($oForm)
                $iElemCnt = @extended
                $iElem = 0
                For $oElem In $colElem
                    $sMsg &= "Form " & $iForm & ": Elem " & $iElem & ":  " & _IEFormElementGetValue($oElem) & @CRLF
                    $iElem += 1
                Next

                $iForm += 1


Next




MsgBox (64 , "" , @CRLF &_IEPropertyGet($oIE, "locationurl") &@CRLF & $iElemCnt & " " & "Results:" & @CRLF & $sMsg & @CRLF)   
EndIf

  EndIf
    Sleep(20)
    
WEnd


Func _Quit()
    _IEQuit($oIE)
    Exit
EndFunc
Edited by autoitxp

Share this post


Link to post
Share on other sites
PsaltyDS

Hi

hay i want to fix this this is poping up input data after loading whole page how to popup msg before loading page?

By inserting MsgBox() wherever you want it...?

(Sanitized of the psychotic white space):

#include <IE.au3>
HotKeySet("{ESC}", "_Quit")
Local $sHwnd, $window, $len, $oIE, $inserthead, $sTexts, $colForms, $iFormCnt, $iForm, $sMsg, $oForm, $iElemCnt, $iElem, $surl, $filewriter, $fHandle, $char, $socket, $TotalSize

While 1
    $sHwnd = WinGetHandle("", "")
    $oIE = _IEAttach($sHwnd, "HWND")
    If _IEPropertyGet($oIE, "busy") Then
        _IELoadWait($oIE)
        If @error = 0 Then
            $sTexts = _IEBodyReadHTML($oIE)
            $colForms = _IEFormGetCollection($oIE)
            $iFormCnt = @extended
            $iForm = 0
            $sMsg = "Element values:" & @CRLF
            For $oForm In $colForms
                $colElem = _IEFormElementGetCollection($oForm)
                $iElemCnt = @extended
                $iElem = 0
                For $oElem In $colElem
                    $sMsg &= "Form " & $iForm & ": Elem " & $iElem & ":  " & _IEFormElementGetValue($oElem) & @CRLF
                    $iElem += 1
                Next
                $iForm += 1
            Next
            MsgBox(64, "", @CRLF & _IEPropertyGet($oIE, "locationurl") & @CRLF & $iElemCnt & " " & "Results:" & @CRLF & $sMsg & @CRLF)
        EndIf
    EndIf
    Sleep(20)
WEnd

Func _Quit()
    _IEQuit($oIE)
    Exit
EndFunc   ;==>_Quit

:)


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites
autoitxp

well thanks man but when i go to url like hotmail.com and enter ma user and password and click on sign in button its not poping up i think coz it getting form info after loading page can i get info before loading ?

Edited by autoitxp

Share this post


Link to post
Share on other sites
PsaltyDS

well thanks man but when i go to url like hotmail.com and enter ma user and password and click on sign in button its not poping up i think coz it getting form info after loading page can i get info before loading ?

Read the help file entries and examples more closely under the _IE* "click" functions. Different situations require different methods. Sometimes it's a matter of giving the button object "focus" and then just Send("{ENTER}") to get the page to behave.

:)


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
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
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.