[R] Transformer un .bat en AutoIt

[C3D]

Bonjour à toutes et tous,

Ayant créer une appli offline en PHP j'ai cherché un moyen pour pour lancer mon serveur (Uniserver) et mon appli en un clique, pour cela j'utilise un .bat.
En continuant mes recherche pour avoir un system plus sympathique et encore plus rapide et simple je suis tombé sur Autoit et je me suis lancé dessus (depuis ce matin seulement)

Avec différents scripts j'ai fait cela pour l'instant :

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
#include "uc_start_servers.au3"
; Variables du script
$AppVersion = "0.2"

; Configuration
$StartDP = "Start.bat"
$StopDP = "Stop.bat"
$ZMWSServerPort = "8080"
$ZMWSCmdLineStart = "Start.bat" & $ZMWSServerPort
$ZMWSCmdLineStop = "Stop.bat" & $ZMWSServerPort

; Variables globales
Opt("TrayMenuMode", 1) ; Don't show the default tray context menu
; Recherche une sous-chaine dans le titre des fenêtre
Opt("WinTitleMatchMode", 1)

Global Const $MIM_APPLYTOSUBMENUS   = 0x80000000
Global Const $MIM_BACKGROUND        = 0x00000002
 

;TraySetIcon("shell32.dll", 21)
TraySetToolTip("Depann49 Manager)")

$mnuZMWSStart   = TrayCreateItem("Démarrer")
$mnuZMWSStop  = TrayCreateItem("Arrêter")
TrayCreateItem("")
$Appli = TrayCreateMenu("Application") 
$AppliDirect= TrayCreateItem("Application Direct", $Appli) 
$Gmap= TrayCreateItem("GoogleMap", $Appli) 

TrayCreateItem("")
$Admin = TrayCreateMenu("Administration")
$PHPMyAdmin= TrayCreateItem("PHPMyAdmin", $Admin)
$PANELADMIN = TrayCreateItem("Panel Admin", $Admin)

TrayCreateItem("")
$mnuAbout = TrayCreateItem("A propos")
$mnuQuit  = TrayCreateItem("Quitter")


While 1
    
    $Msg = TrayGetMsg()

    Switch $Msg
        Case $mnuZMWSStart
            ZMWSStart()

        Case $mnuZMWSStop
            ZMWSStop()
        
        Case $Appli            
         ShellExecute("http://127.0.0.1:9080/")     
      Case $AppliDirect           
         ShellExecute("http://127.0.0.1:9080/") 
      Case $Gmap          
         ShellExecute("http://depann49.free.fr/googlemap2.html")    


        Case $PHPMyAdmin            
         ShellExecute("http://127.0.0.1:9080/apanel/phpMyAdmin")                
        Case $PANELADMIN
            ShellExecute("http://127.0.0.1:9080/apanel/")   

        Case $mnuAbout
            Msgbox(64, "A propos...", "Depann49 Server Manager" & @CRLF & "Version AutoIt " & $AppVersion)

        Case $mnuQuit
            ZMWSStop()
            ExitLoop
    EndSwitch   
    


WEnd

Exit

;--------------------------------------------------------------------------------
; ZMWSStart : Start ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStart()
    Run($StartDP)
EndFunc


;--------------------------------------------------------------------------------
; ZMWSStop : Stop ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStop()
    Run($StopDP & " " & $ZMWSCmdLineStop)
EndFunc
 

Ce code me permet de lancé un systray avec différent menu dont le démarrage de mon appli/serveur/etc/ par mon fichier .bat ici :

► Afficher le texte

Code : Tout sélectionner

TITLE UNIFORM SERVER - Start
COLOR B0
mode con:cols=60 lines=20
@echo off
cls
rem ###################################################
rem # Name: Server_Start.bat
rem # Location: uniform_sServer
rem # Created By: The Uniform Server Development Team
rem # Edited Last By: MPG (ric)
rem # V 1.0 21-1-2009
rem # V 1.1 28-2-2009 - Get Apache executable name
rem ##################################################
echo.

rem working directory current folder 
pushd %~dp0

rem  Command line parameters:
rem  Server_Start.bat %1 %2 %3
rem  %1 = Drive letter to use 0 auto-detection
rem  %2 = mysql (run MySql server) or nomysql (do not run MySql server)
rem  %3 = console (Open a command prompt at folder MySQL Bin)
rem Note: If using %2 you must set a value for %1
rem Note: If using %3 you must set values for %1 and %2
rem Note: Default, auto-drive detection, runs Apache and MySQL servers no command prompt.

rem ## Bail out if UniControler running
udrive\home\admin\program\pskill.exe UniController.exe >NUL
if not errorlevel 1 goto :UNICON

rem ## Has this Apache been started
if NOT exist udrive\usr\local\apache2\logs\httpd.pid goto :NOTSTARTED

rem ## It was srarted is it running
SET /P pid=<udrive\usr\local\apache2\logs\httpd.pid
netstat -anop tcp | FIND /I " %pid%" >NUL
IF ERRORLEVEL 1 goto :NOTRUNNING
IF ERRORLEVEL 0 goto :RUNNING

:NOTRUNNING
rem ## Not shutdown using server_stop.bat hence delete files
del udrive\usr\local\apache2\logs\httpd.pid
if exist udrive\usr\local\apache2\logs\drive.txt del udrive\usr\local\apache2\logs\drive.txt

:NOTSTARTED
rem ## Get ports from config files
udrive\usr\bin\perl  udrive\home\admin\program\get_port.pl apache
set apachep=%ERRORLEVEL%

udrive\usr\bin\perl  udrive\home\admin\program\get_port.pl ssl
set sslp=%ERRORLEVEL%

udrive\usr\bin\perl  udrive\home\admin\program\get_port.pl mysql
set mysqlp=%ERRORLEVEL%

rem ## Set initial dummy values for port check
set pass1=found
set pass2=found
set pass3=found


FIND "#LoadModule ssl_module" udrive\usr\local\apache2\conf\httpd.conf >NUL
IF NOT ERRORLEVEL 1  goto :SKIP

rem ## Check for another server on this Secure Apache port
netstat -anp tcp | FIND /I "0.0.0.0:%sslp% " >NUL
IF ERRORLEVEL 1 set pass2=notfound
goto :NOSKIP
:SKIP

set pass2=notfound
:NOSKIP

rem ## Check for another server on this Apache port
netstat -anp tcp | FIND /I "0.0.0.0:%apachep% " >NUL
IF ERRORLEVEL 1 set pass1=notfound

rem ## Check for another server on this MySQL port
netstat -anp tcp | FIND /I "0.0.0.0:%mysqlp% " >NUL
IF ERRORLEVEL 1 set pass3=notfound

if %pass1%==notfound if %pass2%==notfound if %pass3%==notfound goto NOTFOUND
echo.
echo  All three ports must be free to run the servers.
echo.
if %pass1%==notfound echo  Port %apachep%   is free - OK to run Apache server
if %pass1%==found echo  Port %apachep%   in use  - FAIL Cannot run Apache server
if %pass2%==notfound echo  Port %sslp%  is free - OK to run Secure Apache server
if %pass2%==found echo  Port %sslp%  in use  - FAIL Cannot run Secure Apache server
if %pass3%==notfound echo  Port %mysqlp% is free - OK to run MySQL server
if %pass3%==found echo  Port %mysqlp% in use  - FAIL Cannot run MySQL server
echo.
pause
goto END

:NOTFOUND
echo  Port %apachep%  est libre - Lancement du serveur Apache
echo  Port %mysqlp% est libre - Lancement du serveur MySQL 


rem ### Apache not running. Get free drive letter may be used later.
rem ## Find first free drive letter
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do CD %%a: 1>> nul 2>&1 & if errorlevel 1 set freedrive=%%a

rem ## Use batch file drive parameter.
rem ## If dummy 0 or no parameter, use freedrive
set Disk=%1
if "%Disk%"=="0" set Disk=%freedrive%
if "%Disk%"==""  set Disk=%freedrive%

rem ## Option to force a drive letter, remove "rem" and change drive leter
rem set Disk=w

rem ## Having decided which drive letter to use create the disk
subst %Disk%: "udrive"
if errorlevel 1 goto :PROBLEM

rem ## Save drive letter to file for use by plugins.
(set /p dummy=%Disk%) >udrive\usr\local\apache2\logs\drive.txt <nul

rem ## Wait for drive to be established (created)
:next
udrive\home\admin\program\unidelay.exe
%Disk%: 
IF NOT EXIST %Disk%:\NUL GOTO :next

rem === Get Apache executable file name
FOR /F "tokens=*" %%i in ('dir /B usr\local\apache2\bin\Apache*') do SET Apache_exe=%%i

rem ### Drive was created. Create variables for paths and programs 
set apachepath=\usr\local\apache2\
set apacheit=%Disk%:%apachepath%bin\%Apache_exe% -f %apachepath%conf\httpd.conf -d %apachepath%.
set programit=%Disk%:\home\admin\program\
set closeit=%programit%close.bat %Disk%

rem ### Provide feedback to user
echo.
echo ----------------- LES URLS -----------------------
echo  Panneau de configuration http://127.0.0.1:9080/apanel/             
echo  Application DEPANN49: http://127.0.0.1:9080/
echo --------------------------------------------------
echo.

rem ### Start Apache server
start %programit%uniserv.exe "%apacheit%" "%closeit%"

rem ### Before starting Apanel wait for Apache to start 
rem ### Safety loop counter cnt give up after 60 seconds
echo  Lancement de l'application DEPANN49
rem home\admin\program\unidelay.exe 5

echo.
set /a cnt=0
:next1
set /a cnt+=1
if "%cnt%"=="60" goto :TIMEDOUT
%Disk%:\home\admin\program\unidelay.exe
%Disk%:\home\admin\program\pskill.exe %Apache_exe% > nul
IF ERRORLEVEL 1 goto :next1

%Disk%:\home\admin\program\unidelay.exe 2
rem ### Start Apanel



rem ### Start MySQL server - skip if requested not to start (%2)
if "%2"=="nomysql" goto :NOMYSQL
echo  Starting MySQL ...............

start %Disk%:\usr\local\mysql\bin\mysqld-opt.exe --defaults-file=/usr/local/mysql/my.cnf

%Disk%:\Orca\Orca.exe

:NOMYSQL

rem ### Does user want to run a command prompt, if not END 
if "%3"=="console" goto :CONSOLE
goto :END

:CONSOLE
rem ### User wants to run a command prompt. Opens in MySQL bin
rem ### Allows command clients to be used (musql.exe and mysqladmin.exe ) 

cd %Disk%:\usr\local\mysql\bin
start "UNIFORM SERVER MySQL Command prompt" cmd.exe 
goto :END


:TIMEDOUT
rem ### Apache failed to start. Kill virtual drive. Inform user
subst %Disk%: /D
echo.
echo Unable to start Apache Server
goto :PAUSE

:PROBLEM
echo.
echo The disk %Disk% could not be created!
goto :PAUSE

:UNICON
echo.
echo  You are currently running UniController!
echo.
echo  Stop UniController if you wish to use batch file control.
goto :PAUSE

:RUNNING
echo.
echo  This Apache server is already running.
echo  You can stop the server using Stop.bat

:PAUSE
echo.
pause

:END

rem restore original working directory
popd
EXIT
 

Alors en gros j'aimerai inclure mes deux fichiers bat (Start et Stop) dans AutoIt et au lancement de mon .exe mon appli/serveur démarre automatiquement sans fait Démarrer.

Je pense que tous cela est possible mais j'avour ne pas trop savoir par ou commencé pour que cela le fasse, déja il me semblai que mon code plus haut devais démarrer mon appli directement mais cela ne fonctionne pas.

Merci pour votre aide

Cordialement.

[C3D]

Re moi,

J'ai trouvé un code script AutoIt ici qui fait le lancement automatique des serveurs ainsi que la fermeture, j'avoue etre perdu je ne vois pas comment implanté cela dans mon appli en lancement automatique de mon systray et de gardé biensur celui-ci.

Le code en question

► Afficher le texte

Code : Tout sélectionner

; File name: uc_servers_start_stop.u3
; Date: 22-11-2007
; Author: Mike Gleaves UniCenter
; Description: Start stop servers
; Test Script for testing start-stop unctions. Main code checks if drive is in use
#include <Array.au3>
#include <Constants.au3>

;GLOBAL VARIABLES
$drive_letter="z"                             ; server virtual drive, default w

;======== Snippet Part of main code ========================================
;check drive is free, exit script if in use
If uc_virtual_drive($drive_letter)Then ; is drive in use
   MsgBox(0, "Drive Test", $drive & ":Main: This drive is in Use either change the script or stop servers!"); ########
   Exit ; drive is in use take no action
EndIf

MsgBox(0, "Drive test", "Main :OK To Continue");############# Test

;Start servers
uc_start_servers($drive_letter) ; 

MsgBox(0, "Apache MySQL Started", "Main: Use servers OR Click to STOP SERVERS");######### Test

;Stop servers
uc_stop_servers($drive_letter) ; 
;======== END Snippet Part of main code ====================================


;=================== Is Virtual Drive ======================
;~ Function Checks if supplied drive leter is a virtual drive
;~ Input: Drive letter to be checked
;~ Ouput: True if exists on list else returns false
Func uc_virtual_drive($drive_leter)
    Local $drive = $drive_leter & ":" ; create drive to search for
    Local $is_virtual = False         ; flag
    Local $line =""                   ; DOS output string 
    Local $result = Run(@ComSpec & " /c subst ", "", @SW_HIDE ,$STDERR_CHILD + $STDOUT_CHILD)
    
    While 1  ; loop to grab output string
        $line = $line & StdoutRead($result)
        If @error Then ExitLoop
    Wend
    ;MsgBox(0, "Output from DOS", $line);##### Test
    
    Local $result_array = StringSplit($line, @LF) ; Split string at line boundaries
    
    for $i =1 to $result_array[0]                            ; loop through array
        Local $get_drive = StringLeft( $result_array[$i], 2) ; get first two characters
        ;MsgBox(0, "Drive to check", $get_drive);##### Test
        If ($get_drive = $drive)Then                         ; is it the drive we ar looking for
          $is_virtual = True                                 ; yes: set the flag
          ExitLoop                                           ; nothing else to do
        EndIf                                                
    Next                                                     ; keep chacking

   ;_ArrayDisplay($result_array, "Virtual drives used");##### Test

    Return $is_virtual 
EndFunc
;================== END Is Virtual Drive ===================

;==================== Start Servers =========================
;~ Function Start servers 
;  Set environment variable "Disk"
;  Create virtual drive
;  Start both Apache and MySQL servers
;  Start Apanel
;~ Input: Drive letter
;~ Ouput: None
Func uc_start_servers($drive_leter)
    Local $current_path = '"' & @ScriptDir & '"' ; get scripts current path
    Local $drive = $drive_leter & ":" ; convert driver-letter to drive
    
    ; Set environment variable "Disk" equal to drive letter
    EnvSet("Disk", $drive_leter) ; needed for Apanel to pick-up
    MsgBox(0, "Current Path", "uc_start_servers(): " & $current_path);######### Test
    
    ; create virtual drive to run servers on
    RunWait(@ComSpec & " /c subst " & $drive & " " &  $current_path & "\udrive", "", @SW_HIDE )
    MsgBox(0, "Drive Create", "uc_start_servers(): Drive created please check");######### Test
    
    ; Set Apache paths
    Local $apachepath = $drive & "\usr\local\apache2\bin\Apache.exe "        ;Apache executable
    Local $apacheconf = $drive & "/usr/local/apache2/conf/httpd.conf "       ;Apache configuration file
    Local $apacheroot = $drive & "/usr/local/apache2/"                       ;Apache root folder
    Local $apache =$apachepath & " -f " & $apacheconf & " -d " & $apacheroot ;Apache start string
    MsgBox(0, "uc_start_servers() Apache command", $apache);######### Test
    
    ; run Apache server. select w:, change directory to \usr\local\php required to pick-up libmysql.dll
    Run(@ComSpec & " /c " & $drive & " & cd \usr\local\php & " & $apache,"", @SW_HIDE )

    ; wait for Apache to run
    While Not ProcessExists("Apache.exe");wait for process to run
        Sleep(100)                       ;periodically check
    WEnd
    
    MsgBox(0, "Apache Run", "uc_start_servers(): Apache now running");######### Test
    
    ;StartApanel -- Server up and running safe to display apanel
    Run(@ComSpec & " /c " & $drive & " & \home\admin\www\redirect.html &","", @SW_HIDE )
    MsgBox(0, "Start Apanel", "uc_start_servers(): Apanel now started");######### Test

    ; Set MySQL paths
    $mysql_path ="\usr\local\mysql\bin\mysqld-opt.exe "              ; path to executable
    $mysql_conf =" --defaults-file=/usr/local/mysql/bin/my-small.cnf"; Mysql config file
    
    ; Run MySQL server
    Run(@ComSpec & " /c " & $drive & " & " & $mysql_path & $mysql_conf ,"", @SW_HIDE )
    MsgBox(0, "MySQL", "uc_start_servers(): MySQL Started");######### Test
        
EndFunc ;
;================= END Start Servers ========================

;===================== Stop Servers =========================
;~ Function Close servers and clean-up 
;  Stop Apache loop to close all processes
;  Close  MySQL process
;  Remove virtual drive
;  Delete environment variable "Disk"
;~ Input: Drive letter
;~ Ouput: None
Func uc_stop_servers($drive_leter)
    Local $drive = $drive_leter & ":" ; convert driver letter to drive
    ; close all apache processes
    While ProcessExists("Apache.exe") ; wait for all Apache processs to close
         ProcessClose ("Apache.exe")  ; kill named process
         Sleep(100)                   ; give process chance to close
    WEnd
    MsgBox(0, "Apache Close", "uc_stop_servers: Apache Stopped");######### Test
    
    ; close MySQL process
    ProcessClose ("mysqld-opt.exe")
    MsgBox(0, "MySQL Close", "uc_stop_servers: MySQL Stopped");######### Test
    
    ; delete drive created
    Run(@ComSpec & " /c subst " & $drive & " /D", "", @SW_HIDE)
    
    ; delete environment variable "Disk" 
    EnvSet("Disk", "") ; clean-up
EndFunc ;
;================== END Stop Servers ========================

Merci de votre aide

[C3D]

Après de nombreuse recherches j'ai fait quelques modifs, donc l'ajout d'un splachscreen :

► Afficher le texte

Code : Tout sélectionner

;Autorun Splash Screen

Dim $ConfigFile ;Configuration File
Dim $ImageFile ;Image to be shown.  Must be BMP,GIF or JPG
Dim $ImageWidth ;Width of the image to display in pixels
Dim $ImageHeight ;Height of image in pixels
Dim $Title ;Title to be displayed
Dim $ShowTime ;Length of time to display image in seconds
Dim $ShowTitle ;Determine whether or not to display the title
Dim $ShowTitleSetting ;Setting for ShowTitle
$StartDP = "Start.bat"
$StopDP = "Stop.bat"
$ZMWSServerPort = "8080"
$ZMWSCmdLineStart = "Start.bat" & $ZMWSServerPort
$ZMWSCmdLineStop = "Stop.bat" & $ZMWSServerPort

; Variables globales
Opt("TrayMenuMode", 1) ; Don't show the default tray context menu
; Recherche une sous-chaine dans le titre des fenêtre
Opt("WinTitleMatchMode", 1)



;TraySetIcon("shell32.dll", 21)
TraySetToolTip("Depann49 Serveur)")

$mnuZMWSStart   = TrayCreateItem("Démarrer")
$mnuZMWSStop  = TrayCreateItem("Arrêter")
TrayCreateItem("")
$Appli = TrayCreateMenu("Application") 
$AppliDirect= TrayCreateItem("Application Direct", $Appli) 
$Gmap= TrayCreateItem("GoogleMap", $Appli) 

TrayCreateItem("")
$Admin = TrayCreateMenu("Administration")
$PHPMyAdmin= TrayCreateItem("PHPMyAdmin", $Admin)
$PANELADMIN = TrayCreateItem("Panel Admin", $Admin)

TrayCreateItem("")
$mnuAbout = TrayCreateItem("A propos")
$mnuQuit  = TrayCreateItem("Quitter")




If $ConfigFile = "Error" Then Exit

$ImageFile = IniRead($ConfigFile,"General","ImageFile","Logo.jpg")

If StringMid($ImageFile,2,1)<>":" and StringMid($ImageFile,2,1)<>"\" Then
    $ImageFile = @ScriptDir & "\" & $ImageFile
EndIf

If Not FileExists($ImageFile) Then Exit

$ImageHeight = IniRead($ConfigFile,"General","ImageHeight",160)
$ImageWidth = IniRead($ConfigFile,"General","ImageWidth",500)
$Title = IniRead($ConfigFile,"General","Title","Depann49 Serveur")
$ShowTime = IniRead($ConfigFile,"General","ShowTime",2)
$ShowTitle = IniRead($ConfigFile,"General","ShowTitle",False)

If $ShowTitle = True Then
    $ShowTitleSetting = -1
Else
    $ShowTitleSetting = 1
EndIf


SplashImageOn($Title,$ImageFile,$ImageWidth,$ImageHeight,-1,-1,$ShowTitleSetting)
Sleep($ShowTime * 500)
SplashOff()

#region Functions
Func _GetConfigFile($filename,$silent = False)
    Local $configfilename
    $configfilename = @ScriptDir & "\" & $filename

    If Not FileExists($configfilename) Then
        If Not $silent Then
            MsgBox(16,"File Missing","The file " & $filename & " is not available." & @CRLF & "Please ensure that it is located in the " & @ScriptDir & " directory." & @CRLF & "The application will now exit.")
            Exit
        EndIf
        SetError(1)
        Return "Error"
    EndIf
    Return $configfilename
EndFunc
#endregion
While 1
    
    $Msg = TrayGetMsg()

    Switch $Msg
        Case $mnuZMWSStart
            ZMWSStart()

        Case $mnuZMWSStop
            ZMWSStop()
        
        Case $Appli            
         ShellExecute("http://127.0.0.1:9080/")     
      Case $AppliDirect           
         ShellExecute("http://127.0.0.1:9080/") 
      Case $Gmap          
         ShellExecute("http://depann49.free.fr/googlemap2.html")    


        Case $PHPMyAdmin            
         ShellExecute("http://127.0.0.1:9080/apanel/phpMyAdmin")                
        Case $PANELADMIN
            ShellExecute("http://127.0.0.1:9080/apanel/")   

        Case $mnuAbout
            Msgbox(64, "A propos...", "Depann49 Server Manager" & @CRLF & "Version AutoIt " & $AppVersion)

        Case $mnuQuit
            ZMWSStop()
            ExitLoop
    EndSwitch   
    


WEnd

Exit

;--------------------------------------------------------------------------------
; ZMWSStart : Start ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStart()
    Run($StartDP)
EndFunc


;--------------------------------------------------------------------------------
; ZMWSStop : Stop ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStop()
    Run($StopDP & " " & $ZMWSCmdLineStop)
EndFunc

[C3D]

Re moi ...

Apres moulte recherche j'ai trouvé ce code apparement cest pour la transformation d'un batch (.bat) a voir je vais essayé cela :

► Afficher le texte

Code : Tout sélectionner

$csFilesDir = ""

If @Compiled Then
    If $CMDLINE[0] = 0 Then
        MsgBox(48, @ScriptName, "No directory specified for csfiles" & @CRLF & @CRLF & "USAGE: " & @ScriptName & " ''csfilesdir''" & _
                @CRLF & @CRLF & "Where ''csfilesdir'' is the directory of csfiles to zip.")
    Else
        $csFilesDir = $CMDLINE[1]
    EndIf
Else
    $csFilesDir = FileSelectFolder("Select folder with csfiles to zip", "")
EndIf

Select
    Case $csFilesDir = ""
        ;If $csFilesDir = "" Then
        MsgBox(48, @ScriptName, "No directory specified for csfiles" & @LF & @LF & "Exiting...")
        Exit
        ;EndIf
    Case Not FileExists($csFilesDir) Or Not FileExists($csFilesDir & "\csfil*.dat")
        MsgBox(16, @ScriptName, "'' " & $csFilesDir & " ''" & @CRLF & @CRLF & "is not a valid folder for csfiles: no csfiles found" & @LF & @LF & "Exiting...")
        Exit
        Exit
    Case Else
        $csFilesDir = StringStripWS($csFilesDir, 3)
        _ZipCsFiles($csFilesDir)
EndSelect


Func _ZipCsFiles($csFilesDir)
    $csFilesDir = FileGetShortName($csFilesDir)
    If StringRight($csFilesDir, 1) = "\" Then $csFilesDir = StringTrimRight($csFilesDir, 1)

    $WinZipAddCmd = "c:\Program Files\winzip\wzzip -a"
    $ZipFileName = $csFilesDir & "\csfiles"
    $WinZipSfxCmd = "C:\Program Files\WinZip Self-Extractor\WZIPSE32.EXE -y -auto"
   

    If FileExists($ZipFileName & ".zip") Then FileDelete($ZipFileName & ".zip")
    MsgBox(0,"",$WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil001.dat")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil001.dat")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil002.dat")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil003.dat")
    ;etc
    ;etc
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil082.dat")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & "L:\MAGIC9\rs\csctlv94.mcf")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & "L:\MAGIC9\rs\csctlv94.mff")
    RunWait($WinZipSfxCmd & " " & $ZipFileName & " " & "-runasadmin -d c:\magic502\cs")
EndFunc   ;==>_ZipCsFiles

[C3D]

Ai je dit une bêtise ??

[Tlem]

Je pense que oui.
Il semble que ce script soit prévu pour compressé en zip des fichiers csfil00x.dat.

[C3D]

Ok et aucunes indications sur le comment que je peut faire??
J'en suis à plus 200 pages (sur les 400) sur le forum anglais et aucunes indications sur comment je peut réalisé cela, j'ai bien des scripts .au3 mais j'arrive pas à le faire ça plante à tous les coup, j'ai vraiment du mal a comprendre ce langage.

Merci

[Tlem]

Je vais essayer de vous mettre sur la voie, mais pour le moment j'ai un projet en cours et je doit finir rapidement (donc ça + le forum ...)

Dés que j'ai un moment je jette un oeil.

[C3D]

Je te remercie, ce code n'est pas pressé tous fonctionne niquel à l'heure actuelle avec les modifs que j'ai réussi a faire (reste la couleur, une image du tray et désactiver le bouton Démarrer quand le serveur est déja Démarrer) et j'en suis content, mais par la suite tous regroupé serai vraiment parfait.

Je te remercie par avance et bon courage pour ton boulot à faire:)

[Tlem]

Bon j'ai pris un peut de temps pour regarder, et voici un début de code pour votre transformer votre Batch en AutoIt (j'ai bien dit un début de code ... hein ...) :

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

    AutoIt Version : 3.3.0.0
    Auteur:         MonNom

    Fonction du Script :
    Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------


Global $sMsg, $Drive, $Mysql, $Console
Global $Dir = "C:\Rep1\Rep2\"

; Teste du nombre d'argument passer en commande (Si aucun, alors affichage de l'aide puis on quitte).
If $CmdLine[0] = 0 Then
    _Aide()
    Exit
EndIf

; Lecture des paramètres et mise en variable.
If $CmdLine[1] Then $Drive = $CmdLine[1]
If $CmdLine[2] Then $Mysql = $CmdLine[2]
If $CmdLine[3] Then $Console = $CmdLine[3]

; ## Bail out if UniControler running
If Not RunWait(@ComSpec & ' /c "' & $Dir & 'udrive\home\admin\program\pskill.exe" UniController.exe', "", @SW_HIDE) Then 
    $sMsg = "You are currently running UniController!" & @CRLF & @CRLF & @CRLF
    $sMsg = "Stop UniController if you wish to use batch file control."

    MsgBox(32, "UniControler", $sMsg)
    Exit
EndIf

; ## Has this Apache been started
if FileExists($Dir & "udrive\usr\local\apache2\logs\httpd.pid") Then _NOTSTARTED()

; ## It was started is it running
$Pid = FileRead($Dir & "udrive\usr\local\apache2\logs\httpd.pid")
If RunWait(@ComSpec & ' /c ' & 'netstat -anop tcp | FIND /I " ' & $pid & '"', "", @SW_HIDE) Then 
    ; ## Not shutdown using server_stop.bat hence delete files
    FileDelete($Dir & "udrive\usr\local\apache2\logs\httpd.pid")
    FileDelete($Dir & "udrive\usr\local\apache2\logs\drive.txt")
Else
    _RUNNING()
EndIf

_NOTSTARTED()


; ##############################################################
; ####################  Fonctions Diverses  ####################
; ##############################################################
Func _NOTSTARTED()
    ...
    ...
    ...
EndFunc

Func _RUNNING()
    ...
    ...
    ...
EndFunc

Func _Aide()
    ; On prépare le message d'aide dans une chaine.
    $sMsg = "Command line parameters:" & @CRLF
    $sMsg &= "Server_Start.bat %1 %2 %3" & @CRLF
    $sMsg &= "%1 = Drive letter to use 0 auto-detection" & @CRLF
    $sMsg &= "%2 = mysql (run MySql server) or nomysql (do not run MySql server)" & @CRLF
    $sMsg &= "%3 = console (Open a command prompt at folder MySQL Bin)" & @CRLF
    $sMsg &= "Note: If using %2 you must set a value for %1" & @CRLF
    $sMsg &= "Note: If using %3 you must set values for %1 and %2" & @CRLF
    $sMsg &= "Note: Default, auto-drive detection, runs Apache and MySQL servers no command prompt."

    ; On affiche le message d'aide.
    MsgBox(16, "Syntaxe", $sMsg)
EndFunc   ;==>_Aide

[C3D]

Salut a toi et merci du coup de pouce j'en ai trouvé plein mais aucuns ne fesais l'affaire on vas essayé comme cela

Encore merci

[Tlem]

Il va falloir finir de le développer, car j'ai compris une partie du batch, mais tout.
Et puis, c'est le temps qu'il manque ...

[C3D]

J'ai bien compris Tlem t'inquiète pas j'essaye cela , maintenant c'est pas dramatique si je ne m'en sort pas pour l'instant, je suis content déjà de mon appli telle quelle
Je commence à être fan de AutoIt la

Merci à toi

PS: J'ai trouvé cela qui ressemble à ce que j'ai fait mais il utilise ZazouMiniWebServer, et non Uniform Server, j'ai essayé ZMWS au début de mon projet mais il rame vachement contrairement à UServer

[C3D]

Résolu j'ai réussi a tous intégré a mon exe grace a cette page

@ plus