Encore un souci dans mon code pour le lancement de deux programmes
Les deux programmes au lancement se decompresse dans le temporaire de l'utilisateur, je viens de tester à distance sur un autre poste, et les fichiers sont bien présent, mais à l'execution, il indique qu'il n'existe pas ! Pourtant le chemin est bon (enfin je pense)
Pourriez vous m'aider ?
► Afficher le texte
Traytip ("Be patient...", "Copies dans le dossier temporaire", 200)
sleep(1000)
DirCreate(@tempdir & "\IXWAI\")
FileInstall("C:\Users\user\Desktop\IxWai\Verif.exe", @tempdir & "\IXWAI\Verif.exe", 1)
FileInstall("C:\Users\user\Desktop\IxWai\Permission.exe", @tempdir & "\IXWAI\Permission.exe", 1)
; Création de l'interface graphique
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\julien david\desktop\form1.kxf
Global $Form1_1 = GUICreate("IxWai By user", 320, 314, 192, 124)
Global $Group1 = GUICtrlCreateGroup("societe", 8, 8, 289, 273)
Global $Button1 = GUICtrlCreateButton("1. Lancement des prérequis", 40, 48, 217, 49)
Global $Button2 = GUICtrlCreateButton("2. Vérification des permissions", 40, 112, 217, 49)
Global $Button3 = GUICtrlCreateButton("3. Ajout site et raccourci", 40, 176, 217, 49)
Global $Button4 = GUICtrlCreateButton("Crédits", 248, 248, 41, 25)
Global $Button5 = GUICtrlCreateButton("Quitter", 16, 248, 41, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; Fin de création de l'interface graphique
; Evenement indiquant que si l'on clique sur la croix rouge de la GUI, on quitte le logiciel
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Lancement des prérequis si clique sur le second bouton
Case $Button1
Traytip ("Lancement des prérequis", "Cliquez sur le bouton Démarrer", 1000)
ShellExecute("Verif", " ", @tempdir & "\IXWAI\", " ")
; Lancement des vérifications si clique sur le deuxième bouton
Case $Button2
Traytip ("Lancement des vérifications", "Cliquez sur Yes/Oui", 1000)
ShellExecute("Permission", " ", @tempdir & "\IXWAI\", " ")
; Ajout en site de confiance et raccourcis sur le bureau
Case $Button3
Local $domain = "web.ixbus.net"
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" & $domain, "http", "REG_DWORD", 2)
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\microsoft.com", "http://web.ixbus.net")
;creation de l'icone de raccourci avec l'image de l'icone IE
Local $url = "http://web.ixbus.net"
Local $iconFile = @ProgramFilesDir & "\Internet Explorer\iexplore.exe"
Local $iconNumber = 0
FileCreateShortcut(@ProgramFilesDir & "\Internet Explorer\iexplore.exe", @DesktopDir & "\Ixbus Web.lnk", @ProgramFilesDir & "\Internet Explorer", $url, "", $iconFile, "", $iconNumber)
MsgBox(0, "Informations", "Ajouts effectués avec succès !")
; Crédits
Case $Button4
MsgBox(0, "****", @CRLF & "****" & @CRLF & "Mail : ****" & @CRLF & "Copyright 2013")
; Quitter
Case $Button5
Exit
EndSwitch
WEnd
sleep(1000)
DirCreate(@tempdir & "\IXWAI\")
FileInstall("C:\Users\user\Desktop\IxWai\Verif.exe", @tempdir & "\IXWAI\Verif.exe", 1)
FileInstall("C:\Users\user\Desktop\IxWai\Permission.exe", @tempdir & "\IXWAI\Permission.exe", 1)
; Création de l'interface graphique
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\julien david\desktop\form1.kxf
Global $Form1_1 = GUICreate("IxWai By user", 320, 314, 192, 124)
Global $Group1 = GUICtrlCreateGroup("societe", 8, 8, 289, 273)
Global $Button1 = GUICtrlCreateButton("1. Lancement des prérequis", 40, 48, 217, 49)
Global $Button2 = GUICtrlCreateButton("2. Vérification des permissions", 40, 112, 217, 49)
Global $Button3 = GUICtrlCreateButton("3. Ajout site et raccourci", 40, 176, 217, 49)
Global $Button4 = GUICtrlCreateButton("Crédits", 248, 248, 41, 25)
Global $Button5 = GUICtrlCreateButton("Quitter", 16, 248, 41, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; Fin de création de l'interface graphique
; Evenement indiquant que si l'on clique sur la croix rouge de la GUI, on quitte le logiciel
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Lancement des prérequis si clique sur le second bouton
Case $Button1
Traytip ("Lancement des prérequis", "Cliquez sur le bouton Démarrer", 1000)
ShellExecute("Verif", " ", @tempdir & "\IXWAI\", " ")
; Lancement des vérifications si clique sur le deuxième bouton
Case $Button2
Traytip ("Lancement des vérifications", "Cliquez sur Yes/Oui", 1000)
ShellExecute("Permission", " ", @tempdir & "\IXWAI\", " ")
; Ajout en site de confiance et raccourcis sur le bureau
Case $Button3
Local $domain = "web.ixbus.net"
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" & $domain, "http", "REG_DWORD", 2)
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\microsoft.com", "http://web.ixbus.net")
;creation de l'icone de raccourci avec l'image de l'icone IE
Local $url = "http://web.ixbus.net"
Local $iconFile = @ProgramFilesDir & "\Internet Explorer\iexplore.exe"
Local $iconNumber = 0
FileCreateShortcut(@ProgramFilesDir & "\Internet Explorer\iexplore.exe", @DesktopDir & "\Ixbus Web.lnk", @ProgramFilesDir & "\Internet Explorer", $url, "", $iconFile, "", $iconNumber)
MsgBox(0, "Informations", "Ajouts effectués avec succès !")
; Crédits
Case $Button4
MsgBox(0, "****", @CRLF & "****" & @CRLF & "Mail : ****" & @CRLF & "Copyright 2013")
; Quitter
Case $Button5
Exit
EndSwitch
WEnd
