digital-nation

Il arrive parfois qu’on doivent installer des logiciels sans interactions humaines… Cette méthode d’installation s’appelle « silent » ou « stealth ».

Pour ce faire, nous utilisons un fichier MSI… Nous savons que le MSI utilise le MSIExec… Logiciel de Microsoft pour installer ces dits logiciels est appelé « Microsoft Installer » (plus sympa aussi). Nous savons aussi ses paramètres et sa syntaxe :

msiexec /Option <Required Parameter> [Optional Parameter]

Install Options
</package | /i> <Product.msi>
Installs or configures a product
/a <Product.msi>
Administrative install - Installs a product on the network
/j<u|m> <Product.msi> [/t <Transform List>] [/g <Language ID>]
Advertises a product - m to all users, u to current user
</uninstall | /x> <Product.msi | ProductCode>
Uninstalls the product
Display Options
/quiet
Quiet mode, no user interaction
/passive
Unattended mode - progress bar only
/q[n|b|r|f]
Sets user interface level
n - No UI
b - Basic UI
r - Reduced UI
f - Full UI (default)
/help
Help information
Restart Options
/norestart
Do not restart after the installation is complete
/promptrestart
Prompts the user for restart if necessary
/forcerestart
Always restart the computer after installation
Logging Options
/l[i|w|e|a|r|u|c|m|o|p|v|x|+|!|*] <LogFile>
i - Status messages
w - Nonfatal warnings
e - All error messages
a - Start up of actions
r - Action-specific records
u - User requests
c - Initial UI parameters
m - Out-of-memory or fatal exit information
o - Out-of-disk-space messages
p - Terminal properties
v - Verbose output
x - Extra debugging information
+ - Append to existing log file
! - Flush each line to the log
* - Log all information, except for v and x options
/log <LogFile>
Equivalent of /l* <LogFile>
Update Options
/update <Update1.msp>[;Update2.msp]
Applies update(s)
/uninstall <PatchCodeGuid>[;Update2.msp] /package <Product.msi | ProductCode>
Remove update(s) for a product
Repair Options
/f[p|e|c|m|s|o|d|a|u|v] <Product.msi | ProductCode>
Repairs a product
p - only if file is missing
o - if file is missing or an older version is installed (default)
e - if file is missing or an equal or older version is installed
d - if file is missing or a different version is installed
c - if file is missing or checksum does not match the calculated value
a - forces all files to be reinstalled
u - all required user-specific registry entries (default)
m - all required computer-specific registry entries (default)
s - all existing shortcuts (default)
v - runs from source and recaches local package
Setting Public Properties
[PROPERTY=PropertyValue]

En règle générale nous avons donc la ligne de commande suivante

MSIEXEC.EXE /i INSTALL.MSI /qn

Cependant, et bien souvent, les utilisateurs ne sont pas adminstrateur de leurs postes. Et les applications se font de plus en plus lourde pour les distribuer à travers le réseau via des GPO.
Par là même il faut donc utiliser des droits d’un profil administrateur… Cela peut se faire de deux manières :
passage de paramètres à un fichier BATCH, les arguments sont stockés par exemple dans un exécutable (non visible à l’utilisateur donc) et transmis par %1 et %2 dans le BATCH…
utilisation de la commande RUNASWAIT d’AutoIT avec un chargement de profil :

RunAsWait($s_utilisateur, $s_reseau, $s_motdepasse, 4, "MSIEXEC.EXE /i INSTALL.MSI /qn", @ScriptDir, @SW_Hide)

L’installation continuera dès la fin de la commande. Il est tout aussi utile alors d’utiliser la commande ProgressSet afin de faire patienter l’utilisateur (il est toujours recommandé de ne pas faire d’autres actions lors d’une installation).

Dans la continuité, il faut changer les droits du dossier… Simplement avec script en MS-DOS.

Simple et efficace. Mais surtout convivial pour l’utilisateur : il ne se préoccupe pas de l’installation, tout se fait « automatiquement » avec le SI derrière

Il est parfois utile d'avoir la passerelle par défaut, que ce soit pour une installation logicielle, matérielle, ou tout autre objectif.

Mais comment déterminer celle-ci ?
Nous pouvons bien entendu le faire en VBS, mais aussi en AutoIt.

Exemple :

' VBS 
strComputer = "." 'pour l ordinateur
Set WshShell = WScript.CreateObject("WScript.Shell")
' Set strComputer = WshShell.Environment("VOLATILE").Item("CLIENTNAME") 'pour environnement virtuel

Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
   ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objAdapter in colAdapters
  If Not IsNull(objAdapter.DefaultIPGateway) Then
     For i = 0 To UBound(objAdapter.DefaultIPGateway)
        WScript.Echo "  Default gateway: " & objAdapter.DefaultIPGateway(i)
                If objAdapter.DefaultIPGateway(i) = "192.168.1.6" Then
                       WScript.Echo "Votre Gateway : " & DefaultIPGateway(i)
                End If
     Next
  End If
Next

Cela fonctionne à merveille. L'inconvéniant avec le VBS c'est les structures conditionnelles, et puis pourquoi le faire en VBS alors qu'on peux facilement le faire en AutoIt ?

Exemple :

Func _get_default_gateway()
    $output = _get_cmd_output("netstat -rn")
    $arr = StringSplit($output, "0.0.0.0", 1)
    $arr2 = StringStripWS($arr[3], 1)
    $arr2 = StringSplit($arr2, " ")
    Return $arr2[1]
EndFunc
Func _get_cmd_output($cmd)
    $cmd_timeout = 2000
    $pid = Run($cmd,@WorkingDir,@SW_HIDE,2)
    $timer = TimerInit()
    while (ProcessExists($pid))
        sleep(50)
        If TimerDiff($timer) > $cmd_timeout Then ProcessClose($pid)
    WEnd
    $output = StdoutRead($pid)
    Return StringStripCR($output)
EndFunc

Pour avoir la valeur, une simple boite de dialogue et le tour est joué :

Dim $i
$i = _get_default_gateway()
MsgBox(0, "","Votre passerelle : " & $i)

La structure conditionnelle (si plusieurs passerelles sont possible) est faisable hors de la fonction

Rare sont les fois où je répond par e-mail ou même que je répond par l'interface de mon blog à un problème de script dans AutoIt (ou même tout autre type de problème !). Toutefois ici la question était intéressant : comment mettre à jour une interface graphique ?

Je dirais simplement en utilisant la combinaison de GUICtrlSetData, GUICtrlRead, GUICtrlSetState ! Et pour pouvoir démontrer cela, pourquoi ne pas le faire :

• Cacher un contrôle : utilisation de GUICtrlSetState :
  

  GUICtrlSetState($lbl_LabelInvisible, $GUI_HIDE)
  

  
  
• Lire les données d'un contrôle : utilisation de GUICtrlRead :
  

  GUICtrlRead($btn_Test) = "M.A.J. Terminée"
  

  
  
• Définir les données d'un contrôle : GUICtrlSetData :
  

  GUICtrlSetData($btn_Test, "Exit")
  

  
  

Pour faire un décompte, il suffit donc d'appliquer ce qui est décrit ci-dessus et de l'inclure dans une boucle :

Dim $i
$i = 5
While $i > 0
GUICtrlSetData($btn_Test, "M.A.J. dans " & $i)
$i = $i - 1
Sleep(1000)
WEnd
If $i = 0 Then 
GUICtrlSetData($btn_Test, "M.A.J. Terminée")
EndIf

Vous pouvez aussi définir un style à un contrôle en utilisant l'apendice des styles étendus (exemple une couleur CUICtrlSetColor(controle,couleur)).

Le script complet :

#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$fm_MonInterface = GUICreate("Mon interface", 450, 245, -1, -1)
$btn_Test = GUICtrlCreateButton("Test", 320, 195, 120, 40, 0)
GUICtrlSetCursor ($btn_Test, 0)
$gp_MAJGUI = GUICtrlCreateGroup(" Mise à jour d'un interface graphique ", 10, 30, 430, 155)
$lbl_StatusInitial = GUICtrlCreateLabel("Status initial", 25, 55, 250, 20)
$lbl_LabelInvisible = GUICtrlCreateLabel("Label apparut pour la mise à jour. Le bouton Test à un décompte", 25, 105, 350, 20)
GUICtrlSetState($lbl_LabelInvisible, $GUI_HIDE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_Test
If GUICtrlRead($btn_Test) = "M.A.J. Terminée" Then
MsgBox(0, "Information", "La mise à jour de l'interface à déjà été effectuée")
GUICtrlSetData($btn_Test, "Exit")
Else 
If GUICtrlRead($btn_Test) = "Exit" Then Exit
_majCtrl()
EndIf
EndSwitch
WEnd

Func _majCtrl()
GUICtrlSetState($lbl_LabelInvisible, $GUI_SHOW)
GUICtrlSetData($lbl_StatusInitial, "Texte mis à jour et mis en rouge")
GUICtrlSetColor($lbl_StatusInitial, 0xff0000)
Dim $i
$i = 5
While $i > 0
GUICtrlSetData($btn_Test, "M.A.J. dans " & $i)
$i = $i - 1
Sleep(1000)
WEnd
If $i = 0 Then 
GUICtrlSetData($btn_Test, "M.A.J. Terminée")
EndIf
EndFunc

Alors qu'au niveau professionnel je cherchais un petit utilitaire pour changer rapidement et efficacement des sécurités et permissions d'un dossier je suis tombé sur une commande MS-DOS assez utile : CACLS.

Microsoft Windows XP [version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\Groumphy>cacls
Affiche ou modifie les listes de contrôle d'accès (ACL) des fichiers

CACLS nom_de_fichier [/T] [/E] [/C] [/G util:perm] [/R util [...]]
                     [/P util:perm [...]] [/D util [...]]
   nom_de_fichier  Affiche les ACL.
   /T              Modifie les ACL des fichiers spécifiés dans le
                   répertoire en cours et tous les sous-répertoires.
   /E              Édite l'ACL au lieu de la remplacer.
   /C              Continue la modification des ACL en ignorant les erreurs.
   /G util:perm    Donne à l'utilisateur spécifié les droits d'accès.
                   Perm peut être : R  Lecture
                                    W  Écriture
                                    C  Modification (en écriture)
                                    F  Contrôle total
   /R util         Retire les droits d'accès de l'utilisateur (avec /E).
   /P util:perm    Remplace les droits d'accès de l'utilisateur spécifié.
                   Perm peut être : N  Aucun
                                    R  Lecture
                                    W  Écriture
                                    C  Modification (en écriture)
                                    F  Contrôle total
   /D util         Refuse l'accès à l'utilisateur spécifié.
Des caractères génériques peuvent être utilisés pour préciser plusieurs
fichiers dans une commande. Vous pouvez spécifier plus d'un utilisateur dans
une commande.

Abréviations :
   CI - Héritage de conteneur (Container Inherit).
        Les répertoires héritent de l'entrée de contrôle d'accès.
   OI - Héritage d'objet (Object Inherit).
        Les fichiers héritent de l'entrée de contrôle d'accès.
   IO - Héritage uniquement (Inherit Only).
        L'entrée de contrôle d'accès ne s'applique pas au fichier ou
        répertoire en cours.

C:\Documents and Settings\Groumphy>

Cette commande permet donc d'être rapide et efficace dans une modification de permissions.

CACLS C:\Windows\Temps /E /G Groumphy:F

J'attire toutefois l'attention que tout ce qui est autre utilisateur autorisé avec l'argument /E est littéralement supprimé.

De fait, il est préférable d'utiliser l'argument /T sur un utilisateur présent afin de conserver les propriétés existantes.
De ce fait, il est préférable de d'abord rajouter l'utilisateur (avec l'argument /G comme montré ci-dessus) puis de les éditer (avec /T en argument).

CACLS C:\Windows\Temps /T /G Groumphy:W
CACLS C:\Windows\Temps /T /G Groumphy:F

Bien entendu tout cela doit être exécuté en mode administrateur... Petit inconvénient toutefois la commande RUNAS qui exécute en mode administrateur (par exemple) doit avoir les mots de passe et login ; mais inscrit en clair !

Pas très drôle.
Alors il est parfois utile de constituer un petit script AutoIt permettant de donner en paramètres les mots de passe et login... Ce qui ne sera jamais affiché en clair pour l'utilisateur !

; Auteur : Groumphy 
; Licence : CC-Share-Alike 2.0 
; 2008

Dim $s_Login, $s_Mdp
$s_Login = InputBox("Nom d'utilisateur", "Quel est le nom d'utilisateur pour l'exécution du script ?")
$s_Mdp = InputBox("Mot de passe", "Quel est le mot de passe pour l'exécution du script (rappel : nom d'utilisateur = " & $s_Login)
RunWait(@ScriptDir & "nomDuScript.bat" & $s_Login & " " & $s_Mdp, @ScriptDir)
Exit

Alors maintenant il faut bien entendu modifier le script. Ou plutôt de rajouter une petite ligne :

RUNAS /USER:%1@MONDOMAINE:%2
REM %1 = login
REM %2 = mot de passe

Plus simple... Et surtout les scripts sont réutilisable.

P.S. : fait à chaud... Je n'ai pas testé ! Si des erreurs subsistent n'hésitez pas !

Pourquoi n'y ai-je pas pensé avant ?

#Include <IE.au3>

Dim $s_iptBox
$s_iptBox = InputBox("Recherche Google","Que désirez-vous chercher sur Google ?")
_GoogleSearch($s_iptBox)
Exit

Func _GoogleSearch($strSearch)
    Local $o_IE
    $strSearch = StringReplace($strSearch," ","+")
    $o_IE = _IECreate ("http://www.google.com/search?hl=en&q=" & $strSearch)
EndFunc

Simple, mais plutôt efficace.

Dans un réseau d’entreprise, il n’est pas rare qu’on utilise encore les script en MS-DOS pour installer une imprimante. Cela se fait grâce à l’utilitaire Con2Prt.exe de Microsoft.

Il suffit alors de composer un petit script dans le style :

REM DEFINITION DES VARIABLES
SET PRTSRV=NOMSERVERIMPRESSION
SET PRTSRVBCK=NOMSERVERIMPRESSIONBACKUP
CHANGE CLIENT /DEFAULT_PRINTERS
REM SUPPRESSION IMPRIMANTE
%LOGONSERVER%\NETLOGON\CON2PRT.EXE /F
IF %CLIENTNAME%==NOMDELASTATION Goto NOMSIGNET
:AUTRES
%LOGONSERVER%\NETLOGON\CON2PRT.EXE /CD \\%PRTSRV%\NOMDEPARTAGE
GOTO END
:NOMSIGNET
%LOGONSERVER%\NETLOGON\CON2PRT.EXE /CD \\%PRTSRV%\NOMDEPARTAGE
GOTO END
:END

EXIT

Toutefois il y a moyen de faire cela plus sympathiquement : j’entend en AutoIt…
Passons en revue deux manières simples.
La première est d’utiliser similairement l’application CON2PRT.EXE de Microsoft, la seconde la DLL permettant l’installation d’une imprimante réseau : PRINTUI.DLL.

Vu que nous pouvons tout aussi bien utiliser le nom de la machine ou le nom d’utilisateur, et vu que j’ai déjà présenté dans le script MS-DOS que c’était le nom de la machine, changeons cela avec le nom d’utilisateur.
Décentralisons nos informations dans un fichier INI tel :

[SERVERS]
PRINTSERVER=NomDuServerImpression
LOGONSERVER=LogonServer
[USERNAME]
GROUMPHY=Imprimante1|Imprimante2
GROUMPHY2=0

Groumphy et Groumphy2 sont les noms d’utilisateurs standards…
Enregistrons ce fichier.
Commençons par définir ce fichier en variable.

Global Const $s_INI = "InstImpNetLogon.ini"

Si nous utilisons CON2PRT.EXE rajoutons pourquoi pas :

Global Const $s_C2P = "con2prt.exe"

Rajoutons une structure pour pouvoir vérifier la présence de nos fichiers nécessaire :

Func _test()
            If NOT FileExists(@ScriptDir & "\" & $s_INI) Then _error($s_INI)
            If NOT FileExists(@ScriptDir & "\" & $s_C2P) Then _error($s_C2P)
EndFunc
Func _error($param1)
            MsgBox(0 + 16, "Error", "Fatal Error. Application 'Core' File Not Found." & @CR & _
                                                                                  "Error Code : " & @ScriptLineNumber & @CR & _
                                                                                  "File Code : " & $param1 & " not found." & @CR & @CR & _
                                                                                  "Please contact your System Administrator",10)
            Exit
EndFunc

Avant de commencer il est bon de supprimer toutes les imprimantes (identiquement à notre script MS-DOS).

Func _deletePrt()
            RunWait(@ScriptDir & "\" & $s_C2P & " /f")
EndFunc

Et de poser les variables :

Global Const $s_PrtServer = IniRead($s_INI, "SERVERS", "PRINTSERVER", "")
Global Const $s_LogonServer = IniRead($s_INI, "SERVERS", "LOGONSERVER", "")
Dim $s_UserName, $s_iniRead, $s_Compteur
            $s_UserName = @UserName
            $s_iniRead = IniRead($s_INI, "USERNAME", $s_UserName, "")
            $s_iniRead = StringSplit($s_iniRead, "|")

Parfais. La structure de base est en place.
Comme vous pouvez le constater dans le fichier INI j’ai mis « 0 » pour l’utilisateur Groumphy2. « 0 » m’indique que je ne dois pas installer d’imprimante.
Faisons une petite structure conditionnelle de ce type alors :

If $s_iniRead[1] = 0 Then
            MsgBox(0 + 64, "Information", "No printers to install... Exit of script.", 10)
            Exit
EndIf

Mais si nous devons installer des imprimantes, il nous faut une boucle permettant de faire cela :

$s_Compteur = 0
Do
            $s_Compteur = $s_Compteur + 1
            _installPrt($s_iniRead[$s_Compteur])
Until $s_Compteur = $s_iniRead[0]

Dans cette boucle, j’appele la function _installPrt que voiçi :

Func _installPrt($param2)
            RunWait("\\" & $s_LogonServer & "\" & $s_C2P & " /c " & "\\" & $s_PrtServer & "\" & $param2)
EndFunc

Et il ne faut rien de plus.

Pour maintenant rajouter un nouvel utilisateur nous n’aurons plus qu’à changer le fichier INI.

Nous avons aussi la possibilité de définir l’imprimante par défaut. Pour ce faire il suffit de rajouter une structure conditionnelle dans la fonction _installPrt pour que la première imprimante prise dans la zone de mémoire soit celle par défaut (installable avec /CD en place de /C).

Pour installer l’imprimante avec PRINTUI.DLL nous ferons exactement de même… Sauf que nous aurons la commande suivante :

$comm = RunWait("rundll32 printui.dll,PrintUIEntry /in /q /n\\" & $s_PrtServer & "\" & $param2, "", @SW_HIDE)

Plus simple, nous ne pouvons le faire. Cela fonctionne correctement en pratique…

A l'image d'un site internet, une interface graphique doit pouvoir facilement se manipuler au clavier.
Il existe donc quelques trucs et astuces de pouvoir intégrer dans votre interface graphique des « clés d'accès », des ordres de tabulations etc.

Les différents contrôles permettant d'être activés au clavier sont les suivants : GUICtrlCreateMenu (pour la création d'un menu), GUICtrlCreateMenuItem (pour un élément d'un menu précédemment créé), GUICtrlCreateRadio, GUICtrlCreateTab (pour l'interface contenant les tabulations), GUICtrlCreateTabItem (pour les différents éléments de tabulation), GUICtrlCreateButton et GUICtrlCreateCheckBox.

Par la suite dans l'interface graphique il y a moyen de déterminer un ordre de tabulation sur les contrôles.

Voyons comment faire en détail :

$filemenu = GUICtrlCreateMenu ("&File")
$fileitem = GUICtrlCreateMenuitem ("&Open",$filemenu)

Cela se fait simplement et uniquement via l'esperluette ! En effet, identiquement au Visual Basic, Visual Basic for Application, la clé ou l'entrée d'accès au contrôle se fait de manière identique. Il faudra pour l'avoir (par exemple ci-dessus le menu) pousser sur la touche Alt de votre clavier qui mettra en valeur (soulignement) les lettres permettant l'accès à la touche, au bouton, au menu etc.

Concernant l'ordre de tabulation, il est paramétrable dans le Koda Interface Designer... Lorsque vous éditez les propriétés ou lorsque votre interface utilisateur (GUI) contenant les contrôles est terminée, faîtes-y un simple clic avec le bouton droit de la souris et choisissez l'option Tab Order.

Pourquoi créer une telle opérationnalité ? Comme vous le savez la rapidité du clavier n'est plus à démontrer, cela donnera un gain de rapidité ; mais aussi du professionnalisme à votre interface de script / application. Mais le plus important reste l'utilisabilité ainsi que l'accessibilité de celle-ci... Votre but premier.

Je l'avais promis, voici le « feedback » du pourquoi du comment que j'utilise AutoIt.

Le but initial était d'avoir un langage de script performant et non dépendant de l'éditeur du système d'exploitation Microsoft (sinon j'aurais pris VBS) afin d'automatiser simplement certaines actions sur le PC, le réseau, l'AD.

J'ai bien entendu cherché divers languages (aussi au niveau BATCH), mais je suis rapidement tombé sur le charme de AutoIt car il permettais non seulement d'être son propre language, mais aussi de la combiner avec d'autres (notament le VBS, les DLL et les ActiveX).

Je l'ai donc installé sur un PC portable de type ACER 1700 sous Microsoft Windows XP et l'installation s'est déroulée sans incident particulier. D'ailleur les installeurs sont fait via des logiciels libres (NSIS de NullSoft). Le language se « décompose » en 3 ou 5 paquets selon ce que l'on désire : le language seul (version production et beta) avec son éditeur (SciTE), le language (production et beta), l'éditeur (SciTE), le CVS (CVSWrapper Add-on) accompagné de Tortoise et le dernier package WinMerge qui permet de faire les comparaisons de fichiers.
J'ai choisis en premier temps la « version 3 paquets », et suis passé rapidement à la version 5 paquets car je la trouvais très pratique !

L'éditeur SciTE remplit parfaitement son role avec une aide syntaxique, une aide (fichier CHM) relié à la touche F1, etc. et se montre très (voir trop) complet (mais c'est aussi personnalisable). Bien entendu les autres logiciels sont parfaitement intégré et s'ouvrent en nouvelle fenêtre ; un petit inconvéniant toutefois devant la multitude de fenêtre.

Il a parfaitement remplis ses fonctions jusqu'à maintenant mais les a aussi remarquablement dépassé car dans sa v3 (actuelle) il permet d'avoir des GUI et donc de faire des applications complètes (exécutable etc.).

Je le considère donc autrement qu'un language script mais bien comme un language complet ! Et je ne compte pas m'en séparer de si tôt !

Alors que je m’amuse à développer un script d’installation automatisé pour ZazouMiniWebServer, je me dis que je peux faire partager celui-ci déjà avancé principalement sur les fonctions opérationnelles.

Nous partons alors du principe que les fichiers se trouvent sur un serveur distant, sous la même arborescence qu’il devrait se trouver afin de la reconstruire sur le PC. Bien entendu vous vous douter que ceci ne fonctionne que pour les applications indépendantes (application portable ou « standalone »).

Continuons. Après avoir hébergé votre application sous la même structure sur un espace Web, il faut maintenant que celle-ci se télécharge dans un dossier choisis par l’utilisateur tout en recréant la même structure.

Zen.

Alors je pense que la première chose que je ferais ce serait une petite GUI toute simple :

#Region ### START Koda GUI section ### Form=
$gui_Installation = GUICreate("Installation de ZLAAM", 355, 135, -1, -1)
$gp_SelectionDossier = GUICtrlCreateGroup(" Dossiers : ", 10, 16, 335, 73)
$btn_Dossier = GUICtrlCreateButton("&Dossier...", 230, 41, 110, 31, 0)
$lbl_Dossier = GUICtrlCreateLabel("Sélectionnez le dossier de téléchargement", 20, 48, 203, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$btn_Installer = GUICtrlCreateButton("&Installer", 230, 96, 110, 31, 0)
GUISetState(@SW_SHOW, $gui_Installation)
#EndRegion ### END Koda GUI section ###

Par la suite, je ferais la boucle d’affichage :

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exitScript(); Sortie du script
Case $btn_Dossier
choixDossier() ; définition du choix de dossier de l'installation
Case $btn_Installer
GUISetState(@SW_HIDE, $gui_Installation); Je cache la GUI
verifierDossier(); Vérification de la variable $u_DossierSelect
creationStructure() ; Création de la structure des répertories
verificationConnexion() ; Lancement de la vérification de connexion
telechargementComposant(); Lancement du téléchargement des différents composants
EndSwitch
WEnd
Exit

Et enfin les différentes fonctions.
Evidement une des premières fonctions à créer est le test de la connexion :

Func verificationConnexion()
ProgressSet(4, "Vérification de la connexion", "Téléchargement")
Dim $s_Ping
Sleep(1000)
$s_Ping = Ping("www.google.com", 1000)
If NOT $s_Ping Then
Dim $s_MsgPing
$s_MsgPing = MsgBox(4+32, "Information", "La vérification de la connexion semble avoir échoué, " & @CR & _
"Vérifier si vous êtes connecté et si votre pare-feu permet l'accès au réseau ; " & @CR & _
"Désirez-vous continuer ?")
If $s_MsgPing = 7 Then
abandonProcedure()
EndIf
Else
ProgressSet(4, "Connexion réussie")
Sleep(1000)
EndIf 
EndFunc

Par la suite une simple petite routine pour avoir le chemin de téléchargement et d’installation :

Func telechargementFichier($s_URIpath, $s_nomFichier, $s_pc)
Dim $s_tailleFichier, $s_URIcomplete, $s_cheminComplet
MsgBox(0, "", "Track : entrée fonction Func telechargementFichier" & @CR & _
"$s_URIpath = " & $s_URIpath & @CR & _
"$s_nomFichier = " & $s_nomFichier & @CR & _
"$s_pc = " & $s_pc)
$s_URIcomplete = $s_URI & $s_URIpath & $s_nomFichier
MsgBox(0, "", "Track : $s_URIcomplete = " & $s_URIcomplete)
$s_cheminComplet = $u_DossierSelect & "\" & StringReplace($s_URIpath, "/", "\", 0, 1) ;& $s_nomFichier
;$s_tailleFichier = InetGetSize($s_URI & $s_URIpath & $s_nomFichier); Taille du fichier à télécharger
$s_tailleFichier = InetGetSize($s_URIcomplete)
;MsgBox(0, "", "Track $s_tailleFichier = " & $s_tailleFichier & @CR & _; Tracking d'information
;"Chemin : " & $s_URI & $s_URIpath & $s_nomFichier)
MsgBox(0, "", "Track $s_tailleFichier = " & $s_tailleFichier & @CR & _
"Chemin : " & $s_URIcomplete)
If $s_tailleFichier = 0 Then; si la taille est égale à 0 alors erreur
Dim $s_msgTailleFichier
$s_msgTailleFichier = MsgBox(4+32, "Information","Un problème semble être rencontré pour le téléchargement" & @CR & _
"du fichier " & $s_nomFichier & ", désirez-vous continuer ?")
If $s_msgTailleFichier = 7 Then
MsgBox(0+16, "Erreur", "Abandons de procédure par action utilisateur ; " & @CR & _
"Veuillez reporter l'erreur suivante sur les forums : " & @CR & _ ;"Func telechargementFichier(" & $s_URIpath & "/" & $s_nomFichier & "/" & $s_pc & _
"Func telechargementFichier(" & $s_URIcomplete & " / % " & $s_pc & _
"sur la ligne " & @ScriptLineNumber & " ERROR InetGetSize = 0")
abandonProcedure()
EndIf
EndIf
;$s_destination = $u_DossierSelect & "\" & StringReplace($s_URIpath, "/", "\", 0, 1) ; Remplacement des / par \
;MsgBox(0, "", "Track $s_destination = " & $s_destination); Tracking d'information
MsgBox(0, "", "Track $s_destination = " & $s_cheminComplet)
;If NOT FileExists($s_destination) Then ; vérification de l'existance de l'arborescence
If NOT FileExists($s_cheminComplet)Then
Dim $s_msgDestination
$s_msgDestination = MsgBox(4+32, "Erreur", "Il semble que la structure de téléchargement ne soit pas correcte," & _
@CR & "Désirez-vous continuer ?")
If $s_msgDestination = 7 Then
MsgBox(0+16, "Erreur", "Abandons de procédure par action utilisateur ; " & @CR & _
"Veuillez reporter l'erreur suivante sur les forums : " & @CR & _
"Func telechargementFichier(" & $s_cheminComplet & "/ % " & $s_pc & _
"sur la ligne " & @ScriptLineNumber & " ERROR FileExists = -1 => " & $s_cheminComplet)
abandonProcedure()
EndIf
EndIf
;$s_destination = $s_destination & $s_nomFichier
;MsgBox(0, "", "Track $s_destination (2) = " & $s_destination) ; Tracking d'information
$s_cheminComplet = $s_cheminComplet & $s_nomFichier
MsgBox(0, "", "Track $s_destination (2) = " & $s_cheminComplet)

;$s_URIpath = $s_URI & $s_URIpath & $s_nomFichier
;MsgBox(0, "", "Track $s_URIpath (full) = " & $s_URIpath) ; Tracking d'information
MsgBox(0, "", "Track $s_URIpath (full) = " & $s_URIcomplete) 

; Reprise totale des variables
MsgBox(0, "", "Track" & @CR & @CR & _
"$s_URIcomplete = " & $s_URIcomplete & @CR & _
"$s_cheminComplet = " & $s_cheminComplet & @CR & _
"$s_tailleFichier = " & $s_tailleFichier & @CR)

InetGet($s_URIcomplete, $s_cheminComplet, 1, 1); Téléchargement du fichier
While @InetGetActive; Téléchargement actif
ProgressSet($s_pc, "Téléchargement " & $s_nomFichier & "(" & _; Mise à jour du Progress
@InetGetBytesRead & "/" & $s_tailleFichier & " bytes)")
Sleep(250); Attente
WEnd
EndFunc

Le tour est joué.
Bientôt le script en entier…

Premier article

Read more...

Un fonction génératrice de clé

Read more...

ZMWS & ZLAM

Alors que je continue le développement script d'un controleur du serveur web ZazouMiniWebServer, ce dernier viens de sortir en version 1.2.2 stable !

Couplé à PHP, MySQL, il permet d'avoir un environnement web complet pour moins de 10Mb.

Quant au controleur il fait moins de 500Ko, graphiques compris. Il en est à la version 0.4 Alpha et semble correctement fonctionner.

Envie d'en savoir plus ? Visitez les forums ZMWS !