Chain functions

[NiceBoy1234]

I got these function but somehow only the first one gets called.

 

expandcollapse popup

test01()
test02()
test03()
test04()
test05()

Func test01()

    While 1
        ConsoleWrite("01")
    WEnd
    
EndFunc

Func test02()

    While 1
        ConsoleWrite("02")
    WEnd
    
EndFunc

Func test03()

    While 1
        ConsoleWrite("03")
    WEnd
    
EndFunc

Func test04()

    While 1
        ConsoleWrite("04")
    WEnd
    
EndFunc

Is there a way to accomplish this this way?

[Melba23]

NiceBoy1234,

Of course only the first is called - how do you expect to escape the While...WEnd loop within it?

M23

[TheSaint]

Also, what are you trying to accomplish, what is your end game?

[NiceBoy1234]

I have several functions with different while loops.
I would like to call them seperate or together, the code above was just a sample

[Melba23]

NiceBoy1234,

If you want the chained functions to repeat indefinitely then you could do something like this:

While 
    test01()
    test02()
    test03()
    test04()
WEnd



Func test01()
    ConsoleWrite("01")
EndFunc



Func test02()
    ConsoleWrite("02")
EndFunc



Func test03()
    ConsoleWrite("03")
EndFunc



Func test04()
    ConsoleWrite("04")
EndFunc

M23

[NiceBoy1234]

Hmm that sample worked, I think I have probably something wrong in my code could you have a look please=)

 

expandcollapse popup

#include <AutoItConstants.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <FileConstants.au3>

Local $sPath = "C:\Program Files (x86)\xxx\xxx.exe";
Local $bFpExists = False;
Local $aDrives   = DriveGetDrive($DT_REMOVABLE) ; usbs
Local $sUsername = "xxx"
Local $sPassword = "xxx"
Local $sLockdown = "C:\Users\xxx\Desktop\xxx.exe"

While 1

   disableTaskbar()
   hiddenShortcut()
   
   searchForDrives()
   startApplicationConstantly()

WEnd

Func startApplicationConstantly()

   
  Local $bxxfExe = RunWait("C:\Users\xxx\xxx\xxx\xxx.exe")

  If WinExists("[CLASS:#32770]") Then
     ProcessWaitClose("C:\Users\xxx\xxx\xxx\xxx.exe")
  EndIf
 
EndFunc

Func searchForDrives()

  If @error Then
     ConsoleWrite("error.")
  Else
     For $i = 1 To $aDrives[0]
        ConsoleWrite(StringUpper($aDrives[$i]) & "Drive " & $i & "/" & $aDrives[0] & @CRLF)
        ConsoleWrite($aDrives[$i])
        If($aDrives[$i] == "f:") Then
           DirCopy("F:\xxx\xxx", "C:\Users\xxx\Desktop\CC", $FC_OVERWRITE)
           Sleep(10000)
        Else
           ConsoleWrite("couldnt find f drive")
        EndIf
     Next
  EndIf

EndFunc

Func hiddenShortcut()

  If _IsPressed("43") And _IsPressed("59") And _IsPressed("58") Then
     While _IsPressed("43") And _IsPressed("59") And _IsPressed("58")
        Sleep(250)
     WEnd
     Local $sAnswer = InputBox("Password", "Password to unlock", "put pw", "", 0, 0, 0, 0)
     If($sAnswer == $sPassword) Then
        ShellExecute($sLockdown)
        ableTaskbar()
     Else
        ConsoleWrite("wrong pw" & @CRLF)
     EndIf
     If ProcessExists("Lockdown.exe") Then
        ConsoleWrite("xxx.exe exist" & @CRLF)
     Else
        ConsoleWrite("xxx.exe does not exist" & @CRLF)
     EndIf
  EndIf
  Sleep(250)

EndFunc

Func disableTaskbar()

   Opt('WINTITLEMATCHMODE', 4)
   ControlHide('classname=Shell_TrayWnd', '', '')

EndFunc

Func ableTaskbar()

   Opt('WINTITLEMATCHMODE', 4)
   ControlShow('classname=Shell_TrayWnd', '', '')

EndFunc

I used for privacy issues the letter X a few times

Edited December 28, 2015 by NiceBoy1234

[BrewManNH]

Your WinExists might get stuck because there might be a dozen windows using that class open, then the code will wait until you close the program and not do anything else as long as it is still running.

[NiceBoy1234]

Ty for the reply I delete that line a check it give me a minute

[NiceBoy1234]

Thanks that was one issue now following functions do work:
disableTaskbar()
searchForDrives()
startApplicationConstantly

just the function hiddenShortcut remains and does not work

[TheSaint]

That is a really weird key combination to have held down all at once - c + x + y

Open Notepad, and attempt to do that combo, and you will find that only one key repeats, so the combo will never may not work.

If you are going to repeat _IsPressed you should be using the DllOpen method as per the Example anyway.

https://www.autoitscript.com/autoit3/docs/libfunctions/_IsPressed.htm

However, your key combo will never may not work and so your code in that function will may never happen.

 

Edited December 28, 2015 by Santa
I may have learnt something

[mikell]

Hmmm sorry Santa 
However I agree with DllOpen

#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")
$n = 0
 While 1
 If _IsPressed("43", $hDLL) And _IsPressed("59", $hDLL) And _IsPressed("58", $hDLL) Then
     While _IsPressed("43", $hDLL) And _IsPressed("59", $hDLL) And _IsPressed("58", $hDLL)
        Sleep(10)
    WEnd
    $n += 1
        Tooltip("test " &  $n, 0, 0)
        ConsoleWrite("test " &  $n & @CRLF)
 EndIf
 Wend
DllClose($hDLL)

 

Edited December 28, 2015 by mikell

[TheSaint]

Well if that works, then I have learnt something new.

Other than the Notepad method, I had no AutoIt facility to try the combo, so I went for what seemed obvious ... no doubt a mistake. Still seems like an awful combo to me anyway ... I'd throw in a CTRL and or SHIFT and just use one letter ... if that.

Edited December 29, 2015 by Santa

[mikell]

Hey, it was only matter of a code which works or not, even if the combo is awful indeed 

[guinness]

Just to make it clear, you can't do this with native AutoIt functions, because that's what "chaining" functions means.

Function Example1()
    Return "First"
EndFunc

Function Example2()
    Return "Second"
EndFunc

Example1().Example2()

 

[NiceBoy1234]

Dll seemed to solved the problem, it works now thanks.
I got one more little question, since I deleted the WinExists Method, what would be a better way to close the windows error window like "program does not work wait or close".
I tried to check with WinExists if that windows appears to close it immediately.

Edited December 29, 2015 by NiceBoy1234

[mikell]

WinExist can be used but the check must be more precise (window title or text)

Func test()
   Local $w = WinList("[CLASS:#32770]")
   For $i = 1 to $w[0][0]
      If StringInStr(WinGetText($w[$i][1]), "some text") Then WinClose($w[$i][1])
  Next
EndFunc

 

[NiceBoy1234]

hiddenShortcut() function does not work anymore strange:(

[NiceBoy1234]

does this have to have excatly this name ?

user32.dll

Thus the window which I create with the shortcut does have same classname as the error window

Edited December 29, 2015 by NiceBoy1234

[NiceBoy1234]

My While Loop looks like this now:
 

...
Local $hDLL = DllOpen("user32.dll")

While 1

    ableTaskbar()
    hiddenShortcut()
    searchForDrives()
    startApplicationConstantly()
    
WEnd

DllClose($hDLL)
...