Jump to content
Sign in to follow this  
rajatrg

Newbie Help Needed

Recommended Posts

rajatrg

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
BrewManNH

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
rajatrg

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
JohnOne
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
rajatrg

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
philkryder

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  

  • Similar Content

    • Pagi
      By Pagi
       
      <a href="index.php=4143b27b41db0a40c499202865c3e24d" class="menuitem " target="\_self"> "Menu Item 1" </a>
      Can you tell me if it´s possible to click this menu button? If yes, how? Cause I have no idea, I think i should use _IETagNameGetCollection
    • mar3011
      By mar3011
      hello, I want to set in the inputbox field random key from the keyboard to which the function will be assigned, for example F4 function start notepad ALT + A function start notepad for one function. Thank you for any help.  
    • JuanFelipe
      By JuanFelipe
      Cambiar a español Hello friends, I need help with a problem I have, I want to know if there is any way to update a GUI already running, that is I have a GUI of a certain size and with a button I would like to enlarge it:
      example: $ form1 = GUICreate ("", 200,100,0,0)   When you press the button, the gui increases its size, and actuates the new size.
    • BogdanNicolescu
      By BogdanNicolescu
      While 1 / / / A whole bunch of codes found in help and here: https://www.autoitscript.com/autoit3/docs/ / / / WEnd OR:

       
      HotKeySet("{ESC}", "Terminate") While 1 MouseClick("Right",674,422) MouseClick("Left",673,447) Sleep(2000) / / / A whole bunch of codes found in help and here: https://www.autoitscript.com/autoit3/docs/ / / / MouseClick("Left",675,339) SLeep(3000) WEnd Func Terminate()     Exit 0 EndFunc  
      Sorry if i should't let this here to be found by newbies like me -.-'
    • santoshM
      By santoshM
      Dear friends i am facing a problem , i have created a window in autoit some time it is moving with the mouse curser even if iam not clicking the window 
×