AutoIt Français

Code : Tout sélectionner

For $i = 1 To 5
   MyFunction($i, $j, $k)   ; j et k sont définis plus haut dans mon code
   Run("notepad.exe")
   WinWaitActive("Untitled - Notepad")
   Send("NOM DE LA PERSONNE : " & nom() & "{ENTER}")
   Send("PRENOM DE LA PERSONNE : " & prenom() & "{ENTER}")
   Send("AGE DE LA PERSONNE : " & age() & "{ENTER}")
   Send("^s")
   Send(nom() & "_personne{ENTER}")
   WinWaitActive(nom() & "_personne.txt - Notepad")
   WinClose(nom() & "_personne.txt - Notepad")

Code : Tout sélectionner

Local $nom = "Dupond"
Local $prenom = "Charles"
Local $age = "26 ans"

Func nom()
   Return $nom
EndFunc

Func prenom()
   Return $prenom
EndFunc

Func age()
   Return $age
EndFunc

Func MyFunction($Arg1, $Arg2, $Arg3)
   MsgBox(0, "My title", 'Je lance MyFunction avec $Arg1 = ' & $Arg1 & ' et $Arg2 = ' & $Arg2 & ' et $Arg3 = ' & $Arg3)
EndFunc
 

Code : Tout sélectionner

Local $nom = "Dupond"
Local $prenom = "Charles"
Local $age = "26 ans"

Local $string = '"' & $nom & "," & $prenom& "," & $age & '"'
ShellExecute(@ScriptDir & '\Script2.au3', $string )

Code : Tout sélectionner

MsgBox(0, 'script2', StringReplace($CmdLine[1], ",", @crlf))

Code : Tout sélectionner

#include <PlinkWrapper.au3>

Local $nom = "Script2"
Local $version = "V1"

Func nom()
   Send($nom & @CR)   ; bof
;   Return $nom   ; Le return ne fonctionne plus avec l'exe
EndFunc

Func version()
   Send($version & @CR)   ; bof
;   Return $version   ; Le return ne fonctionne plus avec l'exe
EndFunc

ClipPut($nom)   ; il y a plus propre mais je n'ai pas encore vu comment


Local $i, $Arg[4] = ['', '','', '']

If $CmdLine[0] = 0 Then
    MsgBox(0, @ScriptName, 'Aucun paramètre passé à Script2.exe')
Else
    ; On récupères les 4 premiers paramètres (voir le 1er s'il n'y en a qu'un)
   For $i = 1 to $CmdLine[0]
      If $i > 4 Then ExitLoop
      $Arg[$i -1] = $CmdLine[$i]
   Next
    ; on appelle la fonction
   If($Arg[0] = "nom") Then
      nom()
   ElseIf($Arg[0] = "version") Then
      version()
   Else
    MyFunction($Arg[0], $Arg[1], $Arg[2], $Arg[3])
   EndIf
EndIf


Func MyFunction($i, $com, $repertoire)
    $_plinkhandle2=_Start_plink($repertoire & "\plink.exe", $com)
    $hlog2 = _Init_plink_log($repertoire & "\Log" & $i & ".log")

    _Say(@CR, $_plinkhandle2)
    _Expect("login :", $_plinkhandle2)
    _SayPlus($user, $_plinkhandle2)
    _Expect("password", $_plinkhandle2)
    _SayPlus($password, $_plinkhandle2)
    _Expect("Welcome", $_plinkhandle2)

    ; [...]
EndFunc

Code : Tout sélectionner

func _Start_plink($_plink_loc,$_plinkserver)

   if $_plink_loc = "" then
      MsgBox(0, "Error", "Unable to open plink.exe",10)
      return false
      Exit
   endif

   if $_plinkserver = "" then
      MsgBox(0, "Error", "Unable to open server",10)
      Exit
      return false
   endif

   Local $_plinkhandle = Run($_plink_loc & " -serial " & $_plinkserver,"",@SW_MAXIMIZE, $STDIN_CHILD + $STDOUT_CHILD) ; $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD)
   return $_plinkhandle
endFunc

func _Init_plink_log($_plink_logfile)
   $_plink_logfile_handle = FileOpen($_plink_logfile, 2)
   ; Check if file opened for writing OK
   If $_plink_logfile_handle = -1 Then
      MsgBox(0, "Error", "Unable to open file.")
      Exit
   EndIf
   return true
endfunc

func _Expect($match_text, $_plinkhandle)
   local $text
   local $sBuffertext
   local $count = 0
   local $found
   local $exit = FALSE
   local $iBegin = TimerInit()
   While 1
      if TimerDiff($iBegin) > $_plink_timeout then return false
      if $count = 50 Then
         MsgBox(0, "timeout", '"' & $match_text & '"' & " non trouvé")
                 $exit = TRUE
                 return $exit
         Exit
      EndIf
      $text = StdoutRead($_plinkhandle)
      $sBuffertext = $sBuffertext & $text
      if $_plink_logging Then
         filewriteline($_plink_logfile_handle,"**********************NEW SECTION************************")
         FileWriteLine($_plink_logfile_handle, "expect : " & $match_text)
         FileWriteLine($_plink_logfile_handle, "read : " & $text)
;          filewriteline($_plink_logfile_handle,"**********************END SECTION************************")
      endif
      $count = $count+1
      $found = StringRegExp($text,$match_text)
      If $found = 1 Then
;         If $_plink_display_messages Then MsgBox(4096, $match_text, $text, $_plink_display_message_time)
         ExitLoop
      Endif
      sleep(1000)
   Wend
   return $exit
   return $sBuffertext
EndFunc

func _Say($output, $_plinkhandle)
   StdinWrite($_plinkhandle, $output)
endfunc

func _SayPlus($output, $_plinkhandle)
   StdinWrite($_plinkhandle, $output & @CR)
endfunc

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y ; pas obligatoire mais est visiblement nécessaire pour tester le script en ligne de commande
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ #include <PlinkWrapper.au3>

Local $nom = "Script2"
Local $version = "V1"

Func nom()
    ConsoleWrite($nom)
EndFunc   ;==>nom

Func version()
    ConsoleWrite($version)
EndFunc   ;==>version

Local $i, $Arg[4] = ['', '', '', '']

If $CmdLine[0] = 0 Then
    MsgBox(0, @ScriptName, 'Aucun paramètre passé à Script2.exe')
Else
    ; On récupères les 4 premiers paramètres (voir le 1er s'il n'y en a qu'un)
    For $i = 1 To $CmdLine[0]
        If $i > 4 Then ExitLoop
        $Arg[$i - 1] = $CmdLine[$i]
    Next
    ; on appelle la fonction
    If ($Arg[0] = "nom") Then
        nom()
    ElseIf ($Arg[0] = "version") Then
        version()
    Else
;~      MyFunction($Arg[0], $Arg[1], $Arg[2], $Arg[3])
    EndIf
EndIf

Code : Tout sélectionner

#include <Constants.au3>

Local $pid = Run("Script2.exe nom", @ScriptDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
If @error Then Exit -1

ProcessWaitClose($pid)

Local $nom = StdoutRead($pid)
ConsoleWrite($nom & @CRLF)