Jump to content
Dent

[SOLVED] Possibly used before declaration error in IE.au3

Recommended Posts

Dent

Hi all,

So I have a script that interacts with IE but for some reason I can't identify I'm getting the 'possibly used before declaration' error even though I've declared and used those variables.

Local $oPlayer1FSPC = _IEGetObjByName($oIE, "fs")
$oPlayer1FSPC.Value = $sFirstServePc1
Local $oPlayer2FSPC = _IEGetObjByName($oIE, "ofs")
$oPlayer2FSPC.Value = $sFirstServePc2
Local $oPlayer1FSWPC = _IEGetObjByName($oIE, "fsw")
$oPlayer1FSWPC.Value = $sFirstServeWonPc1
Local $oPlayer2FSWPC = _IEGetObjByName($oIE, "ofsw")
$oPlayer2FSWPC.Value = $sFirstServeWonPc2
Local $oPlayer1SSWPC = _IEGetObjByName($oIE, "ssw")
$oPlayer1SSWPC.Value = $sSecondServeWonPc1
Local $oPlayer2SSWPC = _IEGetObjByName($oIE, "ossw")
$oPlayer2SSWPC.Value = $sSecondServeWonPc2
Local $oPlayer1BPS = _IEGetObjByName($oIE, "kps")
$oPlayer1BPS.Value = $sBPSavePc1
Local $oPlayer2BPS = _IEGetObjByName($oIE, "kpb")
$oPlayer2BPS.Value = $sBPSavePc2

The $s variables have had strings assigned earlier in the script and I've tested that with ConsoleWrite

Edited by Dent
Solved

Share this post


Link to post
Share on other sites
AutoBert

Post whole script

Share this post


Link to post
Share on other sites
Dent
Local $TIUsername = "AutoBert"
Local $TIPassword = "password"
Local $TOCUsername = "AutoBert"
Local $TOCPassword = "password"

Local $oIE = _IECreate("http://tennisinsight.com/wp-login.php")
If Not IsObj($oIE) Then Exit ConsoleWrite("Error creating instance of IE" & @CRLF)

Local $oIE = _IEAttach("Tennis Insight")

_IELoadWait($oIE)

Local $Page = _IEBodyReadHTML($oIE)

If StringInStr($Page, "Logout") Then
    _IELinkClickByText($oIE, "Logout")
Else
EndIf

Local $oLogin = _IEGetObjByName($oIE, "log")
_IEFormElementSetValue($oLogin, $TIUsername)
Local $oPassword = _IEGetObjByName($oIE, "pwd")
_IEFormElementSetValue($oPassword, $TIPassword)
Local $oButton = _IEGetObjByName($oIE, "wp-submit")
$oButton.Click()
_IELoadWait($oIE)
Local $sURL = InputBox("Match to scrape", "Please enter the full URL of the match including http://", "", "", 400)

If StringInStr($sURL, "http://") Then
    _IENavigate($oIE, $sURL)
Else
    MsgBox(0, "Error", "Invalid URL, exiting")
    _IEQuit($oIE)
    Exit
EndIf

_IELoadWait($oIE)
sleep(5000)
ReadStats()

Func ReadStats()
Local $Page = _IEBodyReadText($oIE)
Local $iFirstServePc1Start = StringInStr($Page, "1st")
If $iFirstServePc1Start = 0 Then
    Wait()
Else
EndIf
$iFirstServePc1Start = ($iFirstServePc1Start - 5)
Local $sFirstServePc1 = StringMid($Page, $iFirstServePc1Start, 4)

;ConsoleWrite($iFirstServePc1Start & @CRLF)
ConsoleWrite("Player 1 1st Serve % : " & $sFirstServePc1 & @CRLF)

Local $iFirstServePc2Start = StringInStr($Page, "Serve %")
$iFirstServePc2Start = ($iFirstServePc2Start + 7)
Local $sFirstServePc2 = StringMid($Page, $iFirstServePc2Start, 4)

;ConsoleWrite($iFirstServePc2Start & @CRLF)
ConsoleWrite("Player 2 1st Serve % : " & $sFirstServePc2 & @CRLF)

Local $iFirstServeWonPc1Start = StringInStr($Page, "1st Serve W")
$iFirstServeWonPc1Start = ($iFirstServeWonPc1Start - 5)
Local $sFirstServeWonPc1 = StringMid($Page, $iFirstServeWonPc1Start, 4)

;ConsoleWrite($iFirstServeWonPc1Start & @CRLF)
ConsoleWrite("Player 1 1st Serve Win % : " & $sFirstServeWonPc1 & @CRLF)

Local $iFirstServeWonPc2Start = StringInStr($Page, "1st Serve W%")
$iFirstServeWonPc2Start = ($iFirstServeWonPc2Start + 12)
Local $sFirstServeWonPc2 = StringMid($Page, $iFirstServeWonPc2Start, 4)

;ConsoleWrite($iFirstServeWonPc2Start & @CRLF)
ConsoleWrite("Player 2 1st Serve Win % : " & $sFirstServeWonPc2 & @CRLF)

Local $iSecondServeWonPc1Start = StringInStr($Page, "2nd Serve W")
$iSecondServeWonPc1Start = ($iSecondServeWonPc1Start - 5)
Local $sSecondServeWonPc1 = StringMid($Page, $iSecondServeWonPc1Start, 4)

;ConsoleWrite($iSecondServeWonPc1Start & @CRLF)
ConsoleWrite("Player 1 2nd Serve Win % : " & $sSecondServeWonPc1 & @CRLF)

Local $iSecondServeWonPc2Start = StringInStr($Page, "2nd Serve W%")
$iSecondServeWonPc2Start = ($iSecondServeWonPc2Start + 12)
Local $sSecondServeWonPc2 = StringMid($Page, $iSecondServeWonPc2Start, 4)

;ConsoleWrite($iSecondServeWonPc2Start & @CRLF)
ConsoleWrite("Player 2 2nd Serve Win % : " & $sSecondServeWonPc2 & @CRLF)

Local $iBPSavePc1Start = StringInStr($Page, "BP Save")
$iBPSavePc1Start = ($iBPSavePc1Start - 5)
Local $sBPSavePc1 = StringMid($Page, $iBPSavePc1Start, 4)

;ConsoleWrite($iBPSavePc1Start & @CRLF)
ConsoleWrite("Player 1 BP Save % : " & $sBPSavePc1 & @CRLF)

Local $iBPSavePc2Start = StringInStr($Page, "BP Save %")
$iBPSavePc2Start = ($iBPSavePc2Start + 9)
Local $sBPSavePc2 = StringMid($Page, $iBPSavePc2Start, 4)

;ConsoleWrite($iBPSavePc2Start & @CRLF)
ConsoleWrite("Player 2 BP Save % : " & $sBPSavePc2 & @CRLF)
EndFunc

Func Wait()
    Sleep(2000)
    ReadStats()
EndFunc

_IEQuit($oIE)

Local $oIE = _IECreate("http://www.tennisoddscalculator.com/")
If Not IsObj($oIE) Then Exit ConsoleWrite("Error creating instance of IE" & @CRLF)

Local $oIE = _IEAttach("TOC")

_IELoadWait($oIE)

_IENavigate($oIE, "http://www.tennisoddscalculator.com/account/calculator/")

_IELoadWait($oIE)

Local $Page = _IEBodyReadText($oIE)

If StringInStr($Page, "Username or Email") Then
    Local $oUsername = _IEGetObjByName($oIE, "username")
    _IEFormElementSetValue($oUsername, $TOCUsername)
    Local $oPassword = _IEGetObjByName($oIE, "password")
    _IEFormElementSetValue($oPassword, $TOCPassword)
    Local $oClassReturn = $oIE.document.getElementsByClassName("form-actions")
    If Not IsObj($oClassReturn) Then Exit ConsoleWrite("Error in $oClassReturn" & @CRLF)
    Local $oTagReturn = $oClassReturn.Item(0).getElementsByTagName("button")
    If Not IsObj($oTagReturn) Then Exit ConsoleWrite("Error in $oTagReturn" & @CRLF)
    $oTagReturn.Item(0).Click()
    _IELoadWait($oIE)
ElseIf StringInStr($Page, "Use the menu at the top") Then
    _IENavigate($oIE, "http://www.tennisoddscalculator.com/account/calculator/")
    _IELoadWait($oIE)
Else
    MsgBox(0, "Error", "Unknown error")
EndIf

Local $oPlayer1FSPC = _IEGetObjByName($oIE, "fs")
$oPlayer1FSPC.Value = $sFirstServePc1
Local $oPlayer2FSPC = _IEGetObjByName($oIE, "ofs")
$oPlayer2FSPC.Value = $sFirstServePc2
Local $oPlayer1FSWPC = _IEGetObjByName($oIE, "fsw")
$oPlayer1FSWPC.Value = $sFirstServeWonPc1
Local $oPlayer2FSWPC = _IEGetObjByName($oIE, "ofsw")
$oPlayer2FSWPC.Value = $sFirstServeWonPc2
Local $oPlayer1SSWPC = _IEGetObjByName($oIE, "ssw")
$oPlayer1SSWPC.Value = $sSecondServeWonPc1
Local $oPlayer2SSWPC = _IEGetObjByName($oIE, "ossw")
$oPlayer2SSWPC.Value = $sSecondServeWonPc2
Local $oPlayer1BPS = _IEGetObjByName($oIE, "kps")
$oPlayer1BPS.Value = $sBPSavePc1
Local $oPlayer2BPS = _IEGetObjByName($oIE, "kpb")
$oPlayer2BPS.Value = $sBPSavePc2

 

Share this post


Link to post
Share on other sites
Melba23

Dent,

You declare those variables as Local within the ReadStats function - as such they do not exist in the main script. You need to declare them as Global at the top of your script. I suggest reading the Variables - using Global, Local, Static and ByRef tutorial in the Wiki to learn about variable scoping.

M23

 


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

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
AutoBert

very strict Au3check says:

>Running AU3Check (3.3.14.2)  params:-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6  from:C:\Program Files\AutoIt3  input:C:\Users\Bert\AutoIt3.My\Temp\test.au3
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(1,7) : warning: 'Local' specifier in global scope.
Local $TIUsername
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(2,7) : warning: 'Local' specifier in global scope.
Local $TIPassword
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(3,7) : warning: 'Local' specifier in global scope.
Local $TOCUsername
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(4,7) : warning: 'Local' specifier in global scope.
Local $TOCPassword
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(7,7) : warning: 'Local' specifier in global scope.
Local $oIE
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(10,7) : warning: 'Local' specifier in global scope.
Local $oIE
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(10,41) : warning: $oIE already declared/assigned
Local $oIE = _IEAttach("Tennis Insight")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(14,7) : warning: 'Local' specifier in global scope.
Local $Page
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(21,7) : warning: 'Local' specifier in global scope.
Local $oLogin
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(23,7) : warning: 'Local' specifier in global scope.
Local $oPassword
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(25,7) : warning: 'Local' specifier in global scope.
Local $oButton
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(28,7) : warning: 'Local' specifier in global scope.
Local $sURL
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(112,7) : warning: 'Local' specifier in global scope.
Local $oIE
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(112,63) : warning: $oIE already declared/assigned
Local $oIE = _IECreate("http://www.tennisoddscalculator.com/")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(115,7) : warning: 'Local' specifier in global scope.
Local $oIE
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(115,30) : warning: $oIE already declared/assigned
Local $oIE = _IEAttach("TOC")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(123,7) : warning: 'Local' specifier in global scope.
Local $Page
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(123,36) : warning: $Page already declared/assigned
Local $Page = _IEBodyReadText($oIE)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(126,8) : warning: 'Local' specifier in global scope.
    Local $oUsername
    ~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(128,8) : warning: 'Local' specifier in global scope.
    Local $oPassword
    ~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(128,54) : warning: $oPassword already declared/assigned
    Local $oPassword = _IEGetObjByName($oIE, "password")
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(130,8) : warning: 'Local' specifier in global scope.
    Local $oClassReturn
    ~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(132,8) : warning: 'Local' specifier in global scope.
    Local $oTagReturn
    ~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(143,7) : warning: 'Local' specifier in global scope.
Local $oPlayer1FSPC
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(144,38) : warning: $sFirstServePc1: possibly used before declaration.
$oPlayer1FSPC.Value = $sFirstServePc1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(145,7) : warning: 'Local' specifier in global scope.
Local $oPlayer2FSPC
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(146,38) : warning: $sFirstServePc2: possibly used before declaration.
$oPlayer2FSPC.Value = $sFirstServePc2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(147,7) : warning: 'Local' specifier in global scope.
Local $oPlayer1FSWPC
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(148,42) : warning: $sFirstServeWonPc1: possibly used before declaration.
$oPlayer1FSWPC.Value = $sFirstServeWonPc1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(149,7) : warning: 'Local' specifier in global scope.
Local $oPlayer2FSWPC
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(150,42) : warning: $sFirstServeWonPc2: possibly used before declaration.
$oPlayer2FSWPC.Value = $sFirstServeWonPc2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(151,7) : warning: 'Local' specifier in global scope.
Local $oPlayer1SSWPC
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(152,43) : warning: $sSecondServeWonPc1: possibly used before declaration.
$oPlayer1SSWPC.Value = $sSecondServeWonPc1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(153,7) : warning: 'Local' specifier in global scope.
Local $oPlayer2SSWPC
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(154,43) : warning: $sSecondServeWonPc2: possibly used before declaration.
$oPlayer2SSWPC.Value = $sSecondServeWonPc2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(155,7) : warning: 'Local' specifier in global scope.
Local $oPlayer1BPS
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(156,33) : warning: $sBPSavePc1: possibly used before declaration.
$oPlayer1BPS.Value = $sBPSavePc1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(157,7) : warning: 'Local' specifier in global scope.
Local $oPlayer2BPS
~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(158,22) : warning: $sBPSavePc2: possibly used before declaration.
$oPlayer2BPS.Value = $sBPSavePc2
~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(144,38) : error: $sFirstServePc1: undeclared global variable.
$oPlayer1FSPC.Value = $sFirstServePc1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(146,38) : error: $sFirstServePc2: undeclared global variable.
$oPlayer2FSPC.Value = $sFirstServePc2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(148,42) : error: $sFirstServeWonPc1: undeclared global variable.
$oPlayer1FSWPC.Value = $sFirstServeWonPc1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(150,42) : error: $sFirstServeWonPc2: undeclared global variable.
$oPlayer2FSWPC.Value = $sFirstServeWonPc2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(152,43) : error: $sSecondServeWonPc1: undeclared global variable.
$oPlayer1SSWPC.Value = $sSecondServeWonPc1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(154,43) : error: $sSecondServeWonPc2: undeclared global variable.
$oPlayer2SSWPC.Value = $sSecondServeWonPc2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(156,33) : error: $sBPSavePc1: undeclared global variable.
$oPlayer1BPS.Value = $sBPSavePc1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(158,22) : error: $sBPSavePc2: undeclared global variable.
$oPlayer2BPS.Value = $sBPSavePc2
~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(7,63) : error: _IECreate(): undefined function.
Local $oIE = _IECreate("http://tennisinsight.com/wp-login.php")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(10,40) : error: _IEAttach(): undefined function.
Local $oIE = _IEAttach("Tennis Insight")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(12,17) : error: _IELoadWait(): undefined function.
_IELoadWait($oIE)
~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(14,35) : error: _IEBodyReadHTML(): undefined function.
Local $Page = _IEBodyReadHTML($oIE)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(17,35) : error: _IELinkClickByText(): undefined function.
    _IELinkClickByText($oIE, "Logout")
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(21,44) : error: _IEGetObjByName(): undefined function.
Local $oLogin = _IEGetObjByName($oIE, "log")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(22,44) : error: _IEFormElementSetValue(): undefined function.
_IEFormElementSetValue($oLogin, $TIUsername)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(31,25) : error: _IENavigate(): undefined function.
    _IENavigate($oIE, $sURL)
    ~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(34,14) : error: _IEQuit(): undefined function.
    _IEQuit($oIE)
    ~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Temp\test.au3"(43,35) : error: _IEBodyReadText(): undefined function.
Local $Page = _IEBodyReadText($oIE)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Bert\AutoIt3.My\Temp\test.au3 - 18 error(s), 39 warning(s)
!>11:40:11 AU3Check ended. Press F4 to jump to next error.rc:2
+>11:40:11 AutoIt3Wrapper Finished.
>Exit code: 0    Time: 1.491

at least one include file is missin, so it's not whole script.

Share this post


Link to post
Share on other sites
Dent

 

1 hour ago, Melba23 said:

Dent,

You declare those variables as Local within the ReadStats function - as such they do not exist in the main script. You need to declare them as Global at the top of your script. I suggest reading the Variables - using Global, Local, Static and ByRef tutorial in the Wiki to learn about variable scoping.

M23

 

Thank-you very much. Sometimes I can't see the forest for the trees!

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

    • Juvigy
      By Juvigy
       Hi Guys,
      Could you please try out my script on win10 machine (simple site scrape)? One of my users complains it doesnt work on his win10, but it works fine on my win7. The error he gets is on the .FireEvent call. I think it is admin rights or IE / Edge issue, but don't have win10 to test it out.
      Thanks in advance.
       
      #include <IE.au3> #include <Array.au3> #include <Excel.au3> Global $oIE,$string Dim $destination[8] = ["Viña del Mar", "Rancagua", "Pucon", "Copiapo", "Temuco", "La serena", "Puerto Montt", "Valdivia"] Dim $FinalResult[1][3] $FinalResult[0][0] = "Destination" $FinalResult[0][1] = "Ida" $FinalResult[0][2] = "Vuelta" Attach("https://www.turbus.cl/") If IsObj($oIE) = 0 Then ConsoleWrite("IE error??"&@CRLF) $oIE = _IECreate() EndIf For $i=0 to UBound($destination)-1 Step 1 _IENavigate($oIE,"https://www.turbus.cl/") $site1 = _IEGetObjById($oIE,"j_id_id122:cmbCiudadOrigenV2") While @error Sleep(1000) $site1 = _IEGetObjById($oIE,"j_id_id122:cmbCiudadOrigenV2") WEnd $site2 = _IEGetObjById($oIE,"j_id_id122:cmbCiudadDestinoV2") $date1 = _IEGetObjById($oIE,"j_id_id122:calIdaV2InputDate") $date2 = _IEGetObjById($oIE,"j_id_id122:calVueltaV2InputDate") $buttun1 = _IEGetObjById($oIE,"j_id_id122:botonContinuarV2") $site1.Value = "Santiago" $site2.Value = $destination[$i] $date1.Value = @MDAY+1&"/"&@MON&"/"&@YEAR $date2.Value = @MDAY+4&"/"&@MON&"/"&@YEAR _IEAction($buttun1,"click") _IELoadWait($oIE) $array = GetResult(GetData()) If IsArray($array) = 0 OR UBound($array,1) < 1 Or UBound($array,2) < 2 Then MsgBox(0,UBound($array,1), UBound($array,2)) _ArrayDisplay($array,"$array") ContinueLoop EndIf _ArrayAdd($FinalResult,"Santiago-"&$destination[$i]&"|"&$array[0][0]&"|"&$array[0][1]) Next ;~ _ArrayDisplay($FinalResult) Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Local $oWorkbook = _Excel_BookNew($oExcel) If @error Then MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example", "Error creating the new workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $FinalResult, "A1") If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example 2", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Func GetData() Local $string1,$string2 $ida = _IEGetObjById($oIE,"tbIda_lbl") While @error Sleep(1000) $ida = _IEGetObjById($oIE,"tbIda_lbl") WEnd _IEAction($ida,"click") Sleep(2000) $result1 = _IEGetObjById($oIE,"pnlReglaIda:idPersonalizaPasaje:tb") While @error $ida.FireEvent("onmouseover") Sleep(1000) $ida.FireEvent("onclick") Sleep(1000) $result1 = _IEGetObjById($oIE,"pnlReglaIda:idPersonalizaPasaje:tb") WEnd $string1 = $string1 & $result1.innertext&@CRLF $vuelta = _IEGetObjById($oIE,"tbVuelta_lbl") _IEAction($vuelta,"click") Sleep(2000) $result2 = _IEGetObjById($oIE,"pnlReglaVuelta:idPersonalizaPasajeRegreso:tb") While @error $vuelta.FireEvent("onmouseover") Sleep(1000) $vuelta.FireEvent("onclick") Sleep(1000) $result2 = _IEGetObjById($oIE,"pnlReglaVuelta:idPersonalizaPasajeRegreso:tb") WEnd $string2 = $string2 & $result2.innertext&@CRLF Return $string1&"|"&$string2 EndFunc Func Attach($atachadres) Local $i = 1 While 1 $oIE = _IEAttach("", "instance", $i) If @error = $_IEStatus_NoMatch Then $oIE = 0 ExitLoop EndIf If StringLeft(_IEPropertyGet($oIE, "locationurl"),StringLen($atachadres)) = $atachadres Then ExitLoop $i += 1 WEnd EndFunc Func GetResult($String) Dim $Master[0][2] ,$Master2[1][2] $2strings = StringSplit($String,"|",2) $Strings = StringSplit($2strings[0],@CRLF,2) $Strings = _ArrayUnique($Strings) For $i=0 to UBound($Strings)-1 Step 1 $Data = StringSplit($Strings[$i],"$",2) $add = _ArrayToString($Data) _ArrayAdd($Master,$add) Next For $i=UBound($Master,1)-1 to 0 Step -1 If $Master[$i][1] = "" Then _ArrayDelete($Master,$i) Next _ArraySort($Master,0, 0, 0,1) $Master2[0][0] = $Master[0][0]&$Master[0][1] Dim $Master[0][2] $Strings = StringSplit($2strings[1],@CRLF,2) $Strings = _ArrayUnique($Strings) For $i=0 to UBound($Strings)-1 Step 1 $Data = StringSplit($Strings[$i],"$",2) $add = _ArrayToString($Data) _ArrayAdd($Master,$add) Next For $i=UBound($Master,1)-1 to 0 Step -1 If $Master[$i][1] = "" Then _ArrayDelete($Master,$i) Next _ArraySort($Master,0, 0, 0,1) $Master2[0][1] = $Master[0][0]&$Master[0][1] Return $Master2 EndFunc  
    • SkysLastChance
      By SkysLastChance
      I have a goofy problem. I am hoping someone could shed some light. The example is not going around the text box. It is way off. 
      I have seen some post blaming IE 11, however I have IE11 on my desktop and it works fine.
      Is there anything I can do that might fix this? 
       
      ; Open a browser with the form example and get a reference to the form ; textarea element. Get the coordinates and dimensions of the text area, ; outline its shape with the mouse and come to rest in the center #include <IE.au3> Local $oIE = _IE_Example("form") Local $oForm = _IEFormGetObjByName($oIE, "ExampleForm") Local $oTextArea = _IEFormElementGetObjByName($oForm, "textareaExample") ; Get coordinates and dimensions of the textarea Local $iScreenX = _IEPropertyGet($oTextArea, "screenx") Local $iScreenY = _IEPropertyGet($oTextArea, "screeny") Local $iWidth = _IEPropertyGet($oTextArea, "width") Local $iHeight = _IEPropertyGet($oTextArea, "height") ; Outline the textarea with the mouse, come to rest in the center Local $iMousespeed = 50 MouseMove($iScreenX, $iScreenY, $iMousespeed) MouseMove($iScreenX + $iWidth, $iScreenY, $iMousespeed) MouseMove($iScreenX + $iWidth, $iScreenY + $iHeight, $iMousespeed) MouseMove($iScreenX, $iScreenY + $iHeight, $iMousespeed) MouseMove($iScreenX, $iScreenY, $iMousespeed) MouseMove($iScreenX + $iWidth / 2, $iScreenY + $iHeight / 2, $iMousespeed)  
       
    • FMS
      By FMS
      Hello,
      I try to get all the text from a news site around a subject.
      The first run I get all the text inside a attribute in an array.
      When i try to go back and reload another page it chrashes and think it because "$oIE.GoBack"
      I couldn't find anything in the help/forum around this subject.
      Do I need to reload the $oIE or something afther an X.GoBack?
      The error i got is :
      if $oTag2.GetAttribute("class") == "NewsDetail" Then if $oTag2^ ERROR I'm not shure why I got this error, maybe someone could explain?
      Also I'm open for some pointers in this test script because I'm pretty new in working whit the IE.UDF
      Maybe there is an simpler way to get the same results?

      test script:
      #include <IE.au3> #include <MsgBoxConstants.au3> #include <Array.au3> HotKeySet("{ESC}", "Terminate") Global $oIE = _IECreate("https://www.iex.nl/Zoeken/Nieuws.aspx?q=air%20france") ;get first subject Global $oLink1 = _IEGetObjById($oIE, "ctl00_ctl00_Content_LeftContent_NewsSearch_repNews_ctl00_linkNews") Sleep(500) _IEAction($oLink1, "click") Sleep(500) Global $oTags = _IETagNameGetCollection($oIE, "div") Global $aResults[1] For $oTag In $oTags if $oTag.GetAttribute("class") == "NewsDetail" Then _ArrayAdd($aResults, $oTag.innerTEXT) EndIf Next $aResults[0] = UBound($aResults) - 1 _ArrayDisplay($aResults, "Episodelist") ConsoleWrite($aResults[1] & @CRLF) $oIE.GoBack ;get second subject Global $oLink2 = _IEGetObjById($oIE, "ctl00_ctl00_Content_LeftContent_NewsSearch_repNews_ctl01_linkNews") Sleep(500) _IEAction($oLink2, "click") Sleep(500) Local $oTags2 = _IETagNameGetCollection($oIE, "div") Local $aResults2[1] For $oTag2 In $oTags2 if $oTag2.GetAttribute("class") == "NewsDetail" Then _ArrayAdd($aResults2, $oTag2.innerTEXT) EndIf Next $aResults2[0] = UBound($aResults2) - 1 ConsoleWrite($aResults2[1] & @CRLF) Func Terminate() _IEQuit($oIE) Exit EndFunc ;==>Terminate  
    • kelso
      By kelso
      Hello Guru's,
       
      I'm trying to write an autoit script to select from the dropdown list as you see in the attached picture. 
      I read the help page for _IEFormElementOptionSelect, but I cannot grasp how to correlate that with the source code that I'm seeing. any suggestions?

    • SkysLastChance
      By SkysLastChance
      I am having a hard time understanding why this is not working. I was hoping some one could help explain it to me. 
      $tags = $oIE.document.GetElementsByTagName("input") For $tag in $tags $class_value = $tag.GetAttribute("class") If string($class_value) = "fTs-p3298-l0 wplEditControl" Then $target = $tag ExitLoop EndIF Next MsgBox(0,"",$target) If $target = "fTs-p3298-l0 wplEditControl" THEN MsgBox(0,"","itworked") I have tried 
       MsgBox(0,"",$target.Attribute)  MsgBox(0,"",$target.Value)  MsgBox(0,"",$target.InnerText) I would expect to see this in the msgbox
      fTs-p3298-l0 wplEditControl  
×