Jump to content

Recommended Posts

Hi guys, 

I was trying to automate a webpage after getting input from excel. The script worked fine for like 5 iterations but then stopped all of a sudden, I dont have the exact error msg now, but it was pointing to this in the IE UDF:-

Return SetError($_IESTATUS_Success, $oTemp.GetElementsByTagName($sTagName).length,

When i looked up the forum there was a similar question which said that I have to fix KB 3008923 update by uninstalling it, but I am unable to do that. 

here is the link for download:- ( i guess )

https://support.microsoft.com/en-us/help/3024777/error-0x800706f7-occurs-after-you-install-kb-3004394-and-then-run-windows-update-in-windows-7-and-windows-server-2008-r2

Does anybody know the proper steps to solve this??

Plus I wont be able to send the code here because of privacy policy n all by the company.

Desperately looking for a reply.....

Edited by Hanukka

Share this post


Link to post
Share on other sites

Fellas, This was the error exactly :-

"C:\Program Files (x86)\AutoIt3\Include\IE.au3" (1811) : ==> The requested action with this object has failed.:
Return SetError($_IESTATUS_Success, $oTemp.GetElementsByTagName($sTagName).length, $oTemp.GetElementsByTagName($sTagName))
Return SetError($_IESTATUS_Success, $oTemp^ ERROR

plss helpp

Share this post


Link to post
Share on other sites

For another update, I dont and did not have KB 3008923 as yall can see in this picture......

 

IMG_20170623_164827.jpg

 

Guys please help or provide link to the right area if you know the answer_/\_

Share this post


Link to post
Share on other sites

So you don't know the exact error, you can't share the code, and you don't even link to the "similar question" you found on the forum. @Hanukka take a moment and really think about whether you would be able to help someone with this amount of information...

Share this post


Link to post
Share on other sites

 

There I guess this thread matches mine but i havent found any conclusion

AND...Mr @JLogan3o13...listen

1) I know the EXACT error...i have mentioned in the 2nd post..I dont know the fix

2) Yes i am sorry, but i cant share the code. So please refer to the code in the attached post, else its ok

3) I forgot to put the link..there enjoy

and dude..why dont you focus on christmas a little bit, never have you helped with my error,  but only correct the format or taunt. 

Edited by Hanukka

Share this post


Link to post
Share on other sites

It isn't a taunt. Forum members are here to help, but you have a history of expecting people to first guess at what you are doing and then try to troubleshoot for you. A little thought behind your posts will help others help you.

Edit: And the error states that it cannot access the object. So, without seeing any code, do you have error checking in place to validate that $oTemp is an object?

Edited by JLogan3o13

Share this post


Link to post
Share on other sites

alright mate, thanks...

the error as you can see is from the IE.au3 udf, I do not check the $oTemp variable of the UDF at any place..

Ill provide a little update of my code in a while

Share this post


Link to post
Share on other sites
11 minutes ago, Hanukka said:

and dude..why dont you focus on christmas a little bit, never have you helped with my error,  but only correct the format or taunt. 

mmm....  I am sure this will really help to make your life easier around here. ;)

Jos


SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

Shit...I got a little hyper...sorry @JLogan3o13....

Peeps, i cant provide the code since it is long and more, it is super specific to thhe webapp and excel..

so ill just provide a blueprint, hope yall wont mind

Its like there is a loop which runs until there are non null rows in excel

in that I use various functions like:

_IEFrameGetObjByName

_IETagNameGetCollection

_IEFormElementCheckBoxSelect

PixelSearch....and a lot more

the thing is it worked for like 7 excel rows, ie. took the excel data, navigated to the right webpage, made the edits.

it get effed after that.

I changed the data, it worked till 7 rows, tried another similar script, worked till 8 or so...I am 95% sure that the script is error free.

There was something regarding memory leak or something discussed in the thread i last attached...wasnt resolved

Im using IE11...

Thats all i can provide yall with guys, pls refer the previous posts too...

N sorry again @JLogan3o13...please help me here if you can.

Share this post


Link to post
Share on other sites
9 hours ago, Hanukka said:

Does anybody know the proper steps to solve this??

Did you look here:

How to use IE.au3  UDF with  AutoIt v3.3.14.x  


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API Forum Rules *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST APIErrorLog.au3 UDF - A logging Library *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

11

Signature last update: 2018-10-31

Share this post


Link to post
Share on other sites
1 hour ago, Hanukka said:

Thats all i can provide yall with guys

In my humble opinion this won't be enough to help you.  Why can't you make a simple reproducer script that opens  8 pages from hardcoded URL's to see if that works or errors out. In case it works, add the bit to open the excel and read the url's from there. Then you can post it back to show us to see if we can help debug it.

In case you are unable to do so you really need to stop expecting people to help as you only get wild stabs in the dark.

Jos  


SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

@mLipok...I tried using _IEerrorhandlerregister, but now the code stopped even before it used to...Its getting too much fr me, I tried using excel data on a simple website without frames n it worked...I have no clue how to explain further...Anyways here, this is the code that i was working with...(edited a bit)

#include <IE.au3>
#include <Excel.au3>                                                                                
#include <StringConstants.au3>
#include <Array.au3>
#include <MsgBoxUDF.au3>
#include <File.au3>


_IEErrorHandlerRegister()  ;FUCKS UP...I DONT KNOW HOW TO HANDLE MESELF

;~ #Excel update check

_MsgBox_SetButtonText(4, "Ya", "Na")
$ret = _MsgBox(4 + 262144, '                                  (O_o)', 'Do you want to update your excel file?')
If $ret == 6 Then
   $useret = Run("Assngen.exe ")
   ProcessWaitClose($useret)
EndIf

;~ ;;;;;;;;;;;;;;;;;;;;;;;-------Some function space!!!!

Func assnid($i)
   $temp = "AF" & $i
  $fag = _Excel_RangeRead($NoteBook, Default, $temp)
   If $fag == "" Then
      return -1
   EndIf
   ;ConsoleWrite($flag & @CRLF)
   return $fag
EndFunc

Func name($i)
   $temp = "D" & $i
   $fag = _Excel_RangeRead($NoteBook, Default, $temp)
   If $fag == "" Then
      return -1
   EndIf
   ;ConsoleWrite($flag & @CRLF)
   return $fag
EndFunc


Func rowno($i)
   $temp = "AG" & $i
  $fag = _Excel_RangeRead($NoteBook, Default, $temp)
   If $fag == "" Then
      return -1
   EndIf
   ;ConsoleWrite($flag & @CRLF)
   return $fag
EndFunc

Func reminder()
   $rID = _IEAttach('THE URL', 'url')
   If $rID <> "" Then
      ;WinSetState($rID, "", @SW_MINIMIZE)
      $dismiss = _IEGetObjById($rID, 'dismissAllBtn')
      _IEAction($dismiss, 'click')
      Sleep(2000)
      Return 0
   Else
      Return 0
   EndIf
EndFunc

Func datext($i)
   Local $array[4]
  $temp = "W" & $i
  $fag = _Excel_RangeRead($NoteBook, Default, $temp)
   If $fag == "" Then
      return -1
   EndIf
   $temp1 = StringTrimRight($fag, 4)
   $array = StringSplit($fag, '/')
   $yr = StringTrimLeft($array[3], 2)
   $fag = $temp1 & $yr
   return $fag
EndFunc

Func reason($i)
   $temp = "AH" & $i
  $fag = _Excel_RangeRead($NoteBook, Default, $temp)
   If $fag == "" Then
      return -1
   EndIf
   ;ConsoleWrite($flag & @CRLF)
   return $fag
EndFunc

Func morechk($x)
   Sleep(1500)
   $ret1 =  WinActive('AutoIt Error')
   $ret2 = WinActive('Message from webpage')
   ;ConsoleWrite($ret1)
   ;ConsoleWrite($ret2)
   If $ret1 <> 0 Or $ret2 <> 0 Then
      Sleep(1000)
      Send('{Enter}')
      _IEQuit($x)
      MsgBox(0, 'ERROR', 'Please update excel sheet')
      Exit
   EndIf
EndFunc

Func failogin($x)
  $tags = _IETagNameGetCollection($oIE1, 'span', 0)
   If $tags.innertext = 'Login failed, check username and password.' Then
      MsgBox(0, "ERROR", 'Wrong username / password')
      _IEQuit($x)
      Exit
   EndIf
EndFunc

Func colorfail($x)
    MsgBox(0, 'ERROR', 'RETRY')
   Sleep(3000)
   Send('{Enter}')
   _IEQuit($x)
EndFunc


$file = @ScriptDir & "\lolfile.txt"
FileOpen($file, 2)

;;;;;;;;;;;;Open Active Excel
$var = @ScriptDir & "\EXCEL.xlsx"
$oExcel = _Excel_Open()
$NoteBook = _Excel_BookOpen($oExcel, $var)
WinSetState("EXCEL", "", @SW_MINIMIZE)

;~ ;;;;;;;;;;;;;Opens the main login after GUI

$oIE1 = _IECreate('THE URL')
Sleep(2000)
;$name1 = $CmdLine[1]
;$psw1 = $CmdLine[2]
$name = _IEGetObjById($oIE1, 'loginID')
$psw = _IEGetObjById($oIE1, 'password')
_IEFormElementSetValue($name, 'test');$name1)
_IEFormElementSetValue($psw, 'test');$psw1)
Sleep(500)
$tags = _IETagNameGetCollection($oIE1, 'input')
For $tag In $tags
   $class_value = $tag.GetAttribute("value")
   If $class_value = "Continue" Then
      _IEAction($tag, 'click')
   EndIf
Next
Sleep(2000)
failogin($oIE1)
;;;;;;;;;;;;;;;;;;;;-Addn pg
$timer = 1
$temp = 0
While ($timer <> 60)
   $oIEX = _IEAttach('THE URL', 'url')
   $oIE2 = _IEAttach('THE URL', 'url')
   If $oIEX <> "" Or $oIE2 <> "" Then
      If $oIE2 <> "" Then
         $x = $oIEX
         ExitLoop
      Else
         $x = $oIE2
      EndIf
      $tags = _IETagNameGetCollection($oIEX, 'input')
      For $tag In $tags
       $class_value = $tag.GetAttribute("value")
       If $class_value = "Continue" Then
           _IEAction($tag, 'click')
           $temp = 1
           ExitLoop
       EndIf
      Next
      If $temp == 1 Then
         ExitLoop
      EndIf
   EndIf
   Sleep(1000)
   $timer+=1
WEnd

If $timer == 60 Then
   WinClose('[ACTIVE]')
EndIf

;;;;;;;;;;;;;;;;-main pg
;---open & maximize
$timer = 1
While ($timer <> 60)
   $oIE2 = _IEAttach('THE URL', 'url')
   If $oIEX <> "" Then
      $oIE2 = _IEAttach('THE URL', 'url')
   EndIf
   If $oIE2 <> "" Then
      ExitLoop
   EndIf
   Sleep(1000)
   $timer+=1
WEnd

If $timer == 60 Then
   WinClose('[ACTIVE]')
EndIf

Sleep(1500)
WinSetState("THE TITLE", "", @SW_MAXIMIZE)
Sleep(1500);
;---defined at #
$i = 2
$j = 0
$disflag = 0
$dheight = @DeskTopHeight
$dwidth = @DeskTopWidth
While(assnid($i)<>-1)
   Sleep(500)
   If assnid($i) == "" Then
      ContinueLoop
   EndIf
   $main_div = _IEGetObjById($oIE2, 'SOMETHING')
   $tags = _IETagNameGetCollection($main_div, 'div')
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   For $tag In $tags
      If $tag.id = "SOMETHING" Then ;# Click the home in the dropdown of Jobs
         _IEAction($tag, 'click')
      EndIf
   Next
   Sleep(2000)
   If $j == 0 Then
      $main_frame = _IEFrameGetObjByName($oIE2, 'SOMETHING')
   Else
      $main_frame = _IEFrameGetObjByName($oIE2, 'MAINFRAME');# Changes after first iteration
   EndIf
   $sub_frame = _IEFrameGetObjByName($main_frame, 'roleSearchFrame')
   $form = _IEGetObjById($sub_frame, 'attributeForm')
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   $check = _IEFormElementCheckBoxSelect($form, '6920558') ;# Select contact checkbox
   Sleep(2000)
   $tags = _IETagNameGetCollection($sub_frame, 'input')
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   For $tag In $tags
      $class_value = $tag.GetAttribute("id")
      If $class_value = "11461$" Then
         _IEAction($tag, 'click')
         If rowno($i) = 9999 Then
            ContinueLoop
         EndIf
         _IEFormElementSetValue($tag, assnid($i))
      EndIf
   Next
   Sleep(3000)
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   For $tag In $tags
      $class_value = $tag.GetAttribute("id")
      If $class_value = "find" Then
         _IEAction($tag, 'click')
      EndIf
   Next
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   MouseClick("primary", 1092, 174, 1, Default);# First Random Click
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   Send('^f')
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   Send(assnid($i))
   Sleep(3000)
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   MouseClick("primary", 1092, 174, 1, Default)
   Sleep(1000)
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   $Array = PixelSearch (0, 89, $dwidth, $dheight, 0xFFFF00);#######################
   If @error == 1 Then
     colorfail($oIE2)
  EndIf
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   MouseClick('primary', $Array[0], $Array[1], 1)
   Sleep(5000)
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   Send('^f')
   Sleep(1000)
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   Send('End Assignment')
   Sleep(2500)
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   MouseClick("primary", 1092, 174, 1, Default)
   Sleep(2000)
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   $Array = PixelSearch (0, 89, $dwidth, $dheight, 0xFFFF00)
   Sleep(2000)
   If @error == 1 Then
     colorfail($oIE2)
   EndIf
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   MouseClick('primary', $Array[0], $Array[1], 1)   ;# Get the new window to change date
   morechk($oIE2)
   Sleep(4000)
   If $i = 8 Then
      MsgBox(0, "", 'now')
      Sleep(10000)
   EndIf
;
   $oIE3 = _IEAttach('THE URL', 'url')
;~    ConsoleWrite('wreck1' & @CRLF)
   $frame = _IEFrameGetObjByName($oIE3, '_IFRAMEID')
;~    ConsoleWrite('wreck2' & @CRLF)
   $ip = _IEGetObjById($frame, 'SOMETHING')
;~    ConsoleWrite('wreck3' & @CRLF)
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   _IEAction($ip, 'click')
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
;~    ConsoleWrite('wreck4' & @CRLF)
   _IEFormElementSetValue($ip, datext($i))
   Sleep(2000)
;~    ConsoleWrite('wreck5' & @CRLF)
   $ip2 = _IEGetObjById($frame, 'SOMETHING')
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
;~    ConsoleWrite('wreck6' & @CRLF)
   _IEFormElementSetValue($ip2, reason($i))
   Sleep(2000)
   $oButtons = _IETagnameGetCollection($frame, "button")
   ;;;;---rem check
   If $disflag == 0 Then
      $disflag = reminder()
   EndIf
   For $oButton in $oButtons
      If String($oButton.innertext) = "Confirm" Then
         _IEAction($oButton, "click")
      EndIf
   Next
   Sleep(2000)
   FileWrite($file, name($i) & ", "& assnid($i) & @CRLF)
;~    ConsoleWrite(@error)
   $i+=1
;~    $j = 1
WEnd
MsgBox(0, 'Status', 'Completed')
_MsgBox_SetButtonText(0, "OK...Bye")
_MsgBox(0 + 262144, '        "\(^_^)', 'Bye')
Sleep(2000)
WinClose('Assignment Record')
Sleep(2000)
_IEQuit($oIE2)

  Works for 8 or so records n then gets effed

If yall have any recommendations n all pls do tell...else, its ok, i am currently using another script to run it for 5 iterations each time :P

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

  • Similar Content

    • By TheDcoder
      Hello everyone, I am working on a project which requires reading a few values from Excel, the catch is that I need it to be very fast... unfortunatley I found out that read operations using the supplied Excel UDF are very slow, more than 150 ms for each operation on average
      Here is my testing setup that I made:
      #include <Excel.au3> #include <MsgBoxConstants.au3> Global $iTotalTime = 0 Test() Func Test() Local $oExcel = _Excel_Open() Local $oBook = _Excel_BookAttach("Test.xlsx", "FileName", $oExcel) Local $sSheet = "Sheet1" If @error Then Return MsgBox($MB_ICONERROR, "Excel Failed", "Failed to attach to Excel") Local $iNum For $iRow = 1 To 6 Time() Local $iNum = Number(_Excel_RangeRead($oBook, $sSheet, "A" & $iRow)) If ($iNum = 1) Then ConsoleWrite("Row " & $iRow & " is 1 and value of column B is " & _Excel_RangeRead($oBook, $sSheet, "B" & $iRow)) Else ConsoleWrite("Row " & $iRow & " is not 1") EndIf ConsoleWrite(". Reading took: ") Time() Next ConsoleWrite("The whole operation took " & $iTotalTime & " milliseconds." & @CRLF) EndFunc Func Time() Local Static $hTimer Local Static $bRunning = False If $bRunning Then Local $iTime = Round(TimerDiff($hTimer), 2) $iTotalTime += $iTime ConsoleWrite($iTime & @CRLF) Else $hTimer = TimerInit() EndIf $bRunning = Not $bRunning EndFunc And Test.xlsx in CSV format:
      1,-1 -1,1 1,-1 1,1 -1,-1 1,1 Here is the actual xlsx but it should expire in a week: https://we.tl/t-EVkxGp1kc6
      And finally output from my script:
      Row 1 is 1 and value of column B is -1. Reading took: 276.06 Row 2 is not 1. Reading took: 163.36 Row 3 is 1 and value of column B is -1. Reading took: 302.58 Row 4 is 1 and value of column B is 1. Reading took: 294.65 Row 5 is not 1. Reading took: 152.33 Row 6 is 1 and value of column B is 1. Reading took: 284.92 The whole operation took 1473.9 milliseconds.  
      Taking ~1.5 seconds for reading 6 rows of data is bad for my script, which needs to run as fast as possible . It would be nice if I can bring this down to 100 ms somehow, I am not very experienced working with MS office so I thought about asking you folks for help and advice on how I can optimize my script to squeeze out every bit of performance that I can get from this script
       
      Thanks for the help in advance!
    • By SlackerAl
      I have been using some AutoIt scripts to manipulate Excel for a few weeks now. Today they stopped working. I have rebooted the PC and I'm not aware of any other significant changes. I can start and use Excel conventionally without a problem, but any attempt to create an excel object from AutoIt fails. E.g
      #include <MsgBoxConstants.au3> #include <Excel.au3> Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_Open Example 1", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Produces:
      @error = 1
      @extended = -2147221005
      I can't find that COM error listed anywhere... Anyone have any ideas?
    • By Eggie6
      Hi,
      I'm trying to write an formula to the excel, but it actually does not write anything into the cell, any ideas?
      $formula1="=MID(B"&$utakmice&",SEARCH("-",B"&$utakmice&")-1,1)" _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $formula1, "C"&$smth)  
    • By XinYoung
      Hello all,
      Preface: Column A is full of courses. Column B is full of usernames. If course (A1) exists, we check to see if username (B1) is enrolled. If user is found, the user is un-enrolled. Then Loop.
      I am working on a script that loops through an Excel file and pastes the content from A1 into a textbox in IE, does some stuff, then pastes the content from B1 into a different textbox. Then it loops around until all used rows in columns A and B have been accounted for.
      For some reason, column A loops properly but column B doesn't. B1 is pasted over and over again. So, as it loops, B1 is constantly being pasted, first accompanying A1's loop, then A2, and so on.
      The OpenExcel() func opens the Excel file the user specifies in an earlier function. It's supposed to gather the entire used range of columns A and B. The SearchCourse() func only uses column A, pasting its content into a Search tool in IE. This seems to be working fine. SearchResult() puts "Course Not Found" into column C if the search fails. If the search is successful, however, we move onto... EnterCourse(). This simply gets us to the place where column B's content comes into play. UnenrollNow(). Here, we paste the variable $_userName into a textbox. I don't know why it's always B1  Func OpenExcel() If Not WinExists($hWnd) Then MsgBox(16, "Window closed", "The Internet Explorer window was closed. Please start over.") _Exit() Else $oExcel = _Excel_Open() Global $oWorkbook = _Excel_BookOpen($oExcel, $ChosenFileName, Default, True, True) $oExcel.Sheets("CopyCourses").Activate ;~ Get all used cells in columns A and B $aSearchItems = _Excel_RangeRead($oWorkbook, 1, $oWorkbook.Sheets("CopyCourses").Usedrange.Columns("A:B")) ;~ Create the $aSearchResult array ReDim $aSearchResult[UBound($aSearchItems)] ;~ Loop through the array starting at 0 until the end of the array which is (Ubound($aSearchItems) - 1) For $i = 0 To UBound($aSearchItems) - 1 ;~ Column 0 ConsoleWrite($aSearchItems[$i][0] & @CRLF) ;~ Column 1 ConsoleWrite($aSearchItems[$i][1] & @CRLF) $aSearchResult[$i] = SearchCourse($aSearchItems[$i][0], $aSearchItems[$i][1]) Next _Excel_RangeWrite($oWorkbook, Default, $aSearchResult, "C1") ;~ When the loop is complete, run the Finished function. Finished() EndIf EndFunc ;==>OpenExcel Func SearchCourse($_sSearchResult, $_userName) If Not WinExists($hWnd) Then MsgBox(16, "Window closed", "The Internet Explorer window was closed. Please start over.") _Exit() Else _IENavigate($oIE, $urlBBCourseSearch) _IELoadWait($oIE) Local $oForm = _IEGetObjByName($oIE, "courseManagerFormSearch") Local $oSearchString = _IEFormElementGetObjByName($oForm, "courseInfoSearchText") _IEFormElementSetValue($oSearchString, $_sSearchResult) _IEFormSubmit($oForm) _IELoadWait($oIE) Local $oBBTable = _IETableGetCollection($oIE, 2) $aBBTableData = _IETableWriteToArray($oBBTable) Return SearchResult() EndIf EndFunc ;==>SearchCourse Func SearchResult() If Not WinExists($hWnd) Then MsgBox(16, "Window closed", "The Internet Explorer window was closed. Please start over.") _Exit() Else Local $sResult $iSearchIndex = _ArraySearch($aBBTableData, "Course ID", 0, 0, 0, 1, 1, 0) If $iSearchIndex = -1 Then $sResult = "Course Not Found" _Excel_RangeWrite($oWorkbook, Default, $aSearchResult, "C1") Else EnterCourse() $sResult = "UnEnrolled!" _Excel_RangeWrite($oWorkbook, Default, $aSearchResult, "C1") EndIf Return $sResult EndIf EndFunc ;==>SearchResult Func EnterCourse() If Not WinExists($hWnd) Then MsgBox(16, "Window closed", "The Internet Explorer window was closed. Please start over.") _Exit() Else Local $clickFail = "DATE CREATED" _IELinkClickByIndex($oIE, 34) _IELoadWait($oIE) $sourceCode = _IEBodyReadHTML($oIE) If StringInStr($sourceCode, $clickFail) <> 0 Then _IELinkClickByIndex($oIE, 35) _IELoadWait($oIE) EndIf $oLink = _IEGetObjById($oIE, "controlpanel.users.and.groups_groupExpanderLink") _IEAction($oLink, "click") Sleep(500) _IELinkClickByText($oIE, "Users") _IELoadWait($oIE) $aSearchResult[$i] = UnenrollNow($aSearchItems[$i][0], $aSearchItems[$i][1]) EndIf EndFunc ;==>EnterCourse Func UnenrollNow($_sourceCourseId, $_userName) If Not WinExists($hWnd) Then MsgBox(16, "Window closed", "The Internet Explorer window was closed. Please start over.") _Exit() Else Local $UserError = "No users found" Local $sResult $criteriaUsername = _IEGetObjById($oIE, "userInfoSearchKeyString") _IEFormElementOptionSelect($criteriaUsername, 0, 1, 'byIndex') $criteriaUsername = _IEGetObjById($oIE, "userInfoSearchOperatorString") _IEFormElementOptionSelect($criteriaUsername, 0, 1, 'byIndex') ;Paste whats copied from column B into the Username text box. Local $oForm = _IEGetObjByName($oIE, "userManagerSearchForm") Local $oSearchString = _IEFormElementGetObjByName($oForm, "userInfoSearchText") ;PROBLEM HERE... _IEFormElementSetValue($oSearchString, $_userName) ;^^^^^^ WHY IS $_userName ALWAYS B1 ??? Sleep(1000) _IEFormSubmit($oForm) _IELoadWait($oIE) $sourceCode = _IEBodyReadHTML($oIE) If StringInStr($sourceCode, $UserError) <> 0 Then $sResult = "User Not Found" _Excel_RangeWrite($oWorkbook, Default, $aSearchResult, "C1") Return $sResult Else MsgBox(0, "Unenrollment READY!", "We're ready to unenroll foreal") $sResult = "DUN" _Excel_RangeWrite($oWorkbook, Default, $aSearchResult, "C1") Return $sResult EndIf EndIf EndFunc ;==>UnenrollNow Please let me know if any further information is needed.
      If you see other problems or redundancies in my code, please let me know.
      Thank you!
       
    • By SlackerAl
      I have an issue when starting Excel with the following code
      #include <Excel.au3> #include <GUIConstantsEx.au3> Opt("GUIOnEventMode", 1) GUICreate("Excel Test", 600, 440) GUISetOnEvent($GUI_EVENT_CLOSE, "MenuExit") GUISetState(@SW_SHOW) ; Create application object Local $oExcel = _Excel_Open() If @error Then Exit MsgBox(0, "Excel UDF: _Excel_RangeFind Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ; sit here forever with an option to react every 10ms While 1 Sleep(10) WEnd Exit Func MenuExit() GUIDelete() Exit EndFunc If the Excel is a standard install, everything is OK. If Excel has the Kutools add-in (https://www.extendoffice.com/product/kutools-for-excel.html) installed and active the excel process runs (and is visible in task manager until killed), but it never displays. Disabling the add-in restores normal functionality.
      If I add some additional code to interact with the excel application then still nothing happens if the add-in is active. However, if Excel is started first and then the AutoIt code is run, it is able to interact with the Excel session as normal.
      Summary: The Excel add-in Kutools prevents excel being started with the _Excel_Open() command from AutoIt. Any AutoIt side work-arounds for this?
×
×
  • Create New...