Jump to content

Use _IENavigate With An Variable

Arclite86

By Arclite86
in AutoIt General Help and Support

 Share

Recommended Posts

Arclite86 Universalist

Arclite86

Posted
  • Author
Posted

Can you post ALL of your code in one [autoit ] [/ autoit] code snippet so I can analyze? It seems like something is going wrong and it is very hard to piece together all the parts you've provided ;)

$_FF_COM_TRACE = True
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <FF.au3>
#include <FFEx.au3>
#include <staticConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <Excel.au3>
#include <FileConstants.au3>
#include <IE.au3>
#include <String.au3>


$Form1_1_1_1 = GUICreate("program", 909, 714, 688, 114)
$List1 = GUICtrlCreateList("", 0, 64, 145, 358, BitOR($WS_BORDER, $WS_VSCROLL))
GUICtrlSetData(-1, "")
$List2 = GUICtrlCreateList("", 144, 64, 65, 358, BitOR($WS_BORDER, $WS_VSCROLL))
GUICtrlSetData(-1, "")
$checkstatus = GUICtrlCreateButton("scan1", 48, 432, 49, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $iIndex = 0, $sListData1 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list1.txt"
Global $sListFile1 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list1.txt"

Global $iIndex = 0, $sListData2 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list2.txt"
Global $sListFile2 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list2.txt"

Global $iIndex = 0, $sListData3 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list3.txt"
Global $sListFile3 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list3.txt"

Global $iIndex = 0, $sListData4 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list4.txt"
Global $sListFile4 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list4.txt"

Global $iIndex = 0, $sListData5 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list5.txt"
Global $sListFile5 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list5.txt"

Global $iIndex = 0, $sListData6 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list6.txt"
Global $sListFile6 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list6.txt"

Global $iIndex = 0, $sListData7 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list7.txt"
Global $sListFile7 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list7.txt"

Global $iIndex = 0, $sListData8 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list8.txt"
Global $sListFile8 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list8.txt"

Global $iIndex = 0, $sListData9 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list9.txt"
Global $sListFile9 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list9.txt"

Global $iIndex = 0, $sListData10 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list10.txt"
Global $sListFile10 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list10.txt"

Global $iIndex = 0, $sListData11 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list11.txt"
Global $sListFile11 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list11.txt"

Global $iIndex = 0, $sListData12 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list12.txt"
Global $sListFile12 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list12.txt"

Global $iIndex = 0, $sListData13 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list13.txt"
Global $sListFile13 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list13.txt"






; Read saved file if it exists--------
If FileExists($sListFile1) Then
    $sListData1 = FileRead($sListFile1)
EndIf

; Load data read from the file
GUICtrlSetData($List1, $sListData1)
_GUICtrlListBox_SetCurSel($List1, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile2) Then
    $sListData2 = FileRead($sListFile2)
EndIf




; Load data read from the file
GUICtrlSetData($List2, $sListData2)
_GUICtrlListBox_SetCurSel($List2, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile3) Then
    $sListData3 = FileRead($sListFile3)
EndIf




; Load data read from the file
GUICtrlSetData($List3, $sListData3)
_GUICtrlListBox_SetCurSel($List3, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile4) Then
    $sListData4 = FileRead($sListFile4)
EndIf




; Load data read from the file
GUICtrlSetData($List4, $sListData4)
_GUICtrlListBox_SetCurSel($List4, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile5) Then
    $sListData5 = FileRead($sListFile5)
EndIf



; Load data read from the file
GUICtrlSetData($List5, $sListData5)
_GUICtrlListBox_SetCurSel($List5, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile6) Then
    $sListData6 = FileRead($sListFile6)
EndIf

; Load data read from the file
GUICtrlSetData($List6, $sListData6)
_GUICtrlListBox_SetCurSel($List6, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile7) Then
    $sListData7 = FileRead($sListFile7)
EndIf

; Load data read from the file
GUICtrlSetData($List7, $sListData7)
_GUICtrlListBox_SetCurSel($List7, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile8) Then
    $sListData8 = FileRead($sListFile8)
EndIf

; Load data read from the file
GUICtrlSetData($List8, $sListData8)
_GUICtrlListBox_SetCurSel($List8, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile9) Then
    $sListData9 = FileRead($sListFile9)
EndIf

; Load data read from the file
GUICtrlSetData($List9, $sListData9)
_GUICtrlListBox_SetCurSel($List9, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile10) Then
    $sListData10 = FileRead($sListFile10)
EndIf






Local $i1 = _GUICtrlListBox_GetCount($List4)
GUICtrlSetData($Input6, $i1)

Local $i2 = _GUICtrlListBox_GetCount($List1)
GUICtrlSetData($Edit15, $i2)

Local $i3 = _GUICtrlListBox_GetCount($List2)
GUICtrlSetData($Input73, $i3)

Local $count = _GUICtrlListBox_GetCount($List2)
Local $item, $total = 0
For $index = 0 To $count - 1
    $item = _GUICtrlListBox_GetText($List2, $index)
    $total += Number(StringReplace($item, ".", ""))
Next

GUICtrlSetData($Input3, $total)

Local $i4 = _GUICtrlListBox_GetCount($List1)
$read7 = Number($i4) / 15
$read8 = Round($read7)

GUICtrlSetData($listcounter4, $read8)

Local $i5 = _GUICtrlListBox_GetCount($List6)
GUICtrlSetData($Input4, $i5)


Local $i6 = _GUICtrlListBox_GetCount($List6)

Local $i7 = Floor(Number($i6) / 15)

GUICtrlSetData($newlist2, $i7)




local $oIE = _IECreate("https://twitter.com/")

GUISetState(@SW_SHOW)


Func scanner()



    Local $link = GUICtrlRead($List1)
    Local $oIEnav = _IENavigate($oIE, "https://twitter.com/" & $link)
    _IELoadWait($oIEnav)



    If @error = $_IEStatus_NoMatch Then
        ConsoleWrite("tab niet gevonden" & @CRLF)
        Exit
    EndIf

    $oLinks = _IELinkGetCollection($oIEnav)

    If @error = $_IEStatus_Success Then
        $linkCnt = @extended
        ConsoleWrite("Link count = " & $linkCnt & @CRLF)

        For $oLink In $oLinks
            If $oLink.className = 'ProfileNav-stat ProfileNav-stat--link u-borderUserColor u-textCenter js-tooltip js-openSignupDialog js-nonNavigable u-textUserColor' Then
                If $oLink.getAttribute('data-nav') = 'followers' Then


                    $4er = _GUICtrlListBox_GetCurSel($List2)
                    _GUICtrlListBox_ReplaceString($List2, $4er, "" & StringReplace($oLink.innerText, "Volgers", ""))

                    _GUICtrlListBox_AddString($List2, "" & $oLink.innerText)
                    $4GG = _GUICtrlListBox_GetCurSel($List2)
                    _GUICtrlListBox_ReplaceString($List2, $4GG, "" & $oLink.innerText)


                    $text = _GUICtrlListBox_GetCurSel($List2)
                    _GUICtrlListBox_ReplaceString($List2, $text, "" & $oLink.innerText)

                EndIf
            EndIf
        Next
    EndIf




;~  $oLinks2 = _IELinkGetCollection($oIEnav)
;~  For $oLink2 In $oLinks2
;~      If $oLink2.className = 'ProfileNav-stat ProfileNav-stat--link u-borderUserColor u-textCenter js-tooltip js-openSignupDialog js-nonNavigable u-textUserColor' Then
;~          If $oLink2.getAttribute('data-nav') = 'following' Then
;~              ConsoleWrite('following = ' & $oLink2.innerText & @CRLF)
;~              $4er = _GUICtrlListBox_GetCurSel($List3)




;~              $text = _GUICtrlListBox_GetCurSel($List3)
;~              _GUICtrlListBox_ReplaceString($List3, $text, "" & StringReplace($oLink2.innerText, "Volgend", ""))


;~          EndIf
;~      EndIf
;~  Next



    $iIndex += 1
    If $iIndex = _GUICtrlListBox_GetCount($List1) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List1, $iIndex)

    If $iIndex = _GUICtrlListBox_GetCount($List2) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List2, $iIndex)

    If $iIndex = _GUICtrlListBox_GetCount($List3) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List3, $iIndex)


    If $iIndex = _GUICtrlListBox_GetCount($List4) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List4, $iIndex)




    If $iIndex = _GUICtrlListBox_GetCount($List5) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List5, $iIndex)

    If $iIndex = _GUICtrlListBox_GetCount($List9) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List9, $iIndex)
    _IEQuit($oIe)





EndFunc   ;==>scanner







While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

Case $checkstatus
            Local $login = GUICtrlRead($List1)

WinActivate("Google - Windows Internet Explorer")
_IENavigate($oIE, "https://twitter.com/")

;~ $oIE =  _IECreate("https://twitter.com/")

Local $username =_IEGetObjById($oIE,"signin-email")
Sleep(1000)
Local $password =_IEGetObjById ($oIE,"signin-password")

_IEFormElementSetValue ($username,$login)
_IEFormElementSetValue ($password,"Dragon86")



Sleep(1000)
Local $oInputs = _IETagNameGetCollection($oIE, "input")
For $oInput In $oInputs
    If $oInput.name == "remember_me" Then $oInput.checked = false
Next

Sleep(1000)
Local $oButs = _IETagNameGetCollection($oIE, "button")
For $oBut In $oButs
If StringInStr($oBut.innertext, "Inloggen") Then _IEAction($oBut,"click")

Next
Sleep(1000)


            Call("save")


            Local $i2 = _GUICtrlListBox_GetCount($List1)






Local $i = 0
Do
    scanner()
    $i = $i + 1 ; Or $i += 1 can be used as well.
Until $i = $i2 ; Increase the value of $i until it equals the value of 10.








;~          Local $count = _GUICtrlListBox_GetCount($List2)
;~          Local $item, $total = 0
;~          For $index = 0 To $count - 1
;~              $item = _GUICtrlListBox_GetText($List2, $index)
;~              $total += Number(StringReplace($item, ".", ""))
;~          Next
;~          MsgBox(0, "", $total)
;~          GUICtrlSetData($Input3, $total)
EndSwitch
WEnd
MikahS Universalist

MikahS

Posted
Posted

what is this

#include <FFEx.au3>
?

Snips & Scripts


My Snips: graphCPUTemp ~ getENVvars
My Scripts: Short-Order Encrypter - message and file encryption V1.6.1 ~ AuPad - Notepad written entirely in AutoIt V1.9.4

Feel free to use any of my code for your own use.                                                                                                                                                           Forum FAQ

 

Arclite86 Universalist

Arclite86

Posted
  • Author
Posted

 

what is this

#include <FFEx.au3>
?

 

It was a extra funcion for firefox but I removed it already because I dont use it anymore but it still doesnt work like I want it

It does the first funtion but after that it doesnt

MikahS Universalist

MikahS

Posted
Posted (edited)

Give this a try and post results:

$_FF_COM_TRACE = True
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <FF.au3>
#include <staticConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <Excel.au3>
#include <FileConstants.au3>
#include <IE.au3>
#include <String.au3>

Local $oIE

$Form1_1_1_1 = GUICreate("program", 909, 714, 688, 114)
$List1 = GUICtrlCreateList("", 0, 64, 145, 358, BitOR($WS_BORDER, $WS_VSCROLL))
$List2 = GUICtrlCreateList("", 144, 64, 65, 358, BitOR($WS_BORDER, $WS_VSCROLL))
$checkstatus = GUICtrlCreateButton("scan1", 48, 432, 49, 25)
GUISetState(@SW_SHOW)

Global $iIndex = 0, $sListData1 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list1.txt"
Global $sListFile1 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list1.txt"

Global $iIndex = 0, $sListData2 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list2.txt"
Global $sListFile2 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list2.txt"

Global $iIndex = 0, $sListData3 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list3.txt"
Global $sListFile3 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list3.txt"

Global $iIndex = 0, $sListData4 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list4.txt"
Global $sListFile4 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list4.txt"

Global $iIndex = 0, $sListData5 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list5.txt"
Global $sListFile5 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list5.txt"

Global $iIndex = 0, $sListData6 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list6.txt"
Global $sListFile6 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list6.txt"

Global $iIndex = 0, $sListData7 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list7.txt"
Global $sListFile7 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list7.txt"

Global $iIndex = 0, $sListData8 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list8.txt"
Global $sListFile8 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list8.txt"

Global $iIndex = 0, $sListData9 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list9.txt"
Global $sListFile9 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list9.txt"

Global $iIndex = 0, $sListData10 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list10.txt"
Global $sListFile10 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list10.txt"

Global $iIndex = 0, $sListData11 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list11.txt"
Global $sListFile11 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list11.txt"

Global $iIndex = 0, $sListData12 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list12.txt"
Global $sListFile12 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list12.txt"

Global $iIndex = 0, $sListData13 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list13.txt"
Global $sListFile13 = "C:\Users\joesoef pc\Desktop\autoit\twitter programma\lijsten\list13.txt"




; Read saved file if it exists--------
If FileExists($sListFile1) Then
    $sListData1 = FileRead($sListFile1)
EndIf

; Load data read from the file
GUICtrlSetData($List1, $sListData1)
_GUICtrlListBox_SetCurSel($List1, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile2) Then
    $sListData2 = FileRead($sListFile2)
EndIf




; Load data read from the file
GUICtrlSetData($List2, $sListData2)
_GUICtrlListBox_SetCurSel($List2, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile3) Then
    $sListData3 = FileRead($sListFile3)
EndIf




; Load data read from the file
GUICtrlSetData($List3, $sListData3)
_GUICtrlListBox_SetCurSel($List3, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile4) Then
    $sListData4 = FileRead($sListFile4)
EndIf




; Load data read from the file
GUICtrlSetData($List4, $sListData4)
_GUICtrlListBox_SetCurSel($List4, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile5) Then
    $sListData5 = FileRead($sListFile5)
EndIf



; Load data read from the file
GUICtrlSetData($List5, $sListData5)
_GUICtrlListBox_SetCurSel($List5, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile6) Then
    $sListData6 = FileRead($sListFile6)
EndIf

; Load data read from the file
GUICtrlSetData($List6, $sListData6)
_GUICtrlListBox_SetCurSel($List6, $iIndex)

; Read saved file if it exists--------
If FileExists($sListFile7) Then
    $sListData7 = FileRead($sListFile7)
EndIf

; Load data read from the file
GUICtrlSetData($List7, $sListData7)
_GUICtrlListBox_SetCurSel($List7, $iIndex)




; Read saved file if it exists--------
If FileExists($sListFile8) Then
    $sListData8 = FileRead($sListFile8)
EndIf

; Load data read from the file
GUICtrlSetData($List8, $sListData8)
_GUICtrlListBox_SetCurSel($List8, $iIndex)



; Read saved file if it exists--------
If FileExists($sListFile9) Then
    $sListData9 = FileRead($sListFile9)
EndIf

; Load data read from the file
GUICtrlSetData($List9, $sListData9)
_GUICtrlListBox_SetCurSel($List9, $iIndex)


; Read saved file if it exists--------
If FileExists($sListFile10) Then
    $sListData10 = FileRead($sListFile10)
EndIf


Local $i1 = _GUICtrlListBox_GetCount($List4)
GUICtrlSetData($Input6, $i1)

Local $i2 = _GUICtrlListBox_GetCount($List1)
GUICtrlSetData($Edit15, $i2)

Local $i3 = _GUICtrlListBox_GetCount($List2)
GUICtrlSetData($Input73, $i3)

Local $count = _GUICtrlListBox_GetCount($List2)
Local $item, $total = 0
For $index = 0 To $count - 1
    $item = _GUICtrlListBox_GetText($List2, $index)
    $total += Number(StringReplace($item, ".", ""))
Next
GUICtrlSetData($Input3, $total)

Local $i4 = _GUICtrlListBox_GetCount($List1)
$read7 = Number($i4) / 15
$read8 = Round($read7)

GUICtrlSetData($listcounter4, $read8)

Local $i5 = _GUICtrlListBox_GetCount($List6)
GUICtrlSetData($Input4, $i5)


Local $i6 = _GUICtrlListBox_GetCount($List6)

Local $i7 = Floor(Number($i6) / 15)

GUICtrlSetData($newlist2, $i7)






GUISetState(@SW_SHOW)

Func scanner()

    Local $link = GUICtrlRead($List1)
    Local $oIEnav = _IENavigate($oIE, "https://twitter.com/" & $link)
    _IELoadWait($oIEnav)



    If @error = $_IEStatus_NoMatch Then
        ConsoleWrite("tab niet gevonden" & @CRLF)
        Exit
    EndIf

    $oLinks = _IELinkGetCollection($oIEnav)

    If @error = $_IEStatus_Success Then
        $linkCnt = @extended
        ConsoleWrite("Link count = " & $linkCnt & @CRLF)

        For $oLink In $oLinks
            If $oLink.className = 'ProfileNav-stat ProfileNav-stat--link u-borderUserColor u-textCenter js-tooltip js-openSignupDialog js-nonNavigable u-textUserColor' Then
                If $oLink.getAttribute('data-nav') = 'followers' Then


                    $4er = _GUICtrlListBox_GetCurSel($List2)
                    _GUICtrlListBox_ReplaceString($List2, $4er, "" & StringReplace($oLink.innerText, "Volgers", ""))

                    _GUICtrlListBox_AddString($List2, "" & $oLink.innerText)
                    $4GG = _GUICtrlListBox_GetCurSel($List2)
                    _GUICtrlListBox_ReplaceString($List2, $4GG, "" & $oLink.innerText)


                    $text = _GUICtrlListBox_GetCurSel($List2)
                    _GUICtrlListBox_ReplaceString($List2, $text, "" & $oLink.innerText)

                EndIf
            EndIf
        Next
    EndIf




;~  $oLinks2 = _IELinkGetCollection($oIEnav)
;~  For $oLink2 In $oLinks2
;~      If $oLink2.className = 'ProfileNav-stat ProfileNav-stat--link u-borderUserColor u-textCenter js-tooltip js-openSignupDialog js-nonNavigable u-textUserColor' Then
;~          If $oLink2.getAttribute('data-nav') = 'following' Then
;~              ConsoleWrite('following = ' & $oLink2.innerText & @CRLF)
;~              $4er = _GUICtrlListBox_GetCurSel($List3)




;~              $text = _GUICtrlListBox_GetCurSel($List3)
;~              _GUICtrlListBox_ReplaceString($List3, $text, "" & StringReplace($oLink2.innerText, "Volgend", ""))


;~          EndIf
;~      EndIf
;~  Next



    $iIndex += 1
    If $iIndex = _GUICtrlListBox_GetCount($List1) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List1, $iIndex)

    If $iIndex = _GUICtrlListBox_GetCount($List2) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List2, $iIndex)

    If $iIndex = _GUICtrlListBox_GetCount($List3) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List3, $iIndex)


    If $iIndex = _GUICtrlListBox_GetCount($List4) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List4, $iIndex)




    If $iIndex = _GUICtrlListBox_GetCount($List5) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List5, $iIndex)

    If $iIndex = _GUICtrlListBox_GetCount($List9) Then $iIndex = 0
    _GUICtrlListBox_SetCurSel($List9, $iIndex)
    _IEQuit($oIE)





EndFunc   ;==>scanner

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $checkstatus
            Local $login = GUICtrlRead($List1)
            Local $oIE = _IECreate("https://twitter.com/")
            WinActivate("Google - Windows Internet Explorer")


            Local $username = _IEGetObjById($oIE, "signin-email")
            Sleep(1000)
            Local $password = _IEGetObjById($oIE, "signin-password")

            _IEFormElementSetValue($username, $login)
            _IEFormElementSetValue($password, "Dragon86")



            Sleep(1000)
            Local $oInputs = _IETagNameGetCollection($oIE, "input")
            For $oInput In $oInputs
                If $oInput.name == "remember_me" Then $oInput.checked = False
            Next

            Sleep(1000)
            Local $oButs = _IETagNameGetCollection($oIE, "button")
            For $oBut In $oButs
                If StringInStr($oBut.innertext, "Inloggen") Then _IEAction($oBut, "click")

            Next
            Sleep(1000)


            ;    Call("save")


            Local $i2 = _GUICtrlListBox_GetCount($List1)






            Local $i = 0
            Do
                scanner()
                $i += 1
            Until $i = $i2









;~          Local $count = _GUICtrlListBox_GetCount($List2)
;~          Local $item, $total = 0
;~          For $index = 0 To $count - 1
;~              $item = _GUICtrlListBox_GetText($List2, $index)
;~              $total += Number(StringReplace($item, ".", ""))
;~          Next
;~          MsgBox(0, "", $total)
;~          GUICtrlSetData($Input3, $total)
    EndSwitch
WEnd

You'll need to fix how the login is done, as a path is not an acceptable login. As I see, it seems that you have the username in the file specified by the path? then read the file and put the username in a variable :)

Also, I had to comment out a lot of the list, input, and edit data setting, and just worked with the loop and function (many of the variables used were not declared).

Edited by MikahS

Snips & Scripts


My Snips: graphCPUTemp ~ getENVvars
My Scripts: Short-Order Encrypter - message and file encryption V1.6.1 ~ AuPad - Notepad written entirely in AutoIt V1.9.4

Feel free to use any of my code for your own use.                                                                                                                                                           Forum FAQ

 

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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...