jlorenz1 Posted January 8, 2007 Posted January 8, 2007 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]
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now