#include #include #include #include Call("ReadExcel") Call("signIn") Func ReadExcel() Local $oExcel =_Excel_Open() $datawb = _Excel_BookOpen($oExcel,@ScriptDir & "\teste.xlsx") $datawb.worksheets("Sheet1").select Global $mydata = _Excel_RangeRead($datawb, Default) If IsArray($mydata) Then For $i = 0 to UBound($mydata,$UBOUND_ROWS) -1 For $j= 0 to UBound($mydata,$UBOUND_COLUMNS) -1 If $j /2 =0 Then Else EndIf Next Next EndIf Sleep(2000) Return $mydata EndFunc ;==> ReadExcel Func signIn() For $a = 0 to UBound($mydata,$UBOUND_ROWS) -1 Global $oIE = _IECreate("https://site/index.php") Local $username = _IEGetObjById($oIE, "username") Local $password = _IEGetObjById($oIE, "password") Local $button = _IEGetObjById($oIE, "loginbtn") For $i = 0 to UBound($mydata,$UBOUND_ROWS) -1 For $j= 1 to UBound($mydata,$UBOUND_COLUMNS) -1 _IEFormElementSetValue($username, $mydata[$i][$i]) _IEFormElementSetValue($password, $mydata[$i][$j]) ConsoleWrite($mydata[$i][$i]& ":" &$mydata[$i][$j] & @CRLF) _IEAction($button, "click") Next Sleep(10000) Next Next EndFunc ;==>signIn