Sign in to follow this  
Followers 0
jlorenz1

How attach entry at the end of an Editcontrol in an IEForm?

1 post in this topic

Hi Dale & all the others,

I scripted a programm for uploading pictures to Wikipedia, which

can also delete pictures. For deleting a picture you must make an entry at the end of

an editcontrol in IEForm with unknown length. At the moment I worked With

Send('{DOWN 300}'), but this is only an improvisation. How Can I reach the end of

editcontrol in an IEForm (EOF) to make an entry as attachement?

In the attachement you'll find an offline copy of this IEForm

$aMon = StringSplit('Januar|Februar|März|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember','|')
    $oIE = _IECreate('de.wikipedia.org/w/index.php?title=Wikipedia:L%C3%B6schkandidaten/Bilder/' & Number(@MDAY) & '._' & $aMon[Number(@MON)] & '_' & @YEAR & '&action=edit')

    $oForm = _IEFormGetObjByName($oIE, 'editform')
    $oInputFile = _IEFormElementGetObjByName($oForm, "wpTextbox1")
    $b=_IEAction($oInputFile, "focus")
    If @OSTYPE = 'WIN32_NT' And GUICtrlRead($c13) = $GUI_CHECKED Then BlockInput(1)

    ;********** My improvisation for reaching the end of an editcontrol in an IEForm
    Send('{Down 300}')
    ;*********************************************************************

    Send( @CRLF& @CRLF & '== [[:Bild:' & $Ans & ']] ==' & @CRLF  & $Begr & ' -- ~~~~ ' & @CRLF)
    If @OSTYPE = 'WIN32_NT' And GUICtrlRead($c13) = $GUI_CHECKED Then BlockInput(0)
    $oQuery1 = _IEFormElementGetObjByName($oForm, 'wpSummary')
    _IEFormElementSetValue($oQuery1, 'Bildlöschung: ' & $Begr) 
    _IEFormSubmit($oForm)

Thanks Johannes


Johannes LorenzBensheim, Germanyjlorenz1@web.de[post="12602"]Highlightning AutoIt Syntax in Notepad++ - Just copy in your Profile/application data/notepad++[/post]

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  
Followers 0