Jump to content
Sign in to follow this  
rajatrg

Newbie Help Needed

Recommended Posts

Dear Sir,

 

I'm not a programming guy, I hired someone to make a autoit script and script was working absolutely fine

I was just testing something and I just opened the script, run it and forced to exit it, before completing the steps 

after that I'm getting error "Subscript used n non-accessible variable"

Can you please help to solve this issue as my developer is on vacation and I need to fix it urgently 

Script was running absolutely fine before 

Error is on Line 19 " c:/user/name/desktop/new auto it vs3.au3"

 

For$= 1 to $videofile(0)

For$= 1 to "videofiles" Error

 

Can you please suggest me a solution ?

This script is for editing the videos 

Edited by Melba23
Fixed formatting

Share this post


Link to post
Share on other sites

Post the script.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Hello Sir, I got the script fixed, it started running, but now script completely changed and not working fine 

Complete script and I asked few other peoples, they said autoIT is not stable and useful, is it like that ?

#include <File.au3>


$templateFile = @DesktopDir & "\\WWE.prproj"
$oldVideoFileName = ""
$videoFolder = "C:\\Users\\Rajat\\Videos\\All Videos\\"

$tempFile = FileOpen("old name.txt", 0)
If $tempFile = -1 Then
    MsgBox(16, "old name.txt is missing", "Can't proceed, because old name is missing")
EndIf

$oldVideoFileName = FileRead($tempFile)
FileClose($tempFile)

;MsgBox(0, "", $oldVideoFileName)

$videoFiles = _FileListToArray($videoFolder) ;, "*.mp4"

For $i = 1 To $videoFiles[0]
    $currentFile = $videoFiles[$i]
    ;ConsoleWrite($currentFile & @CRLF)

    $tempFile = FileOpen($templateFile, 0)
    If $tempFile = -1 Then
        MsgBox(16, "WWE.prproj is missing", "Can't proceed, because WWE.prproj is missing")
    EndIf

    $templateFileRead = FileRead($tempFile)
    FileClose($tempFile)

    $templateFileRead = StringReplace($templateFileRead, $oldVideoFileName, $currentFile)

    $tempFile = FileOpen($templateFile, 2)
    FileWrite($tempFile, $templateFileRead)
    FileClose($tempFile)

    #cs
    Run("notepad.exe " & $templateFile)

    WinWait("WWE - Notepad")

    If WinExists("WWE - Notepad") Then
        WinActivate("WWE - Notepad")
        Sleep(1000)
        Send("^h") ;Run replace tool by CTRL+H
        Send($oldVideoFileName)
        Send("{TAB}")
        Send($currentFile)
        Send("!a") ;Press ALT+A to replace all
        Sleep(5000)
        Send("{ESCAPE}")
        Sleep(500)
        Send("^s") ;Save file
        Sleep(2000)
        ;WinClose("WWE - Notepad")
    EndIf
    #ce

    Sleep(250)
    ShellExecute(@DesktopDir & "\\WWE.prproj")

    ;Resize image
    WinWaitActive("[CLASS:Premiere Pro]")
    Sleep(4000)

    #cs Changes something else
    Send("+1")
    Send("{DOWN 3}") ;down three times
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("^c{ESCAPE}") ;copy to clipboard and close dialog
    Sleep(250)

    Send("{DOWN}") ;switch to first image
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Send("^v{ENTER}") ;paste the length from clipboard
    Sleep(250)

    Send("{DOWN}") ;switch to second image
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Send("^v{ENTER}") ;paste the length from clipboard
    Sleep(250)
    #ce

    MouseClick("left", 564, 564)
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("^c{ESCAPE}") ;copy to clipboard and close dialog
    Sleep(250)

    MouseClick("left", 540, 540)
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Send("^v{ENTER}") ;paste the length from clipboard
    Sleep(250)

    MouseClick("left", 590, 590)
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Send("^v{ENTER}") ;paste the length from clipboard
    Sleep(250)

    ;Send("+3")
    Send("^m") ;CTRL+M to export
    Sleep(500)
    Send("{TAB 7}")
    Sleep(250)
    Send("{SPACE}")
    Sleep(2500)
    Send($currentFile)
    Send("{ENTER}")
    Sleep(250)
    Send("{TAB 22}{SPACE}")
    WinWaitActive("[CLASS:Premiere Pro]")
    Send("^+w") ;CTRL+SHIFT+W to quit
    Sleep(250)
    Send("{TAB}{SPACE}") ; don't save the file

    Sleep(500)
    $oldVideoFileName = $currentFile
    ;WinClose("WWE - Notepad")
    Sleep(250)
Next

cleanup()

$tempFile = FileOpen("old name.txt", 2) ;overwrite
FileWrite($tempFile, $oldVideoFileName)
FileClose($tempFile)

Func cleanup()
    ;Delete the files from the All Videos folder
    FileDelete($videoFolder)
EndFunc

I guess their is problem due to files changed due to script stopped in between ?

I tried to replace with backup file too, but still I got the same error

Edited by Melba23
Merged and added code tags

Share this post


Link to post
Share on other sites
If Not @error Then
For $i = 1 To $videoFiles[0]
    $currentFile = $videoFiles[$i]
    ;ConsoleWrite($currentFile & @CRLF)

    $tempFile = FileOpen($templateFile, 0)
    If $tempFile = -1 Then
        MsgBox(16, "WWE.prproj is missing", "Can't proceed, because WWE.prproj is missing")
    EndIf

    $templateFileRead = FileRead($tempFile)
    FileClose($tempFile)

    $templateFileRead = StringReplace($templateFileRead, $oldVideoFileName, $currentFile)

    $tempFile = FileOpen($templateFile, 2)
    FileWrite($tempFile, $templateFileRead)
    FileClose($tempFile)

    #cs
    Run("notepad.exe " & $templateFile)

    WinWait("WWE - Notepad")

    If WinExists("WWE - Notepad") Then
        WinActivate("WWE - Notepad")
        Sleep(1000)
        Send("^h") ;Run replace tool by CTRL+H
        Send($oldVideoFileName)
        Send("{TAB}")
        Send($currentFile)
        Send("!a") ;Press ALT+A to replace all
        Sleep(5000)
        Send("{ESCAPE}")
        Sleep(500)
        Send("^s") ;Save file
        Sleep(2000)
        ;WinClose("WWE - Notepad")
    EndIf
    #ce

    Sleep(250)
    ShellExecute(@DesktopDir & "\\WWE.prproj")

    ;Resize image
    WinWaitActive("[CLASS:Premiere Pro]")
    Sleep(4000)

    #cs Changes something else
    Send("+1")
    Send("{DOWN 3}") ;down three times
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("^c{ESCAPE}") ;copy to clipboard and close dialog
    Sleep(250)

    Send("{DOWN}") ;switch to first image
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Send("^v{ENTER}") ;paste the length from clipboard
    Sleep(250)

    Send("{DOWN}") ;switch to second image
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Send("^v{ENTER}") ;paste the length from clipboard
    Sleep(250)
    #ce

    MouseClick("left", 564, 564)
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("^c{ESCAPE}") ;copy to clipboard and close dialog
    Sleep(250)

    MouseClick("left", 540, 540)
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Send("^v{ENTER}") ;paste the length from clipboard
    Sleep(250)

    MouseClick("left", 590, 590)
    Send("^r") ;open speed/duration
    Sleep(100)
    Send("{TAB}")
    Send("^v{ENTER}") ;paste the length from clipboard
    Sleep(250)

    ;Send("+3")
    Send("^m") ;CTRL+M to export
    Sleep(500)
    Send("{TAB 7}")
    Sleep(250)
    Send("{SPACE}")
    Sleep(2500)
    Send($currentFile)
    Send("{ENTER}")
    Sleep(250)
    Send("{TAB 22}{SPACE}")
    WinWaitActive("[CLASS:Premiere Pro]")
    Send("^+w") ;CTRL+SHIFT+W to quit
    Sleep(250)
    Send("{TAB}{SPACE}") ; don't save the file

    Sleep(500)
    $oldVideoFileName = $currentFile
    ;WinClose("WWE - Notepad")
    Sleep(250)
Next
EndIf

 


AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites

Hi sir, I am having backup of old script, which was working fine, Does I should work on Fixing the template on which script was running ? or should I hire someone to fix it ?

 

as I need it urgently fixed, I hired 1 guy yesterday, He worked for more than 20 hours and he is unable to do it, as he is also a newbie , Does somebody can help me via teamvewer or guiding Please it's urgent for me to fix it 

Edited by rajatrg

Share this post


Link to post
Share on other sites

it's hard to know where it fails without more info.

Perhaps insert write console or msgbox to see how far you get.

the use of mouse clicks is very fragile as the screen positions may change.

use the info tool to verify that they are still correct

also there may be no problem with the code - it may be failing due to a change in the files in the folder that it is accessing.

 

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
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By learner123
      Hi All,
       
      I am new to this AUTO IT and I have created a script that will open an app,enter pin and copy the code generated to clipboard. My java code call this autoIT script and use the copied generated code from clipboard.
      This works fine when server  window is on focus. My server is an windows server. 
      But when I minimize or disconnect the server, the script opens the app.exe but doesn't copy any value to clipboard.  
      Can anyone help me on this 😐
       
      Run("C:\Program Files (x86)\RSA SecurID Software Token\SecurID.exe")
      Local $hWnd=WinWait("abc - RSA SecurID Token") ; waits until the window is the active window
      $hWin = WinGetHandle("abc - RSA SecurID Token");
      ControlSend($hWnd,"","","1111") ; simulates pressing the Home key
      ControlSend($hWnd,"","","{ENTER}");
      ControlSend($hWnd,"","","^c");
      Sleep(1000) ;
      ControlSend($hWnd,"","","^c");
       
    • By learner123
      Hi All,
      So I have created a small autoIT script to enter pin into a RSA token(app which generate new code every 30 second), and copy the generated code.
      I have a java application which requires this code so every time my java-code requires this RSA code, it runs the autoIT script and the copied generated code is then used in my java application. 
      I have deployed this code on a windows server and it works fine when I am logged in and the window is on focus, But as soon as I schedule task and disconnect the server (not logged out only disconnect), or even minimize the server window, the autoIT scripts fails and its not able to copy the value.
       
      Please find below the code for AUTOIT.
       
      WinActivate("rsa - RSA SecurID Token") ; activates the window that has old in the tilte bar
      WinWaitActive("rsa - RSA SecurID Token") ; waits until the window is the active window
      Send("1111") ; simulates pressing the Home key, enters password to get the code
      Send("{ENTER}") ; simulates pressing the Enter key
      Sleep(1000) ;
      Send("^c") ; simulates pressing the CTRL+c keys (copy)
       
      Also I saw some post regarding that WINACTIVE only works when window is active. But my below AUTO IT script to handle windows pop up  works perfectly fine when the server is disconnected. 
       
      Opt("WinTitleMatchMode", 1)
      WinWait("https://url","","10")
      WinWaitActive("https://url","","10")
      Sleep(2000)
      Send("userid")
      Sleep(1000)
      Send("{TAB}")
      Sleep(1000)
      Send("passwrd")
      Send("{TAB}")
      Sleep(500)
      Send("{ENTER}")
       
       
    • By JuanFelipe
      Hello gyus, I try to make a code to login in a web page in my job, buy i can’t understand why my form is blocked, this is my code: 
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <StringConstants.au3> #include <WindowsConstants.au3> #include <WinAPIFiles.au3> #include <FileConstants.au3> #include <File.au3> #include <Array.au3> #include <IE.au3> #include <Excel.au3> #include <GuiEdit.au3> #include <GuiStatusBar.au3> #include <DateTimeConstants.au3> #include <Date.au3> #Region ### START Koda GUI section ### Form=C:\noentry\koda_1.7.3.0\Forms\spoa.kxf $Form1 = GUICreate("Eva y Vehículos", 1200, 1000, 10, 10) $prueba = GUICtrlCreateButton("Prueba",10,990,50,20) ;VARIABLES ========================================================================================== $psi = "https://psi.policia.gov.co/PSI/Login.aspx?ReturnUrl=%2fPSI#no-back-button" $chequeVehiculos = "https://psi.policia.gov.co/PSI/frm_lista_chk.aspx" $evaluacionEva = "https://psi.policia.gov.co/PSI/eva_frmver.aspx" $oIE = ObjCreate("Shell.Explorer.2") $GUIActiveX = GUICtrlCreateObj ($oIE, 10, 10, 1180, 980) ;GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW) $oIE.navigate($psi) ;_IELoadWait($oIE) _InicioSesion() #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $prueba _InicioSesion() EndSwitch WEnd Func _InicioSesion() Local $username = _IEGetObjByName($oIE, "txtUsuario") Local $pass = _IEGetObjByName($oIE, "txtClave") Local $logina = _IEGetObjByName($oIE, "btnIngresar") $username.value="example" $pass.value="examplepass" _IEAction($logina, 'click') _IELoadWait($oIE) MsgBox(16,"","") EndFunc  
    • By shelly
      Here is the below code for handling pop-up when window is  inactive ..but I don't know how to change sleep and when i run this script it runs sometimes and sometimes it stops .
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{SPACE}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{DOWN}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{ENTER}")
      --- these 3 lines never worked while TAB lines works sometimes but not in accurate way
      I am new too AutoIt .. help me out why this script behaves in strange way
      ControlFocus("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1")
      Sleep(3000)
      ControlSend("Policy Decisions -- Webpage Dialog", "", "Internet Explorer_Server1","1")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog", "", "Internet Explorer_Server1","the request is send")
      Sleep(3000)
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      Sleep(3000)
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      Sleep(3000)
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{SPACE}")
      Sleep(3000)
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      Sleep(3000)
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      Sleep(3000)
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{DOWN}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      Sleep(3000)
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{TAB}")
      ControlSend("Policy Decisions -- Webpage Dialog","","Internet Explorer_Server1","{ENTER}")
       
×
×
  • Create New...