Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] GAO By Sydney - By Laddy
Auteur Message
Répondre en citant
Message [Prog] GAO By Sydney - By Laddy 
Bonjour

v1.4

GetOut Antivirus est un programme développé par Sydney en batch à l'origine afin de parfaire mon apprentissage, j ai crée cette interface en autoit.

Le programme est disponible en deux langues : français et anglais uniquement, il reste encore à traduire les différents contenus des boutons et à modifier la popup Historique de l outil
Les icones sont temporaires le temps de faire mieux Razz




Ajout de l'executable de désinstallation de l'antivirus Avira Antivir.

Télécharger l executable compilé : http://www.box.com/s/8d8kjt15vvxidedn1ifn

Correction :
Bug de l'affichage des icones.

Prochaine version :
Amélioration possible :

Détection de l'antivirus installé via le registre
Décompression du désinstalleur nécessaire uniquement pour la suppression.

Code:

DirCreate(@tempdir & "\GAO\tmp\")
FileInstall("C:\Users\Cari\Desktop\GAO\avastclear.exe", @tempdir & "\GAO\tmp\avastclear.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\avgremover.exe", @tempdir & "\GAO\tmp\avgremover.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\avgremoverx64.exe", @tempdir & "\GAO\tmp\avgremoverx64.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\avira_registry_cleaner_en.exe", @tempdir & "\GAO\tmp\avira_registry_cleaner_en.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\cleanwipe.exe", @tempdir & "\GAO\tmp\cleanwipe.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\esetuninstaller.exe", @tempdir & "\GAO\tmp\esetuninstaller.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\kavremover.exe", @tempdir & "\GAO\tmp\kavremover.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\mcafeecleanuptool.exe", @tempdir & "\GAO\tmp\mcafeecleanuptool.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\normanviruscontrolclean.exe", @tempdir & "\GAO\tmp\normanviruscontrolclean.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\nortonremovaltool.exe", @tempdir & "\GAO\tmp\nortonremovaltool.exe")
FileInstall("C:\Users\Cari\Desktop\GAO\pandauninstaller.exe", @tempdir & "\GAO\tmp\pandauninstaller.exe")
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ICO\uninstall.ico
#AutoIt3Wrapper_outfile=GAO.exe
#AutoIt3Wrapper_Res_File_Add=C:\Users\Cari\Desktop\GAO\uninstall.jpg, rt_rcdata, LOGO
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <FileListToArray3.au3>
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#include <IE.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <StructureConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <resources.au3> ; INTEGRATION DES RESSOURCES IMAGES :D La placer dans ton dossier include autoit


#cs ----------------------------------------------------------------------------
   AutoIt Version : 3.3.6.0
   Auteur du code source de base :  Laddy
   Fonction du Script : Désinstalleur d'antivirus
   Adaptation du script de Sydney en batch : http://batch.xoo.it/t2221-GAO-3-4.htm
   Merci Tommyddr pour son exemple Loadicon.au3
        Merci Mikell
        Merci Topxm pour la correction
#ce ----------------------------------------------------------------------------


Opt("GUIOnEventMode", 1) ; evenementiel pour créer l'action de chaque bouton avec une fonction. Pratique lors de multigui.
;déclaration des variables
Global $Path = @TempDir & "\GAO\tmp\";@ScriptDir
Global $Gui
Global $lview
Global $items[1] ; création d'un tableau
Global $version = "1.0.4"
Local $color = 0xFFFFFF

Global $Lang = @OSLang
If $Lang = "040C" Then ; pour mettre en français retirer le not
   Dim $aLang[7] = [5, "GAO par -Sydney - Version ", "Désinstalleur", "Quitter", "Historique", "Aide", "Choisir le désinstalleur de votre antivirus"]
Else
   Dim $aLang[7] = [5, "GAO By -Sydney - Version ", "Uninstaller", "Quit", "History", "Help", "Choose Your Antivirus Uninstaller"]
EndIf

;~ Variables liées au GUI Historique
Global Const $NomApplication = "GAO - GetOutAntivirus"
Global $version = "1.0.4"
Global $FormAbout
Global $FormAboutCoords
Global $FormAboutOK
Global $FormAboutActiveX
Global $FormAboutIE
Global $FormAboutHTML
Global $Form1_1
GUIRegisterMsg($WM_NOTIFY, "DoubleClick") ; pour gérer le double-clic

Global $Gui = GUICreate($aLang[1] & $version, 458, 295, 201, 130)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
$backgroundColor = GUISetBkColor($color, $Gui)
Global $Group1 = GUICtrlCreateGroup($aLang[6], 8, 8, 329, 280)
Global $lview = GUICtrlCreateListView("", 15, 34, 313, 245)
_GUICtrlListView_AddColumn($lview, $aLang[2], 200)
_GUICtrlListView_AddColumn($lview, "Version", 95)
_GUICtrlListView_SetExtendedListViewStyle($lview, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
$hImages = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImages, @SystemDir & "\shell32.dll", -3)
_GUICtrlListView_SetImageList($lview, $hImages, 1)
Global $Help = GUICtrlCreateButton($aLang[5], 360, 13, 75, 25)
GUICtrlSetOnEvent($Help, "Aide")
Global $Thanks = GUICtrlCreateButton("Crédits", 360, 51, 75, 25)
GUICtrlSetOnEvent($Thanks, "Thx")
Global $Historique = GUICtrlCreateButton($aLang[4], 360, 202, 75, 25)
GUICtrlSetOnEvent($Historique, "historique")
Global $Quitter = GUICtrlCreateButton($aLang[3], 360, 240, 75, 25)
GUICtrlSetOnEvent($Quitter, "quit")
Global $Pic1 = GUICtrlCreatePic("", 352, 96, 89, 89, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
_ResourceSetImageToCtrl(-1, "LOGO")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Local $Files = _FileListToArray3($Path, "*.exe", 1, 0, 0, "GAO.exe") ; liste les exe contenu dans le dossier execpté GAO.exe
For $i = 1 To $Files[0]
    Local $image = AddIconByFileName($hImages, $Path &  $Files[$i]) ; ajoute l image via la fonction
    Local $item = _GUICtrlListView_AddItem($lview, $Files[$i], $image, 0) ; affiche l image dans la colonne 0
    Local $item2 = _GUICtrlListView_AddSubItem($lview, $item, FileGetVersion($Path  & $Files[$i]), 1) ; affiche le num de version dans la colonne 1
Next


While 1
   ; Sleep(10)
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $Help
         Aide()
      Case $Thanks
         Thx()
      Case $Quitter
         quit()
   EndSwitch
WEnd

Func AddIconByFileName($hImages, $FileName)
   If (StringInStr(FileGetAttrib($FileName), "D")) Then
      $image = _GUIImageList_AddIcon($hImages, @SystemDir & "\shell32.dll", -4) ;Il vaut mieux extraire ca dans une variable globale pour ne pas la recréer à chaque passage.
   Else
      Local $Ext = GetExtension($FileName)
      Local $image
      If ($Ext = "ico") Then
         $image = _GUIImageList_AddIcon($hImages, $FileName)
      Else
         Local $Registre = GetNomIconByExt($Ext)
         If (Not (FileExists($Registre[0]))) Then
            $Registre[0] = @SystemDir & "\" & $Registre[0]
         EndIf
         If (Not (FileExists($Registre[0]))) Then
            $Registre[0] = _WinAPI_FindExecutable($FileName)
            $Registre[1] = 0
         EndIf
         $image = _GUIImageList_AddIcon($hImages, $Registre[0], $Registre[1])
         If ($image = -1) Then
            If ($Ext = "exe") Then
               $image = _GUIImageList_AddIcon($hImages, @SystemDir & "\shell32.dll", -3) ;Il vaut mieux extraire ca dans une variable globale pour ne pas la recréer à chaque passage.
            Else
               $image = _GUIImageList_AddIcon($hImages, @SystemDir & "\shell32.dll", 0) ;Il vaut mieux extraire ca dans une variable globale pour ne pas la recréer à chaque passage.
            EndIf
         EndIf
      EndIf
   EndIf
   Return $image
EndFunc   ;==>AddIconByFileName

Func GetExtension($Path)
   Local $Ext = StringSplit($Path, ".", 3)
   Return $Ext[UBound($Ext) - 1]
EndFunc   ;==>GetExtension

Func GetNomIconByExt($Ext)
   Local $Retour[2] = [-1, -1]
   Local $Nom = RegRead("HKEY_CLASSES_ROOT\." & $Ext, "")
   Local $NomIcon = RegRead("HKEY_CLASSES_ROOT\" & $Nom & "\DefaultIcon", "")
   If (Not (@error)) Then
      $NomIcon = StringSplit($NomIcon, ",", 3)
      $Retour[0] = GetStringByEnv($NomIcon[0])
      If (UBound($NomIcon) > 1) Then
         $Retour[1] = $NomIcon[1]
      Else
         $Retour[1] = 0
      EndIf
   Else
      $NomIcon = RegRead("HKEY_CLASSES_ROOT\" & $Nom & "\shell\open\command", "")
      If (Not (@error)) Then
         $NomIcon = StringSplit($NomIcon, """", 3)
         If (UBound($NomIcon) > 1) Then
            $Retour[0] = GetStringByEnv($NomIcon[1])
         Else
            $Retour[0] = GetStringByEnv($NomIcon[0])
         EndIf
         $Retour[1] = 0
      EndIf
   EndIf
   Return $Retour
EndFunc   ;==>GetNomIconByExt

Func GetStringByEnv($Path)
   Local $ExpandEnvStrings = Opt("ExpandEnvStrings", 1)
   Local $Return = $Path
   Opt("ExpandEnvStrings", $ExpandEnvStrings)
   Return $Return
EndFunc   ;==>GetStringByEnv

Func quit()
   Exit
EndFunc   ;==>quit

Func DoubleClick($hWnd, $iMsg, $iwParam, $ilParam)
   Local $tagNMHDR = "hwnd hWndFrom;uint_ptr IDFrom;INT Code"
   Local $hWndFrom, $iIDFrom, $iCode, $hWndList
   $hWndList = $lview
   If Not IsHWnd($lview) Then $hWndList = GUICtrlGetHandle($lview)
   $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
   $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
   $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
   $iCode = DllStructGetData($tNMHDR, "Code")
   Switch $hWndFrom
      Case $hWndList
         Switch $iCode
            Case $NM_DBLCLK
               $indexLV = ControlListView($Gui, "", $hWndList, "GetSelected") ; récupère l'index de la ligne
               $itemtxt = ControlListView($Gui, "", $hWndList, "GetText", $indexLV, 0) ; récupère le texte de la ligne, colonne 1
               $FichierSelectionne = $itemtxt ; ^^
               ;msgbox(0,"",$Path &"\"&$FichierSelectionne)
               Run(@ComSpec & " /k " & '"' & $Path & "\" & $FichierSelectionne & '"', "", @SW_HIDE)
               ; Exit
         EndSwitch
   EndSwitch
   Return $GUI_RUNDEFMSG
EndFunc   ;==>DoubleClick
Func Aide()
   MsgBox(0, "Instructions", "Effectuez un double-clic sur le programme à désinstaller." & @CRLF & " " & @CRLF & "Boutons Aide = Accéder à l'aide" & @CRLF & "Bouton Crédits = Accéder aux remerciements" & @CRLF & "Bouton Historique = Accéder à l'historique du logiciel" & @CRLF & "Bouton Quitter = Sortir du logiciel")
EndFunc   ;==>Aide

Func Thx()
   MsgBox(0, "Crédits", ".:Thanks to Laddy (4 CS) :." & @CRLF & ".:Thanks to TommyDDR (4 UDF):." & @CRLF & " " & @CRLF & "    Version 4.1" & @CRLF & "    By -Sydneysyd-")
EndFunc   ;==>Thx

Func historique()
   $FormAboutIE = _IECreateEmbedded() ; On Prépare un IE
   $FormAbout = GUICreate("Changelog", 510, 355, -1, -1, $DS_MODALFRAME, -1, $Form1_1) ; et un GUI
   $FormAboutOK = GUICtrlCreateButton("Sortir", 210, 290, 90, 30) ; un boutton pour ressortir
   GUICtrlSetOnEvent($FormAboutOK, "Sortir")
   GUISetBkColor(0xFFFFFF)
   $FormAboutHTML = "<html><head></head><body bgcolor=#ffffff>" & @CR _
          & "<table border=0 cellspacing=0 cellpadding=0 width=489 bgcolor=#ffffff><tr>" & @CR _
          & "<td width=163>&nbsp;</td>" & @CR _
          & "<td width=163><p align=center><b><u><span style='font-size:12pt;font-family:" & Chr(34) & "Verdana" & Chr(34) & ";color:#1F497D'>" & $NomApplication & "</span></u></b></p></td>" & @CR _
          & "<td width=163><p align=center><span style='font-size:8pt;font-family:" & Chr(34) & "Verdana" & Chr(34) & ";color:#1F497D'>v" & $version & "</span></p></td>" & @CR _
          & "</tr></table>" & @CR _
          & "<Table border=0 cellspacing=0 cellpadding=10 width=489 height=80 bgcolor=#ffffff>" & @CR _
          & "<tr><td align=justify><span style='font-size:8pt;font-family:" & Chr(34) & "Verdana" & Chr(34) & "'>" & "Version 3.4.1 - 19.01.2012" & "</span></td></tr>" & @CR _
          & "<tr><td align=justify><span style='font-size:8pt;font-family:" & Chr(34) & "Verdana" & Chr(34) & "'>" & "Changement de la version de Norton Removal Tools" & "</span></td></tr>" & @CR _
          & "<tr><td align=justify><span style='font-size:8pt;font-family:" & Chr(34) & "Verdana" & Chr(34) & "'>" & "Changement des version d'AVG Remover (64 et 32 bits)" & "</span></td></tr>" & @CR _
          & "<tr><td align=justify><span style='font-size:8pt;font-family:" & Chr(34) & "Verdana" & Chr(34) & "'>" & "Changement de la version de Mc Afee Cleanup Tools" & "</span></td></tr>" & @CR _
          & "</table>" & @CR _
          & "</body></htlm>"
   $FormAboutActiveX = GUICtrlCreateObj($FormAboutIE, -2, -2, 530, 280); On met le IE dans la GUI
   _IENavigate($FormAboutIE, "about:blank") ; On active l'IE
   _IEDocWriteHTML($FormAboutIE, $FormAboutHTML) ; On le remplit
   _IEAction($FormAboutIE, "refresh") ; et on l'affiche
   GUISetState(@SW_SHOW, $FormAbout)

EndFunc   ;==>historique

Func Sortir()
   GUIDelete($FormAbout)
EndFunc   ;==>Sortir
;FIN DU CODE




Dernière édition par Laddy le Mar 21 Fév 2012 - 13:08; édité 4 fois

______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] GAO By Sydney - By Laddy 
Bonsoir
Okay Okay
quelques bugs les icons des programmes ne s'affiche pas ni la version des de'installateur


un bouton vérification des mise ajour ne serait pas de trop aussi
OS utilise : windows 7



Visiter le site web du posteur
Répondre en citant
Message [Prog] GAO By Sydney - By Laddy 
Bizzare ton problème de bug car je l'avais corrigé il y a plusieurs versions et j'ai vérifié sur différents systemes d'exploitation.
Le developpement a eu lieu sous win 7 starter 32 bit.

Tu es en 32 ou 64 bit ?

Ce type d'outils n'est pas mis à jour souvent.

Edit effectivement avec l'executable ça ne fonctionne plus...Blop tout ça a cause d'un changement de dossier je pense.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Prog] GAO By Sydney - By Laddy 
Pareil pour moi...




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [Prog] GAO By Sydney - By Laddy 
Ouep c'est la compilation + le fait que les fichiers sont décompressés dans un dossier temporaire, les icones ne s'affichent si
ce qui n'est pas le cas si le fichier au3 + les exe sont en meme endroits.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Prog] GAO By Sydney - By Laddy 
Bonsoir
OS utilise : windows 7 32 bit



Visiter le site web du posteur
Répondre en citant
Message [Prog] GAO By Sydney - By Laddy 
Bonjour
maj du code correction du path.
http://www.box.com/s/8d8kjt15vvxidedn1ifn




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Prog] GAO By Sydney - By Laddy 
Bravo, j'aime et bien utile.




______________________________________________________


Message [Prog] GAO By Sydney - By Laddy 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch