Jump to content

comment je peux ecrire qlq chose dans champ texte


Recommended Posts

here the code :

Func GetDivByClass(ByRef $o_object, $s_linkText, $i_index = 0, $f_wait = 1)
    If Not IsObj($o_object) Then
        __IEConsoleWriteError("Error", "GetDivByClass", "$_IEStatus_InvalidDataType")
        SetError($_IEStatus_InvalidDataType, 1)
        Return 0
    EndIf
    ;
    Local $found = 0, $div, $linktext, $divs = _IETagNameGetCollection($o_object, "DIV")
    $i_index = Number($i_index)
;~     For $link In $links
                ;~ MsgBox(0, "Link-Found", $found)
;~                 If IsObj($link) Then
                    ;~ MsgBox(0, "Link-Objet:", "OK")
;~                 EndIf
                ;~ MsgBox(0, "Link:", $link)
                ;~ Local $imgs = $link.images
;~                 $imgs = _IETagnameGetCollection($o_object, "DIV")
                ;~ For $oTD in $oTDs
                ;~ If String(_IEPropertyGet($oTD, "innerHTML", "¤~ Shipments set for Clarification") Then _IEAction($oTD, "click")
                ;~ Next
                For $div In $divs
                    If IsObj($div) Then
;~                         MsgBox(0, "Objet-Img:", "OK")
                    EndIf
                    $linkimgtext = ""
;~                     $linkimgtext = $div.outertext
                    $linkimgtext = $div.className
;~                     $linkimgtext = $img.title & ""
;~                     MsgBox(0, "Link-outertext:", $img.outertext )
                    ;~ MsgBox(0, "Link-href:", $link.id&"-"&$link.href)
                    ;~ MsgBox(0, "Img-Name:", $img.title & "-" & $img.src)
;~                     If StringInStr($linkimgtext,$s_linkText) Then
                    If $linkimgtext == $s_linkText Then
;~                         if IsDeclared("div.id") AND $div.id<>"" then MsgBox(0, "Div-Id:", $div.id)
;~                         if IsDeclared("div.classname") AND $div.className<>"" then MsgBox(0, "Div-className:", $div.className)
;~                         if IsDeclared("div.outertext") AND $div.outertext<>"" then MsgBox(0, "Div-outertext:", $div.outertext)
;~                         if IsDeclared("div.innertext") AND $div.innertext<>"" then MsgBox(0, "Div-innertext:", $div.innertext)
;~                         if IsDeclared("div.tagname") AND $div.tagname<>"" then MsgBox(0, "Div-Tagname:", $div.tagname)
                        If ($found = $i_index) Then
;~                             $link.click
                            If $f_wait Then
;~                                 _IELoadWait($o_object)
;~                                 SetError(@error)
;~                                 MsgBox(0, "Div-OuterText OK:", $linkimgtext)
;~                                 MsgBox(0, "Div-OuterText ClassName:", $div.className)
;~                                 MsgBox(0, "Div-OuterText OuterText:", $div.outertext)
                                Return $div.outertext
                            EndIf
                            SetError($_IEStatus_Success)
                            Return $div.outertext
                        EndIf
                        $found = $found + 1
                    EndIf
                Next
                ;~ _IEImgClick($oIE,"Créer à partir de","title")


                ;~ MsgBox(0, "Link-Name:", $link.name)
                ;~ if IsDeclared("link.id") AND $link.id<>"" then MsgBox(0, "Link-Id:", $link.id) EndIf
                ;~ MsgBox(0, "Link-onclick:", $link.onclick)
                ;~ MsgBox(0, "Link-href:", $link.href)
                ;~ MsgBox(0, "Link-OuterText:", $link.outertext)
                ;~ $linktext = $link.outerText & "" ;~ Append empty string to prevent problem with no outerText (image) links
;~     Next
    __IEConsoleWriteError("Warning", "GetDivByClass", "$_IEStatus_NoMatch")
    SetError($_IEStatus_NoMatch) ;~ Could be caused by parameter 2, 3 or both
    Return 0
EndFunc   ;==>_IELinkClickByText

 

Edited by JLogan3o13
Link to comment
Share on other sites

  • Moderators

@oulaya in the future, please post your code using the <> symbol on the toolbar. It puts the code into a pretty box that keeps our eyes from bleeding while trying to read it. I have done it for you in your post above.

Also, as this is an English forum, please use Google Translate or some other method to translate your questions/answers into English before posting. It allows a larger number of folks to offer assistance to you.

"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

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...