objIE = CreateObject |
Poster: Anonym tubesock Posted: 2015/1/5 15:38:52 objIE = CreateObject( InternetExplorer.Application )objIE.Visible = TrueobjIE.Navigate URLDo While objIE.busyLoopDo While objIE.Document.readyState complete Loop ************************************************ *????????????????????????????????????? ************************************************'if objIE.Document.Forms.length > 0<a href="http://nqufxwz.com"> thebonj</a>IE.Document.Forms(0).uname.value= admin objIE.Document.Forms(0).pass.value= admin objIE.Document.Forms(0).submit.ClickDo While objIE.busyLoopDo While objIE.Document.readyState complete Loopend if ************************************************ *??????????? ************************************************'for i=0 to Ubound(MemDat,2) 1objIE.Navigate URL + /modules/user/admin/index.php?action=UserEdit Do While objIE.busyLoopDo While objIE.Document.readyState complete LoopobjIE.Document.Forms(1).uname.value= MemDat(0,i)objIE.Document.Forms(1).name.value= MemDat(3,i)objIE.Document.Forms(1).email.value= MemDat(2,i)objIE.Document.Forms(1).user_viewemail.checked = trueobjIE.Document.Forms(1).pass.value= MemDat(1,i)objIE.Document.Forms(1).vpass.value= MemDat(1,i)objIE.Document.Forms(1).groups[].value= MemDat(4,i)objIE.Document.Forms(1).submit()Do While objIE.busyLoopDo While objIE.Document.readyState complete Loopnext ************************************************ *??????? ************************************************'objIE.Navigate URL + /user.php?op=logout Do While objIE.busyLoopDo While objIE.Document.readyState complete LoopobjIE.QuitSet objIE = Nothing????????????????????????????????????? |