Jump to content

Recommended Posts

I am trying to script the opening of multiple tabs in IE with each tab having a separate login/password. I have been able to make a successful script that will open 3 separate IE sessions with the correct webpage and login or a script that will open 3 tabs in one session (which I want) but will not login. I have tried _IECreate, IEAttach etc. This is the script I am currently using . 

#include <IE.au3>
Const $navOpenInNewTab = 0x0800

Dim $oIE = _IECreate('http://asag.xxxxxxx.com/AAAA/index.htm')

;$o_IE.Navigate2('http://asag.xxxxxxx.com/apps/yyyyyyy/LogInSAG/login.asp', $navOpenInNewTab)

;$o_IE.Navigate2('http://asag.xxxxxxx.com/apps/yyyyyyy/LogInSAG/login.asp', $navOpenInNewTab)

Call ("YYYYYYYSignIn")

Func YYYYYYYSignIn ()

    Local $username = _IEGetObjByName ($oIE,"uname")
    Local $password = _IEGetObjByName ($oIE,"pword")

    $oIE.Navigate2('http://asag.xxxxxxx.com/apps/xxxxxxx/LogInSAG/login.asp',2048)

_IEFormElementSetValue ($username, "xxxxxxx")
    _IEFormElementSetValue ($password, "xxxxxxx")

    Send('{Enter}')

EndFunc


Call ("xxxxxxxSignIn")

Func xxxxxxxSignIn ()

__IENavigate($oIE, "https://soa1gui.xxxxxxx.biz/gateway/NFServlet;jsessionid=1E3B8F6520DE0A1EC914A8ABB7E86341?NFH_MessageId=&NFH_Page=%2fpages%2fsearch%2fsearch.jsp", 1, 0x800)


    Local $domain = _IEGetObjByName ($oIE,"NF_CustomerID")
    Local $User_Name = _IEGetObjByName ($oIE,"NF_UserName")
    Local $Password = _IEGetObjByName ($oIE,"NF_Password")

    _IEFormElementSetValue ($domain, xxxxxxx")
    _IEFormElementSetValue ($User_Name, "xxxxxxx")
    _IEFormElementSetValue ($Password, "xxxxxxx")

    ;Send('{Enter}')

    EndFunc

 

Edited by kawliga751
Link to post
Share on other sites

You didn't tell us where your script is failing, so it's difficult to know how to help. If I were writing this, it would go something like this --

#include <IE.au3>
Const $navOpenInNewTab = 0x0800

Local $oIE, $oIE2, $oIE3

$oIE = _IECreate('http://asag.xxxxxxx.com/AAAA/index.htm')
$oIE.Navigate2('http://asag.xxxxxxx.com/apps/xxxxxxx/LogInSAG/login.asp', $navOpenInNewTab)
$oIE.Navigate2('https://soa1gui.xxxxxxx.biz/gateway/NFServlet;jsessionid=1E3B8F6520DE0A1EC914A8ABB7E86341?NFH_MessageId=&NFH_Page=%2fpages%2fsearch%2fsearch.jsp', $navOpenInNewTab)

$oIE2 = _IEAttach("http://asag.xxxxxxx.com/apps/xxxxxxx/LogInSAG/login.asp", "URL")
$oIE3 = _IEAttach("'https://soa1gui.xxxxxxx.biz/gateway", "URL")

LoginSite1()
LoginSite2()
LoginSite3()


Function LoginSite1()
    Local $username = _IEGetObjByName ($oIE,"uname")
    Local $password = _IEGetObjByName ($oIE,"pword")

    _IEFormElementSetValue ($username, "xxxxxxx")
    _IEFormElementSetValue ($password, "xxxxxxx")

    ; Need form object here
    _IEFormSubmit()
EndFunc

Function LoginSite2()
    Local $domain = _IEGetObjByName ($oIE2,"NF_CustomerID")
    Local $User_Name = _IEGetObjByName ($oIE2,"NF_UserName")
    Local $Password = _IEGetObjByName ($oIE2,"NF_Password")

    _IEFormElementSetValue ($domain, xxxxxxx")
    _IEFormElementSetValue ($User_Name, "xxxxxxx")
    _IEFormElementSetValue ($Password, "xxxxxxx")

    ; Need form object here
    _IEFormSubmit()
EndFunc

Function LoginSite3()
    ; Site 3 code goes here using $oIE3
    
    ; Need form object here
    _IEFormSubmit()
EndFunc

 

Link to post
Share on other sites

d'oh...so I think I got that, they do all open but still not able to login on either tab

Here's what I've got now:


 

#include <IE.au3>
Const $navOpenInNewTab = 0x0800

Local $oIE, $oIE2, $oIE3

$oIE = _IECreate('http://asag.xxxxx.com/ASAG/index.htm')
$oIE.Navigate2('http://asag.xxxxx.com/apps/xxxxx/LogInSAG/login.asp', $navOpenInNewTab)
$oIE.Navigate2('https://soa1gui.xxxxx.biz/gateway/NFServlet;jsessionid=1E3B8F6520DE0A1EC914A8ABB7E86341?NFH_MessageId=&NFH_Page=%2fpages%2fsearch%2fsearch.jsp', $navOpenInNewTab)

$oIE2 = _IEAttach("http://asag.xxxxx.com/apps/xxxxx/LogInSAG/login.asp", "URL")
$oIE3 = _IEAttach("'https://soa1gui.xxxxx.biz/gateway", "URL")

;LoginSite1()
;LoginSite2()
;LoginSite3()


Func LoginSite1()
    Local $username = _IEGetObjByName ($oIE,"uname")
    Local $password = _IEGetObjByName ($oIE,"pword")

    _IEFormElementSetValue ($username, "xxxxx")
    _IEFormElementSetValue ($password, "xxxxx")

    ; Need form object here
    _IEFormSubmit($oIE2)
EndFunc

Func LoginSite2()
    Local $domain = _IEGetObjByName ($oIE2,"NF_CustomerID")
    Local $User_Name = _IEGetObjByName ($oIE2,"NF_UserName")
    Local $Password = _IEGetObjByName ($oIE2,"NF_Password")

    _IEFormElementSetValue ($domain, xxxxx")
    _IEFormElementSetValue ($User_Name, "xxxxx")
    _IEFormElementSetValue ($Password, "xxxxx")

    ; Need form object here
    _IEFormSubmit($oIE3)
EndFunc

 

Edited by kawliga751
Link to post
Share on other sites

Thanks again but I'm obviously still missing something....this still opens each tab but doesn't login.  

#include <IE.au3>
Const $navOpenInNewTab = 0x0800

Local $oIE, $oIE2, $oIE3

$oIE = _IECreate('http://asag.xxxxx.com/ASAG/index.htm')
$oIE.Navigate2('http://asag.xxxxx.com/apps/xxxxx/LogInSAG/login.asp', $navOpenInNewTab)
$oIE.Navigate2('https://soa1gui.xxxxx.biz/gateway/NFServlet;jsessionid=1E3B8F6520DE0A1EC914A8ABB7E86341?NFH_MessageId=&NFH_Page=%2fpages%2fsearch%2fsearch.jsp', $navOpenInNewTab)

$oIE2 = _IEAttach("http://asag.xxxxx.com/apps/xxxxx/LogInSAG/login.asp", "URL")
$oIE3 = _IEAttach("'https://soa1gui.xxxxx.biz/gateway", "URL")

;LoginSite1()
;LoginSite2()
;LoginSite3()


Func LoginSite1()
    Local $username = _IEGetObjByName ($oIE,"uname")
    Local $password = _IEGetObjByName ($oIE,"pword")

    _IEFormElementSetValue ($username, "xxxxx")
    _IEFormElementSetValue ($password, "xxxxx")

    ; Need form object here
   Local $oForm = _IEFormGetCollection($oIE, 0)
    _IEFormSubmit($oForm)
EndFunc

Func LoginSite2()
    Local $domain = _IEGetObjByName ($oIE2,"NF_CustomerID")
    Local $User_Name = _IEGetObjByName ($oIE2,"NF_UserName")
    Local $Password = _IEGetObjByName ($oIE2,"NF_Password")

    _IEFormElementSetValue ($domain, xxxxx")
    _IEFormElementSetValue ($User_Name, "xxxxx")
    _IEFormElementSetValue ($Password, "xxxxx")

    ; Need form object here
    Local $oForm = _IEFormGetCollection($oIE, 0)
    _IEFormSubmit($oForm)
EndFunc

 

Link to post
Share on other sites

I m

Func LoginSite1()
    Local $username = _IEGetObjByName ($oIE2,"uname")
    Local $password = _IEGetObjByName ($oIE2,"pword")

    _IEFormElementSetValue ($username, "xxxxxxx")
    _IEFormElementSetValue ($password, "xxxxxxx")

    ; Need form object here
    ;_IEFormSubmit($oIE2)

    Local $oForm = _IEFormGetCollection($oIE2, 0)
    _IEFormSubmit($oForm)

EndFunc

Func LoginSite2()
    Local $domain = _IEGetObjByName ($oIE3,"NF_CustomerID")
    Local $User_Name = _IEGetObjByName ($oIE3,"NF_UserName")
    Local $Password = _IEGetObjByName ($oIE3,"NF_Password")

    _IEFormElementSetValue ($domain, "yyyyyy")
    _IEFormElementSetValue ($User_Name, "yyyyyy")
    _IEFormElementSetValue ($Password, "yyyyyy")

    ; Need form object here
    ;_IEFormSubmit($oIE3)

    Local $oForm = _IEFormGetCollection($oIE3, 0)
    _IEFormSubmit($oForm)

EndFunc

eant to mention that I had tried that.....same issue.....this is my revied script with the $oIE2 & $oIE3

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
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By Sachs
      I have a few questions:
      BACKGROUND
      I am using Oracle Application Testing Suite's OpenScript 13 (Eclipse IDE), Oracle Java 6, and AutoIt.
      My goal is to access a given Internet Explorer browser window (`$ieTitle`), send the keystroke of "shift-control-s" for "Save As" functionality to be invoked, so that I can download a (PDF) file to a given location ($fileName).
      The code within the script `DownloadPdfFile.au3` is
      $ieTitle = $CmdLine[1] $ieControl = "AVL_AVView31" $fileName = $CmdLine[2] ControlFocus($ieTitle, "", $ieControl) ControlSend($ieTitle, "", $ieControl, "+^s") ; Save as dialog $winTitle = "Save As" ; wait for Save As window WinWait($winTitle) ; activate Save As window If Not WinActive($winTitle) Then WinActivate($winTitle) ControlFocus($winTitle,"","Edit1") ControlSetText($winTitle,"","Edit1",$fileName) Sleep(2000) ControlClick($winTitle,"","Button3") Exit 0 So I compiled it with SciTE-Lite (32-bit Version 4.4.6 , creating `DownloadPdfFile.exe`, and so within my Java code, I have
      String command = autoItExePath + " " + scriptPath + " \"" + winTitle + "\" " + directoryPath.toFile().toString() + "\\Form9Report" + sdf_ddmmmyyyy.format(new Date()) + ".pdf"; try { Process process = Runtime.getRuntime().exec(command); process.waitFor(); } catch (Exception e) { logger.error("Exception " + e.getMessage(), e); } The output would be like `C:\Program Files (x86)\AutoIt3\AutoIt3.exe C:\...\AutoItScripts\DownloadPdfFile.au3 "https://****.com/****.exe?temp_id=**** - Internet Explorer" C:\...\Report05Apr2022.pdf"` which does run without the $cmdLine successfully. 
      When executed by Java, I see in the taskbar an icon, which I right-click has "[Check] Script Paused" and "Exit".
      Questions:
      (1) How do I unpause the script?
      (2) How do I avoid having the script paused?
      Any help is appreciated.
    • By Steviep
      Hi all,
      I've been using the following code for many years for the sole purpose of tracking my app usage via Google Analytics:
      ;GOOGLE ANALYTICS $AppStatsName = @ScriptName $GA = _IECreate("https://mywebserver/apps/stats/" & $AppStatsName & ".html", 0, 0, 0, 0) The app simply calls a blank .html page on my webserver which only contains the GA tracking code.
      The $iVisible parameter is set to "0" in my case, which means the IE browser is invisible to the user.
      I noticed in Windows 11, the URL is called in the Edge browser and is not invisible.
      So, I wonder if anyone out there has any suggestions on calling a URL invisibly on any operating system?
      Thanks!
    • By izmegna
      I am trying to auto login to web app that has the following HTML for the username, password and submit button:
      USERNAME:
      <input name="usernameField" tabindex="0" class="inp" id="usernameField" type="text" value="" message="FND_SSO_USER_NAME">
      Password:
      <input name="passwordField" tabindex="0" class="inp" id="passwordField" type="password" value="" message="FND_SSO_PASSWORD">
      Login:
      <button tabindex="0" class="OraButton left" style="padding-right: 6px; padding-left: 6px;" onclick="submitCredentials()" message="FND_SSO_LOGIN">Log In</button>
      Following is the AutoIT script I am using I am passing the username and password via cmd but it is not working, any suggestion?
       
      #include <IE.au3>
      Local $url ="https://www.Intra.edwa.com"
      Local $oIE =_IECreate($url)
      _IELoadWait($oIE)
      Local $oUser =_IEGetObjById($oIE,"usernameField")
      Local $oPass =_IEGetObjById($oIE,"passwordField")
      _IEFormElementSetValue($oUser, $CmdLine[1])
      _IEFormElementSetValue($oPass, $CmdLine[2])
      _IELoadWait($oIE)
      $oLinks = _IETagNameGetCollection($oIE, "input")
      For $oLink In $oLinks
          If String($oLink.type) = "submit" And String($oLink.value) = "Sign In" Then
                _IEAction($oLink, "click")
                ExitLoop
          EndIf
      Next
    • By Pured
      I am looking to create a script which refreshes/reads a webpage every few seconds. My goal is to see if the page has changed, then I will send myself a notification that the webpage has been updated.
       
      However, rather than downloading the entire webpage every single time, is there a way to check when the webpage last updated?
       
      If not, is there away to partially download/read html source until a specific tag is hit?
       
      Goal: I would like to increase my poll rate and not excessively waste data.
    • By mLipok
      In the past there was many questions about how to: "Automatic file upload using without user interaction"

      https://www.autoitscript.com/forum/topic/92907-ie-8-input-namenomfic-typefile-idnomfic/
      https://www.autoitscript.com/forum/topic/116899-cant-automate-input-typefile-tag-in-ie/?tab=comments#comment-815478
      https://www.autoitscript.com/forum/topic/14883-input-typefile/
      https://www.autoitscript.com/forum/topic/188708-how-to-set-the-value-of-an-input-typefile-element/
      https://www.autoitscript.com/forum/topic/91513-how-can-i-auto-set-file-path-for-input-file-in-ie/
      https://www.autoitscript.com/forum/topic/116899-cant-automate-input-typefile-tag-in-ie/
      https://www.autoitscript.com/forum/topic/169190-how-to-script-file-upload-button/
      https://www.autoitscript.com/forum/topic/145327-how-to-deal-with-ie-window-for-upload-a-fileinput-typefile/
      https://www.autoitscript.com/forum/topic/140482-internet-explorer-input-file-problem/
       
      I found solution here: 
      https://stackoverflow.com/questions/33253517/upload-a-file-via-input-input-in-html-form-with-vba
      and:
      https://www.motobit.com/tips/detpg_uploadvbsie/
      And I translate this code to AutoIt3 code:
      ; Upload file using http protocol And multipart/form-data ; v1.01 ; 2001 Antonin Foller, PSTRUH Software Global $oErrorHandler = ObjEvent("AutoIt.Error", _ErrFunc) do_vbsUpload() Func do_vbsUpload() #cs ; We need at least two arguments (File & URL) ConsoleWrite('- ' & @ScriptLineNumber & @CRLF) If $CmdLine[0] < 2 Then InfoEcho() ConsoleWrite('- ' & @ScriptLineNumber & @CRLF) ; Are some required objects missing? If StringInStr(CheckRequirements(), "Error") > 0 Then InfoEcho() ConsoleWrite('- ' & @ScriptLineNumber & @CRLF) Local $s_FileName, $s_DestURL, $s_FieldName $s_FieldName = "FileField" ; Default field name For $i_argCounter = 1 To $CmdLine[0] ConsoleWrite('+ '& $i_argCounter& ' >> ' & $CmdLine[$i_argCounter] & @CRLF) Select Case $i_argCounter = 1 ;~ $s_FileName = $CmdLine[$i_argCounter] $s_FileName = @ScriptFullPath Case $i_argCounter = 2 $s_DestURL = $CmdLine[$i_argCounter] Case $i_argCounter = 3 $s_FieldName = $CmdLine[$i_argCounter] EndSelect Next UploadFile($s_DestURL, $s_FileName, $s_FieldName) #ce UploadFile('http://www.dobeash.com/test.html', @ScriptFullPath, 'fileExample') EndFunc ;==>do_vbsUpload ; ******************* upload - begin ; Upload file using input type=file Func UploadFile($s_DestURL, $s_FileName, $s_FieldName) ; Boundary of fields. ; Be sure this string is Not In the source file Const $Boundary = "---------------------------0123456789012" ; Get source file As a binary data. Local $d_FileContents = GetFile($s_FileName) ; Build multipart/form-data document Local $s_FormData = BuildFormData($d_FileContents, $Boundary, $s_FileName, $s_FieldName) ; Post the data To the destination URL IEPostBinaryRequest($s_DestURL, $s_FormData, $Boundary) EndFunc ;==>UploadFile ; Build multipart/form-data document with file contents And header info Func BuildFormData($d_FileContents, $Boundary, $s_FileName, $s_FieldName) Const $s_ContentType = "application/upload" ; The two parts around file contents In the multipart-form data. Local $s_Pre = "--" & $Boundary & @CRLF & mpFields($s_FieldName, $s_FileName, $s_ContentType) Local $s_Po = @CRLF & "--" & $Boundary & "--" & @CRLF ; Build form data using recordset binary field Const $i_adLongVarBinary = 205 Local $oRS = ObjCreate("ADODB.Recordset") ; https://docs.microsoft.com/en-us/sql/ado/reference/ado-api/append-method-ado?view=sql-server-ver15 $oRS.Fields.Append("b", $i_adLongVarBinary, StringLen($s_Pre) + BinaryLen($d_FileContents) + StringLen($s_Po)) $oRS.Open() $oRS.AddNew() ; Convert Pre string value To a binary data Local $i_LenData = StringLen($s_Pre) $oRS("b").AppendChunk(StringToMB($s_Pre) & StringToBinary(Chr(0))) $s_Pre = $oRS("b").GetChunk($i_LenData) $oRS("b") = "" ; Convert Po string value To a binary data $i_LenData = StringLen($s_Po) $oRS("b").AppendChunk(StringToMB($s_Po) & StringToBinary(Chr(0))) $s_Po = $oRS("b").GetChunk($i_LenData) $oRS("b") = "" ; Join Pre & $d_FileContents & Po binary data $oRS("b").AppendChunk($s_Pre) $oRS("b").AppendChunk($d_FileContents) $oRS("b").AppendChunk($s_Po) $oRS.Update() Local $s_FormData = $oRS("b") $oRS.Close() Return $s_FormData EndFunc ;==>BuildFormData ; sends multipart/form-data To the URL using IE Func IEPostBinaryRequest($s_URL, $s_FormData, $Boundary) ; Create InternetExplorer Local $oIE = ObjCreate("InternetExplorer.Application") ; You can uncoment Next line To see form results $oIE.Visible = True ; Send the form data To $s_URL As POST multipart/form-data request $oIE.Navigate($s_URL, '', '', $s_FormData, _ "Content-Type: multipart/form-data; boundary=" & $Boundary & @CRLF) While $oIE.Busy Wait(1, "Upload To " & $s_URL) WEnd ; Get a result of the script which has received upload ;~ On Error Resume Next Local $s_IE_InnerHTML = $oIE.Document.body.innerHTML MsgBox(0, 'TEST #' & @CRLF & @ScriptLineNumber, $s_IE_InnerHTML) $oIE.Quit() Return $s_IE_InnerHTML EndFunc ;==>IEPostBinaryRequest ; Infrormations In form field header. Func mpFields($s_FieldName, $s_FileName, $s_ContentType) Local $s_MPTemplate = _ ; template For multipart header 'Content-Disposition: form-data; name="{field}";' & _ 'FileName="{file}"' & @CRLF & _ 'Content-Type: {ct}' & @CRLF & @CRLF & _ '' Local $s_Out $s_Out = StringReplace($s_MPTemplate, "{field}", $s_FieldName) $s_Out = StringReplace($s_Out, "{file}", $s_FileName) $s_Out = StringReplace($s_Out, "{ct}", $s_ContentType) Return $s_Out EndFunc ;==>mpFields Func Wait($i_Seconds, $s_Message) MsgBox(64, '', $s_Message, $i_Seconds) EndFunc ;==>Wait ; Returns file contents As a binary data Func GetFile($s_FileName) Local $oStream = ObjCreate("ADODB.Stream") $oStream.Type = 1 ; Binary $oStream.Open() $oStream.LoadFromFile($s_FileName) Local $d_GetFile = $oStream.Read() $oStream.Close() Return $d_GetFile EndFunc ;==>GetFile ; Converts OLE string To multibyte string Func StringToMB($S) Local $I, $B For $I = 1 To StringLen($S) $B &= StringToBinary(Asc(StringMid($S, $I, 1))) Next Return $B EndFunc ;==>StringToMB ; ******************* upload - end ; ******************* Support ; Basic script info Func InfoEcho() Local $sMsg = _ "Upload file using http And multipart/form-data" & @CRLF & _ "Copyright (C) 2001 Antonin Foller, PSTRUH Software" & @CRLF & _ "use" & @CRLF & _ "[cscript|wscript] fupload.vbs file $s_URL [fieldname]" & @CRLF & _ " file ... Local file To upload" & @CRLF & _ " $s_URL ... $s_URL which can accept uploaded data" & @CRLF & _ " fieldname ... Name of the source form field." & @CRLF & _ @CRLF & CheckRequirements() & @CRLF & _ "" ConsoleWrite('! ' & $sMsg & @CRLF) EndFunc ;==>InfoEcho ; Checks If all of required objects are installed Func CheckRequirements() Local $sMsg = _ "This script requires some objects installed To run properly." & @CRLF & _ CheckOneObject("ADODB.Recordset") & @CRLF & _ CheckOneObject("ADODB.Stream") & @CRLF & _ CheckOneObject("InternetExplorer.Application") & @CRLF & _ "" Return $sMsg ; $sMsgBox $sMsg EndFunc ;==>CheckRequirements ; Checks If the one object is installed. Func CheckOneObject($sClassName) Local $sMsg ObjCreate($sClassName) If @error = 0 Then $sMsg = "OK" Else $sMsg = "Error:" & @error EndIf Return $sClassName & " - " & $sMsg EndFunc ;==>CheckOneObject ; ******************* Support - end ; User's COM error function. Will be called if COM error occurs Func _ErrFunc(ByRef $oError) ; Do anything here. ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _ @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _ @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _ @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _ @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _ @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _ @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _ @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _ @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _ @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF) EndFunc ;==>_ErrFunc  
      But I miss something and the code not works as intendend.
      Please join and contribute, in solving this issue, as this will be handy for entire community.
      @mLipok
       
      btw.
      I think that this may be realated to ChrB() which I simply translate to StringToBinary()
      Especialy this :
      StringToBinary(Chr(0))) could be the main issue.
      But for now I'm tired and going to sleep.
      Hope maybe tomorrow somebody solve this issue.
       
×
×
  • Create New...