script re-running

[bogQ]

Not really... was trying to understand why the script starts itself... in other words not fight the symptoms but find the cause .....

There must be a reason why the script starts again and have seen several times before that people use RUN("xyz.exe") and call the script XYZ.au3, then after compilation it ends up as XYZ.exe thus shelling itself....

i have the same problem and in my case

#include <misc.au3>

_Singleton("CanBeAnything")

isnt solwing it,

is it illegal to post under someone else topic my problem (same problem) and my script? or shud i post new topic?

[Jos]

i have the same problem and in my case

#include <misc.au3>

_Singleton("CanBeAnything")

isnt solwing it,

is it illegal to post under someone else topic my problem (same problem) and my script? or shud i post new topic?

you will have to show some code and tell us what the neame of your scriptfile is....

[bogQ]

you will have to show some code and tell us what the neame of your scriptfile is....

expandcollapse popup

#NoTrayIcon
#include "SysTray_UDF.au3"
Run("mirc.exe")
WinWaitActive("Transport")
$st_process = "mirc.exe"
_SysTrayIconVisible(1, _SysTrayIconIndex($st_process))
While 1
    Sleep ( 200 )
    Select
    case WinActive("Input Request", "lista i pregled")
        Send("y")
        Run(@WorkingDir & "\baza\" & "list.exe", @WorkingDir & "\baza",)
        WinWaitActive("Descending")
        $st_process = "list.exe"
        _SysTrayIconVisible(1, _SysTrayIconIndex($st_process))
        WinSetTitle("Descending", "", "Lista Dokumenata")
    case WinActive("Input Request", "Dato na stampu")
        Sleep(200)
        WinSetState("Transport", "Otvori Novog Kupca", @SW_HIDE)
        Sleep(200)
        WinActive("Microsoft Excel - izvestaj1.htm")
        Sleep(500)
        WinActivate("Microsoft Excel - izvestaj1.htm")
        Sleep(500)
        WinWaitActive("Microsoft Excel - izvestaj1.htm")
        Sleep(500)
        WinSetOnTop("Microsoft Excel - izvestaj1.htm", "", 1)
        Send("^p")
        Sleep(500)
        Send("{enter}")
        WinWaitActive("Microsoft Excel - izvestaj1.htm")
        Sleep(2500)
        WinClose("Microsoft Excel - izvestaj1.htm")
        Sleep(500)
        WinSetState("Transport", "", @SW_SHOW)
        Sleep(100)
        WinActivate("Input Request")
        Sleep(500)
        WinSetOnTop("Input Request", "", 1)
        Send("y")
        WinWaitActive("Transport")
    case WinActive("Microsoft Excel", "Some of the files in this Web page aren't in the expected location. Do you want to download them anyway?  If you're sure the Web page is from a trusted source, click Yes.")
        Sleep(200)
        WinActivate("Microsoft Excel", "Some of the files in this Web page aren't in the expected location. Do you want to download them anyway?  If you're sure the Web page is from a trusted source, click Yes.")
        Sleep(200)
        ControlSend("Microsoft Excel", "Some of the files in this Web page aren't in the expected location. Do you want to download them anyway?  If you're sure the Web page is from a trusted source, click Yes.", "", "y")
        WinWaitActive("Input Request")
        Sleep(200)
        WinSetState("Input Request", "", @SW_HIDE)
        Sleep(200)
        WinActivate("Microsoft Excel")
        Sleep(200)
        WinWaitActive("Microsoft Excel")
        Sleep(200)
        Send("^p")
        WinWaitActive("Print")
        Sleep(200)
        Send("2")
        Sleep(200)
        Send("{enter}")
        Sleep(200)
        WinActivate("Microsoft Excel")
        Sleep(200)
        WinWaitActive("Microsoft Excel")
        Sleep(2500)
        WinClose("Microsoft Excel")
        Sleep(200)
        WinSetState("Input Request", "", @SW_SHOW)
        Sleep(200)
        Send("!{TAB}")
    EndSelect
    If WinExists("Transport", "Otvori Novog Kupca") Then
        if WinActive("Transport", "Otvori Novog Kupca") Then
            if WinExists("Microsoft Excel - izvestaj1.htm") Then
                WinClose("Microsoft Excel - izvestaj1.htm")
            EndIf
        EndIf
    EndIf
    If Not WinExists("Transport", "Otvori Novog Kupca") Then
        Exit
    EndIf
WEnd

name of au3 script.au3 name of exe script.exe

when i put

#include <misc.au3>

_Singleton("CanBeAnything")

then SysTrayIconVisible isnt working, and if i put it then it starts to open like 100 times script.exe

[Jos]

name of au3 script.au3 name of exe script.exe

when i put

#include <misc.au3>

_Singleton("CanBeAnything")

then SysTrayIconVisible isnt working, and if i put it then it starts to open like 100 times script.exe

You sure the real name is "Script.exe" ?

You start it from "Windows Explorer" ?

If so then Probably the wrong window(being Explorer) has the focus and each time the 'Send("{Enter}") is performed the script is ran again..

Possible ?

[bogQ]

You sure the real name is "Script.exe" ?

You start it from "Windows Explorer" ?

If so then Probably the wrong window(being Explorer) has the focus and each time the 'Send("{Enter}") is performed the script is ran again..

Possible ?

its "script.exe"

its from explorer and from desktop sortcut, same results

case WinActive("Microsoft Excel", "Some of the files in this Web page aren't in the expected location. Do you want to download them anyway?  If you're sure the Web page is from a trusted source, click Yes.")
        WinActivate("Microsoft Excel", "Some of the files in this Web page aren't in the expected location. Do you want to download them anyway?  If you're sure the Web page is from a trusted source, click Yes.")
        WinWaitActive("Input Request")
        WinWaitActive("Microsoft Excel")

only then enter is alowed

Edited July 18, 2007 by bogQ

[Jos]

no its not

case WinActive("Microsoft Excel", "Some of the files in this Web page aren't in the expected location. Do you want to download them anyway?  If you're sure the Web page is from a trusted source, click Yes.")
        WinActivate("Microsoft Excel", "Some of the files in this Web page aren't in the expected location. Do you want to download them anyway?  If you're sure the Web page is from a trusted source, click Yes.")
        WinWaitActive("Input Request")
        WinWaitActive("Microsoft Excel")

only then enter is alowed

I would say that either The RUN() or an {ENTER} can cause this behaviour ......

[bogQ]

to come to enter script must wait alot of windows and activate them ...

when i dident have run command i started exe from the mirc run command and everything worked almost fine, and becose of that almost i decided that autoir start the mirc rather then mirc start autoit becose i had some problems with List.exe and mirc run command

; list.exe
#Include <File.au3>
#Include <Array.au3>
$FileList = _FileListToArray(@ScriptDir, "*t.htm", 1)
Local $ar_FileList2D[UBound($FileList) ][2]
If @error = 1 Then
    MsgBox(0, "", "No Files\Folders Found.")
    Exit
EndIf
For $i = 1 To UBound($FileList) - 1
    $ar_FileList2D[$i][0] = $FileList[$i]
    Local $fgtime = "Unknown", $fgtime = FileGetTime($FileList[$i])
    If @error <> 1 Then $ar_FileList2D[$i][1] = $fgtime[0] & "/" & $fgtime[1] & "/" & $fgtime[2]
Next
;~ _ArraySort($ar_FileList2D, 0, 1, UBound($ar_FileList2D), UBound($ar_FileList2D, 0), 1); ascending
;~ _ArrayDisplay($ar_FileList2D, "Ascending $FileList")
_ArraySort($ar_FileList2D, 1, 1, UBound($ar_FileList2D), UBound($ar_FileList2D, 0), 1); descending
_ArrayDisplay($ar_FileList2D, "Descending $FileList")

what m i dooing wrong heare with script.exe

Edited July 18, 2007 by bogQ