De deux, su vous ne me faites pas confiance, voici le code de mon logiciel (déposé bientôt sous creative common)
Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Nettauto.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<Array.au3>
#include<FileListToArrayEx.au3>
#include <ImageSearch.au3>
Global $x1
Global $y1
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Opt("GUIOnEventMode", 1) ; Passe en mode événement
$mainwindow = GUICreate("Netauto", 633, 447, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetBkColor(0xC0C0C0)
$okbutton = GUICtrlCreateButton("Lance le processus", 247, 108, 147, 41, 0)
GUISetState(@SW_SHOW)
While 1
Sleep(1000) ; Boucle de d'attente
WEnd
Func OKButton()
; Note : Ici @GUI_CTRLID est égal à $okbutton,
; et @GUI_WINHANDLE est égal à $mainwindow
MsgBox(0, "GUI Event", "Vous avez appuyé OK !")
EndFunc
Func CLOSEClicked()
; Note : Ici @GUI_CTRLID est égal à $GUI_EVENT_CLOSE,
; et @GUI_WINHANDLE est égal à $mainwindow
MsgBox(0, "GUI Event", "Vous avez cliqué FERMER ! Sortie...")
Exit
EndFunc
Dim $Form1_AccelTable[2] = ["^g", $okbutton]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
$resolution_a = @DesktopHeight
$resolution_b = @DesktopWidth
FileDelete ( "C:\Windows\Prefetch\*.*" )
FileDelete ( "C:\Windows\Temp\*.*" )
FileDelete ( "C:\Documents and Settings\Administrateur\Local Settings\Temp\*.*" )
FileDelete ( "C:\Documents and Settings\Administrateur\Local Settings\Cookies\*.*" )
$AutoVBS=ShellExecute("delunistall.vbs")
If $AutoVBS=0 Then
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=None
MsgBox(0,"Erreur dans VBS-SCRIPT","Erreur dans l'exécution du fichier de suppression de 'uninstall'")
#EndRegion --- CodeWizard generated code End ---
EndIf
WinWaitActive ("Suppression des dossiers de d?sinstallation de hotfixes - Microsoft Internet Explorer")
WinSetState ("Suppression des dossiers de d?sinstallation de hotfixes - Microsoft Internet Explorer", "", @SW_MAXIMIZE)
$tolerance = 100;
$imagename = 'image1.JPG' ; Placez ici le nom de l'image à rechercher.
$searchimage = _ImageSearch($imagename, 1, $x1, $y1,$tolerance)
if $searchimage = 1 Then
MouseClick("left", $x1, $y1, 1)
endif
$imagename = 'image2.JPG' ; Placez ici le nom de l'image à rechercher.
$searchimage = _ImageSearch($imagename, 1, $x1, $y1,$tolerance)
if $searchimage = 1 Then
MouseClick("left", $x1, $y1, 1)
endif
WinWaitActive ("Windows Script Host")
Send ("{ENTER}")
;Fin de la suppression des Uninstall!
$ar_Array = _FileListToArrayEx ("c:\", "*.odt", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.temp", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.bak", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.wbk", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.odt", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.pif", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.chk", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.gid", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.bad", 0, "Temp", True)
FileDelete ($ar_Array)
$ar_Array = _FileListToArrayEx ("c:\", "*.old", 0, "Temp", True)
FileDelete ($ar_Array)
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=None
MsgBox(0,"Fin","La suppression des fichiers inutiles est finie!")
#EndRegion --- CodeWizard generated code End ---
Sleep ( 2000 )
Send ("{ENTER}")
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=None
MsgBox(0,"Début de l'analyse","L'ant-virus va etre démarré!")
#EndRegion --- CodeWizard generated code End ---
Sleep ( 2000 )
Send ("{ENTER}")
Run ( "C:\Program Files\AVG\AVG8\avgui.exe" )
WinSetState ("AVG Anti-Virus","",@SW_SHOW)
WinSetState ("AVG Anti-Virus","",@SW_MAXIMIZE)
Sleep ( 2000 )
ControlClick ( "AVG Anti-Virus", "Analyse de l’ordinateur", 33001)
MouseClick ( "left", 361, 207 )
Sleep ( 5000 )
WinSetState ("AVG Anti-Virus","",@SW_MINIMIZE)
$AVG=ProcessExists("avgscanx.exe")
While $AVG<>0
$AVG=ProcessExists("avgscanx.exe")
WEnd
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=None
MsgBox(0,"FIn de l'analyse","L'analyse de l'anti-virus est finie!")
#EndRegion --- CodeWizard generated code End ---
Sleep ( 2000 )
Send ("{ENTER}")
Je vous ai mis une version du logiciel sans la GUI car le bouton ok BUG... Si quelqu'un peut m'aider...
Et donc je vous demande vos infos antivirus à fin de pouvoir rendre mon logiciel plus accessible...
Voir ID au fond de l'image...
)
