API tools faq
paste
Guest User

Untitled

a guest
Jun 22nd, 2018
126
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 27.55 KB | None | 0 0
raw download clone embed print report
  1. #RequireAdmin
  2. #include <File.au3>
  3. #include <ButtonConstants.au3>
  4. #include <GUIConstantsEx.au3>
  5. #include <WindowsConstants.au3>
  6. #include <Zip.au3>
  7. #include <ProgressConstants.au3>
  8. HotKeySet("!{F4}", "_void")
  9. Func _void()
  10. EndFunc   ;==>_void
  11.  
  12. ;~ =================
  13. ; Dossier de Travail
  14. ;~ =================
  15. DirCreate(@TempDir & "\REG")
  16. ;Fichiers REG
  17. FileInstall(@UserProfileDir & "\Desktop\AUTOIT\Mes tools\RestExt\REGFILE\vista" & "\vistareg.zip", @TempDir & "\REG\vistareg.zip")
  18. $ZipFile = @TempDir & "\REG" & "\vistareg.zip"
  19. $DestPath = @TempDir & "\REG\vista"
  20. _Zip_UnzipAll($ZipFile, $DestPath, 1)
  21. FileDelete(@TempDir & "\REG\vistareg.zip")
  22. ;Images GUI
  23. FileInstall(@UserProfileDir & "\Desktop\AUTOIT\Mes tools\RestExt\REGFILE" & "\allrest.jpg", @TempDir & "\REG\allrest.jpg")
  24. FileInstall(@UserProfileDir & "\Desktop\AUTOIT\Mes tools\RestExt\REGFILE" & "\wvista.jpg", @TempDir & "\REG\wvista.jpg")
  25. $allrest = @TempDir & "\REG\allrest.jpg"
  26. $wvista = @TempDir & "\REG\wvista.jpg"
  27. ;~ ==================
  28. ;~ ==================
  29.  
  30. $asf = @TempDir & "\REG\vista\vista_asf.reg"
  31. $asx = @TempDir & "\REG\vista\vista_asx.reg"
  32. $audiocd = @TempDir & "\REG\vista\vista_audiocd.reg"
  33. $avi = @TempDir & "\REG\vista\vista_avi.reg"
  34. $bat = @TempDir & "\REG\vista\vista_bat.reg"
  35. $bmp = @TempDir & "\REG\vista\vista_bmp.reg"
  36. $cab = @TempDir & "\REG\vista\vista_cab.reg"
  37. $chm = @TempDir & "\REG\vista\vista_chm.reg"
  38. $cmd = @TempDir & "\REG\vista\vista_cmd.reg"
  39. $com = @TempDir & "\REG\vista\vista_com.reg"
  40. $cpl = @TempDir & "\REG\vista\vista_cpl.reg"
  41. $cur = @TempDir & "\REG\vista\vista_cur.reg"
  42. $directory = @TempDir & "\REG\vista\vista_directory.reg"
  43. $dll = @TempDir & "\REG\vista\vista_dll.reg"
  44. $drive = @TempDir & "\REG\vista\vista_drive.reg"
  45. $dvrms = @TempDir & "\REG\vista\vista_dvr-ms.reg"
  46. $eml = @TempDir & "\REG\vista\vista_eml.reg"
  47. $exe = @TempDir & "\REG\vista\vista_exe.reg"
  48. $folder = @TempDir & "\REG\vista\vista_folder.reg"
  49. $gif = @TempDir & "\REG\vista\vista_gif.reg"
  50. $hlp = @TempDir & "\REG\vista\vista_hlp.reg"
  51. $hta = @TempDir & "\REG\vista\vista_hta.reg"
  52. $htm = @TempDir & "\REG\vista\vista_htm.reg"
  53. $html = @TempDir & "\REG\vista\vista_html.reg"
  54. $ico = @TempDir & "\REG\vista\vista_ico.reg"
  55. $inf = @TempDir & "\REG\vista\vista_inf.reg"
  56. $ini = @TempDir & "\REG\vista\vista_ini.reg"
  57. $jpe = @TempDir & "\REG\vista\vista_jpe.reg"
  58. $jpeg = @TempDir & "\REG\vista\vista_jpeg.reg"
  59. $jpg = @TempDir & "\REG\vista\vista_jpg.reg"
  60. $js = @TempDir & "\REG\vista\vista_js.reg"
  61. $lnk = @TempDir & "\REG\vista\vista_lnk.reg"
  62. $m3u = @TempDir & "\REG\vista\vista_m3u.reg"
  63. $mp3 = @TempDir & "\REG\vista\vista_mp3.reg"
  64. $mp4 = @TempDir & "\REG\vista\vista_mp4.reg"
  65. $mpa = @TempDir & "\REG\vista\vista_mpa.reg"
  66. $mpe = @TempDir & "\REG\vista\vista_mpe.reg"
  67. $mpeg = @TempDir & "\REG\vista\vista_mpeg.reg"
  68. $mpg = @TempDir & "\REG\vista\vista_mpg.reg"
  69. $msc = @TempDir & "\REG\vista\vista_msc.reg"
  70. $msi = @TempDir & "\REG\vista\vista_msi.reg"
  71. $png = @TempDir & "\REG\vista\vista_png.reg"
  72. $reg = @TempDir & "\REG\vista\vista_reg.reg"
  73. $rtf = @TempDir & "\REG\vista\vista_rtf.reg"
  74. $scr = @TempDir & "\REG\vista\vista_scr.reg"
  75. $tif = @TempDir & "\REG\vista\vista_tif.reg"
  76. $tiff = @TempDir & "\REG\vista\vista_tiff.reg"
  77. $txt = @TempDir & "\REG\vista\vista_txt.reg"
  78. $url = @TempDir & "\REG\vista\vista_url.reg"
  79. $vbe = @TempDir & "\REG\vista\vista_vbe.reg"
  80. $vbs = @TempDir & "\REG\vista\vista_vbs.reg"
  81. $wma = @TempDir & "\REG\vista\vista_wma.reg"
  82. $wmv = @TempDir & "\REG\vista\vista_wmv.reg"
  83. $wsf = @TempDir & "\REG\vista\vista_wsf.reg"
  84. $xml = @TempDir & "\REG\vista\vista_xml.reg"
  85. $xps = @TempDir & "\REG\vista\vista_xps.reg"
  86. $zip = @TempDir & "\REG\vista\vista_zip.reg"
  87.  
  88. ; Création de l'interface
  89. $gui = GUICreate("RestExt : Restaurez les extensions sous vista", 600, 550, 400, 200, $WS_SYSMENU)
  90. GUISetBkColor(0xFFFFFF)
  91. GUICtrlCreatePic($wvista, 300, 0, 275, 183)
  92. GUICtrlCreatePic($allrest, 330, 300, 230, 218)
  93. GUICtrlCreateLabel("Bonjour.", 5, 5, 100, 20)
  94. GUICtrlSetFont(-1, 11, 100)
  95. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  96. GUICtrlCreateLabel("Pour restaurer une extension, il suffit de cliquer sur le bouton approprié", 10, 30, 300, 50)
  97. GUICtrlSetFont(-1, 11, 100)
  98. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  99.  
  100.  
  101. GUICtrlCreateLabel("Si vous voulez restaurez toutes", 345, 400, 200, 50)
  102. GUICtrlSetFont(-1, 11, 100)
  103. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  104. GUICtrlCreateLabel("les extensions", 350, 420, 200, 50)
  105. GUICtrlSetFont(-1, 11, 100)
  106. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  107. GUICtrlCreateLabel("Cliquez ICI  =>", 350, 450, 200, 50)
  108. GUICtrlSetFont(-1, 11, 100)
  109. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  110. GUISetState(@SW_SHOW)
  111.  
  112. ;Mise en place des boutons
  113. $bouton1 = GUICtrlCreateButton("asf", 5, 80, 50, 25, $BS_ICON)
  114. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  115. $Bouton2 = GUICtrlCreateButton("asx", 65, 80, 50, 25, $BS_ICON)
  116. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  117. $Bouton3 = GUICtrlCreateButton("audiocd", 125, 80, 50, 25, $BS_ICON)
  118. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  119. $Bouton4 = GUICtrlCreateButton("avi", 185, 80, 50, 25, $BS_ICON)
  120. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  121. $Bouton5 = GUICtrlCreateButton("bat", 245, 80, 50, 25, $BS_ICON)
  122. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  123.  
  124. $Bouton6 = GUICtrlCreateButton("bmp", 5, 120, 50, 25, $BS_ICON)
  125. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  126. $Bouton7 = GUICtrlCreateButton("cab", 65, 120, 50, 25, $BS_ICON)
  127. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  128. $Bouton8 = GUICtrlCreateButton("chm", 125, 120, 50, 25, $BS_ICON)
  129. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  130. $Bouton9 = GUICtrlCreateButton("cmd", 185, 120, 50, 25, $BS_ICON)
  131. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  132. $Bouton10 = GUICtrlCreateButton("com", 245, 120, 50, 25, $BS_ICON)
  133. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  134.  
  135. $Bouton11 = GUICtrlCreateButton("cpl", 5, 160, 50, 25, $BS_ICON)
  136. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  137. $Bouton12 = GUICtrlCreateButton("cur", 65, 160, 50, 25, $BS_ICON)
  138. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  139. $Bouton13 = GUICtrlCreateButton("directory", 125, 160, 50, 25, $BS_ICON)
  140. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  141. $Bouton14 = GUICtrlCreateButton("dll", 185, 160, 50, 25, $BS_ICON)
  142. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  143. $Bouton15 = GUICtrlCreateButton("drive", 245, 160, 50, 25, $BS_ICON)
  144. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  145.  
  146. $Bouton16 = GUICtrlCreateButton("dvr-ms", 5, 200, 50, 25, $BS_ICON)
  147. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  148. $Bouton17 = GUICtrlCreateButton("eml", 65, 200, 50, 25, $BS_ICON)
  149. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  150. $Bouton18 = GUICtrlCreateButton("exe", 125, 200, 50, 25, $BS_ICON)
  151. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  152. $Bouton19 = GUICtrlCreateButton("folder", 185, 200, 50, 25, $BS_ICON)
  153. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  154. $Bouton20 = GUICtrlCreateButton("gif", 245, 200, 50, 25, $BS_ICON)
  155. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  156.  
  157. $Bouton21 = GUICtrlCreateButton("hlp", 5, 240, 50, 25, $BS_ICON)
  158. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  159. $Bouton22 = GUICtrlCreateButton("hta", 65, 240, 50, 25, $BS_ICON)
  160. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  161. $Bouton23 = GUICtrlCreateButton("htm", 125, 240, 50, 25, $BS_ICON)
  162. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  163. $Bouton24 = GUICtrlCreateButton("html", 185, 240, 50, 25, $BS_ICON)
  164. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  165. $Bouton25 = GUICtrlCreateButton("ico", 245, 240, 50, 25, $BS_ICON)
  166. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  167.  
  168. $Bouton26 = GUICtrlCreateButton("inf", 5, 280, 50, 25, $BS_ICON)
  169. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  170. $Bouton27 = GUICtrlCreateButton("ini", 65, 280, 50, 25, $BS_ICON)
  171. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  172. $Bouton28 = GUICtrlCreateButton("jpe", 125, 280, 50, 25, $BS_ICON)
  173. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  174. $Bouton29 = GUICtrlCreateButton("jpeg", 185, 280, 50, 25, $BS_ICON)
  175. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  176. $Bouton30 = GUICtrlCreateButton("jpg", 245, 280, 50, 25, $BS_ICON)
  177. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  178.  
  179. $Bouton31 = GUICtrlCreateButton("js", 5, 320, 50, 25, $BS_ICON)
  180. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  181. $Bouton32 = GUICtrlCreateButton("lnk", 65, 320, 50, 25, $BS_ICON)
  182. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  183. $Bouton33 = GUICtrlCreateButton("m3u", 125, 320, 50, 25, $BS_ICON)
  184. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  185. $Bouton34 = GUICtrlCreateButton("mp3", 185, 320, 50, 25, $BS_ICON)
  186. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  187. $Bouton35 = GUICtrlCreateButton("mpa", 245, 320, 50, 25, $BS_ICON)
  188. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  189.  
  190. $Bouton36 = GUICtrlCreateButton("mpeg", 5, 360, 50, 25, $BS_ICON)
  191. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  192. $Bouton37 = GUICtrlCreateButton("mpg", 65, 360, 50, 25, $BS_ICON)
  193. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  194. $Bouton38 = GUICtrlCreateButton("msc", 125, 360, 50, 25, $BS_ICON)
  195. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  196. $Bouton39 = GUICtrlCreateButton("msi", 185, 360, 50, 25, $BS_ICON)
  197. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  198. $Bouton40 = GUICtrlCreateButton("png", 245, 360, 50, 25, $BS_ICON)
  199. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  200.  
  201. $Bouton41 = GUICtrlCreateButton("reg", 5, 400, 50, 25, $BS_ICON)
  202. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  203. $Bouton42 = GUICtrlCreateButton("rtf", 65, 400, 50, 25, $BS_ICON)
  204. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  205. $Bouton43 = GUICtrlCreateButton("scr", 125, 400, 50, 25, $BS_ICON)
  206. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  207. $Bouton44 = GUICtrlCreateButton("tif", 185, 400, 50, 25, $BS_ICON)
  208. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  209. $Bouton45 = GUICtrlCreateButton("tiff", 245, 400, 50, 25, $BS_ICON)
  210. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  211.  
  212. $Bouton46 = GUICtrlCreateButton("txt", 5, 440, 50, 25, $BS_ICON)
  213. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  214. $Bouton47 = GUICtrlCreateButton("url", 65, 440, 50, 25, $BS_ICON)
  215. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  216. $Bouton48 = GUICtrlCreateButton("vbe", 125, 440, 50, 25, $BS_ICON)
  217. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  218. $Bouton49 = GUICtrlCreateButton("vbs", 185, 440, 50, 25, $BS_ICON)
  219. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  220. $Bouton50 = GUICtrlCreateButton("wma", 245, 440, 50, 25, $BS_ICON)
  221. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  222.  
  223. $Bouton51 = GUICtrlCreateButton("wmv", 5, 480, 50, 25, $BS_ICON)
  224. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  225. $Bouton52 = GUICtrlCreateButton("wsf", 65, 480, 50, 25, $BS_ICON)
  226. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  227. $Bouton53 = GUICtrlCreateButton("xml", 125, 480, 50, 25, $BS_ICON)
  228. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  229. $Bouton54 = GUICtrlCreateButton("xps", 185, 480, 50, 25, $BS_ICON)
  230. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  231. $Bouton55 = GUICtrlCreateButton("zip", 245, 480, 50, 25, $BS_ICON)
  232. ;~ GUICtrlSetImage(-1, "C:\Users\thomas\Desktop\txt_logo.ico", 5)
  233.  
  234. ;bouton tout restaurer
  235. $Bouton56 = GUICtrlCreateButton("Tout restaurer", 450, 445, 80, 25, $BS_ICON)
  236. GUICtrlSetBkColor(-1, 0x3A6695)
  237. GUICtrlSetColor(-1, 0xFFFFFF)
  238. GUICtrlSetState(-1, $GUI_ONTOP)
  239.  
  240.  
  241. While 1 ; "Faire ce qui suit tout le temps"
  242.  
  243.     $nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
  244.     Switch $nMsg
  245.         Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
  246.             DirRemove(@TempDir & "\REG\vista", 1)
  247.             Exit
  248.  
  249.             ; ==============> DEBUT EXEMPLE BOUTON <==============
  250. ;~ case bouton99 => exemple pour TXT
  251. ;~ runwait(@ComSpec & " /c reg import " & '"' & $txt & '"',"",@SW_HIDE)
  252.             ; ==============> FIN EXEMPLE BOUTON <==============
  253.  
  254. ;~ 1ère ligne de boutons
  255.         Case $bouton1
  256.             RunWait(@ComSpec & " /c reg import " & '"' & $asf & '"', "", @SW_HIDE)
  257.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  258.         Case $Bouton2
  259.             RunWait(@ComSpec & " /c reg import " & '"' & $asx & '"', "", @SW_HIDE)
  260.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  261.         Case $Bouton3
  262.             RunWait(@ComSpec & " /c reg import " & '"' & $audiocd & '"', "", @SW_HIDE)
  263.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  264.         Case $Bouton4
  265.             RunWait(@ComSpec & " /c reg import " & '"' & $avi & '"', "", @SW_HIDE)
  266.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  267.         Case $Bouton5
  268.             RunWait(@ComSpec & " /c reg import " & '"' & $bat & '"', "", @SW_HIDE)
  269.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  270.  
  271. ;~ 2ème ligne de boutons
  272.         Case $Bouton6
  273.             RunWait(@ComSpec & " /c reg import " & '"' & $bmp & '"', "", @SW_HIDE)
  274.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  275.         Case $Bouton7
  276.             RunWait(@ComSpec & " /c reg import " & '"' & $cab & '"', "", @SW_HIDE)
  277.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  278.         Case $Bouton8
  279.             RunWait(@ComSpec & " /c reg import " & '"' & $chm & '"', "", @SW_HIDE)
  280.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  281.         Case $Bouton9
  282.             RunWait(@ComSpec & " /c reg import " & '"' & $cmd & '"', "", @SW_HIDE)
  283.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  284.         Case $Bouton10
  285.             RunWait(@ComSpec & " /c reg import " & '"' & $com & '"', "", @SW_HIDE)
  286.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  287.  
  288. ;~ 3ème ligne de boutons
  289.         Case $Bouton11
  290.             RunWait(@ComSpec & " /c reg import " & '"' & $cpl & '"', "", @SW_HIDE)
  291.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  292.         Case $Bouton12
  293.             RunWait(@ComSpec & " /c reg import " & '"' & $cur & '"', "", @SW_HIDE)
  294.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  295.         Case $Bouton13
  296.             RunWait(@ComSpec & " /c reg import " & '"' & $directory & '"', "", @SW_HIDE)
  297.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  298.         Case $Bouton14
  299.             RunWait(@ComSpec & " /c reg import " & '"' & $dll & '"', "", @SW_HIDE)
  300.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  301.         Case $Bouton15
  302.             RunWait(@ComSpec & " /c reg import " & '"' & $drive & '"', "", @SW_HIDE)
  303.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  304.  
  305. ;~ 4ème ligne de boutons
  306.         Case $Bouton16
  307.             RunWait(@ComSpec & " /c reg import " & '"' & $dvrms & '"', "", @SW_HIDE)
  308.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  309.         Case $Bouton17
  310.             RunWait(@ComSpec & " /c reg import " & '"' & $eml & '"', "", @SW_HIDE)
  311.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  312.         Case $Bouton18
  313.             RunWait(@ComSpec & " /c reg import " & '"' & $exe & '"', "", @SW_HIDE)
  314.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  315.         Case $Bouton19
  316.             RunWait(@ComSpec & " /c reg import " & '"' & $folder & '"', "", @SW_HIDE)
  317.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  318.         Case $Bouton20
  319.             RunWait(@ComSpec & " /c reg import " & '"' & $gif & '"', "", @SW_HIDE)
  320.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  321.  
  322. ;~ 5ème ligne de boutons
  323.         Case $Bouton21
  324.             RunWait(@ComSpec & " /c reg import " & '"' & $hlp & '"', "", @SW_HIDE)
  325.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  326.         Case $Bouton22
  327.             RunWait(@ComSpec & " /c reg import " & '"' & $hta & '"', "", @SW_HIDE)
  328.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  329.         Case $Bouton23
  330.             RunWait(@ComSpec & " /c reg import " & '"' & $htm & '"', "", @SW_HIDE)
  331.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  332.         Case $Bouton24
  333.             RunWait(@ComSpec & " /c reg import " & '"' & $html & '"', "", @SW_HIDE)
  334.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  335.         Case $Bouton25
  336.             RunWait(@ComSpec & " /c reg import " & '"' & $ico & '"', "", @SW_HIDE)
  337.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  338.  
  339. ;~ 6ème ligne de boutons
  340.         Case $Bouton26
  341.             RunWait(@ComSpec & " /c reg import " & '"' & $inf & '"', "", @SW_HIDE)
  342.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  343.         Case $Bouton27
  344.             RunWait(@ComSpec & " /c reg import " & '"' & $ini & '"', "", @SW_HIDE)
  345.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  346.         Case $Bouton28
  347.             RunWait(@ComSpec & " /c reg import " & '"' & $jpe & '"', "", @SW_HIDE)
  348.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  349.         Case $Bouton29
  350.             RunWait(@ComSpec & " /c reg import " & '"' & $jpeg & '"', "", @SW_HIDE)
  351.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  352.         Case $Bouton30
  353.             RunWait(@ComSpec & " /c reg import " & '"' & $jpg & '"', "", @SW_HIDE)
  354.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  355.  
  356. ;~ 7ème ligne de boutons
  357.         Case $Bouton31
  358.             RunWait(@ComSpec & " /c reg import " & '"' & $js & '"', "", @SW_HIDE)
  359.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  360.         Case $Bouton32
  361.             RunWait(@ComSpec & " /c reg import " & '"' & $lnk & '"', "", @SW_HIDE)
  362.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  363.         Case $Bouton33
  364.             RunWait(@ComSpec & " /c reg import " & '"' & $m3u & '"', "", @SW_HIDE)
  365.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  366.         Case $Bouton34
  367.             RunWait(@ComSpec & " /c reg import " & '"' & $mp3 & '"', "", @SW_HIDE)
  368.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  369.         Case $Bouton35
  370.             RunWait(@ComSpec & " /c reg import " & '"' & $mpa & '"', "", @SW_HIDE)
  371.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  372.  
  373. ;~ 8ème ligne de boutons
  374.         Case $Bouton36
  375.             RunWait(@ComSpec & " /c reg import " & '"' & $mpeg & '"', "", @SW_HIDE)
  376.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  377.         Case $Bouton37
  378.             RunWait(@ComSpec & " /c reg import " & '"' & $mpg & '"', "", @SW_HIDE)
  379.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  380.         Case $Bouton38
  381.             RunWait(@ComSpec & " /c reg import " & '"' & $msc & '"', "", @SW_HIDE)
  382.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  383.         Case $Bouton39
  384.             RunWait(@ComSpec & " /c reg import " & '"' & $msi & '"', "", @SW_HIDE)
  385.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  386.         Case $Bouton40
  387.             RunWait(@ComSpec & " /c reg import " & '"' & $png & '"', "", @SW_HIDE)
  388.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  389.  
  390. ;~ 9ème ligne de boutons
  391.         Case $Bouton41
  392.             RunWait(@ComSpec & " /c reg import " & '"' & $reg & '"', "", @SW_HIDE)
  393.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  394.         Case $Bouton42
  395.             RunWait(@ComSpec & " /c reg import " & '"' & $rtf & '"', "", @SW_HIDE)
  396.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  397.         Case $Bouton43
  398.             RunWait(@ComSpec & " /c reg import " & '"' & $scr & '"', "", @SW_HIDE)
  399.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  400.         Case $Bouton44
  401.             RunWait(@ComSpec & " /c reg import " & '"' & $tif & '"', "", @SW_HIDE)
  402.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  403.         Case $Bouton45
  404.             RunWait(@ComSpec & " /c reg import " & '"' & $tiff & '"', "", @SW_HIDE)
  405.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  406.  
  407. ;~ 10ème ligne de boutons
  408.         Case $Bouton46
  409.             RunWait(@ComSpec & " /c reg import " & '"' & $txt & '"', "", @SW_HIDE)
  410.  
  411.         Case $Bouton47
  412.             RunWait(@ComSpec & " /c reg import " & '"' & $url & '"', "", @SW_HIDE)
  413.  
  414.         Case $Bouton48
  415.             RunWait(@ComSpec & " /c reg import " & '"' & $vbe & '"', "", @SW_HIDE)
  416.  
  417.         Case $Bouton49
  418.             RunWait(@ComSpec & " /c reg import " & '"' & $vbs & '"', "", @SW_HIDE)
  419.  
  420.         Case $Bouton50
  421.             RunWait(@ComSpec & " /c reg import " & '"' & $wma & '"', "", @SW_HIDE)
  422.  
  423.  
  424. ;~ 11ème ligne de boutons
  425.         Case $Bouton51
  426.             RunWait(@ComSpec & " /c reg import " & '"' & $wmv & '"', "", @SW_HIDE)
  427.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  428.         Case $Bouton52
  429.             RunWait(@ComSpec & " /c reg import " & '"' & $wsf & '"', "", @SW_HIDE)
  430.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  431.         Case $Bouton53
  432.             RunWait(@ComSpec & " /c reg import " & '"' & $xml & '"', "", @SW_HIDE)
  433.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  434.         Case $Bouton54
  435.             RunWait(@ComSpec & " /c reg import " & '"' & $xps & '"', "", @SW_HIDE)
  436.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  437.         Case $Bouton55
  438.             RunWait(@ComSpec & " /c reg import " & '"' & $zip & '"', "", @SW_HIDE)
  439.             MsgBox(0, "Succès !", "L'extension a bien été restauré, appuyez sur OK pour continuer")
  440.  
  441.             ;bouton tout restaurer
  442.         Case $Bouton56
  443.             $BarreProgression = GUICreate("", 550, 100, 0, 0, $WS_VISIBLE)
  444.             $Progress = GUICtrlCreateProgress(10, 30, 550, 30, $PBS_MARQUEE)
  445.             GUICtrlCreateLabel("Veuillez patientez pendant la restautration...", 4, -4, 550, 100)
  446.             GUICtrlSetFont(-1, 20, 800, 0, "@Arial Unicode MS")
  447.             GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
  448.             GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
  449.             GUISetState(@SW_SHOW)
  450.  
  451. ;~ 1ère ligne de boutons
  452.             RunWait(@ComSpec & " /c reg import " & '"' & $asf & '"', "", @SW_HIDE)
  453.             RunWait(@ComSpec & " /c reg import " & '"' & $asx & '"', "", @SW_HIDE)
  454.             RunWait(@ComSpec & " /c reg import " & '"' & $audiocd & '"', "", @SW_HIDE)
  455.             RunWait(@ComSpec & " /c reg import " & '"' & $avi & '"', "", @SW_HIDE)
  456.             RunWait(@ComSpec & " /c reg import " & '"' & $bat & '"', "", @SW_HIDE)
  457.  
  458. ;~ 2ème ligne de boutons
  459.             RunWait(@ComSpec & " /c reg import " & '"' & $bmp & '"', "", @SW_HIDE)
  460.             RunWait(@ComSpec & " /c reg import " & '"' & $cab & '"', "", @SW_HIDE)
  461.             RunWait(@ComSpec & " /c reg import " & '"' & $chm & '"', "", @SW_HIDE)
  462.             RunWait(@ComSpec & " /c reg import " & '"' & $cmd & '"', "", @SW_HIDE)
  463.             RunWait(@ComSpec & " /c reg import " & '"' & $com & '"', "", @SW_HIDE)
  464.  
  465. ;~ 3ème ligne de boutons
  466.             RunWait(@ComSpec & " /c reg import " & '"' & $cpl & '"', "", @SW_HIDE)
  467.             RunWait(@ComSpec & " /c reg import " & '"' & $cur & '"', "", @SW_HIDE)
  468.             RunWait(@ComSpec & " /c reg import " & '"' & $directory & '"', "", @SW_HIDE)
  469.             RunWait(@ComSpec & " /c reg import " & '"' & $dll & '"', "", @SW_HIDE)
  470.             RunWait(@ComSpec & " /c reg import " & '"' & $drive & '"', "", @SW_HIDE)
  471.  
  472. ;~ 4ème ligne de boutons
  473.             RunWait(@ComSpec & " /c reg import " & '"' & $dvrms & '"', "", @SW_HIDE)
  474.             RunWait(@ComSpec & " /c reg import " & '"' & $eml & '"', "", @SW_HIDE)
  475.             RunWait(@ComSpec & " /c reg import " & '"' & $exe & '"', "", @SW_HIDE)
  476.             RunWait(@ComSpec & " /c reg import " & '"' & $folder & '"', "", @SW_HIDE)
  477.             RunWait(@ComSpec & " /c reg import " & '"' & $gif & '"', "", @SW_HIDE)
  478.  
  479. ;~ 5ème ligne de boutons
  480.             RunWait(@ComSpec & " /c reg import " & '"' & $hlp & '"', "", @SW_HIDE)
  481.             RunWait(@ComSpec & " /c reg import " & '"' & $hta & '"', "", @SW_HIDE)
  482.             RunWait(@ComSpec & " /c reg import " & '"' & $htm & '"', "", @SW_HIDE)
  483.             RunWait(@ComSpec & " /c reg import " & '"' & $html & '"', "", @SW_HIDE)
  484.             RunWait(@ComSpec & " /c reg import " & '"' & $ico & '"', "", @SW_HIDE)
  485.  
  486. ;~ 6ème ligne de boutons
  487.             RunWait(@ComSpec & " /c reg import " & '"' & $inf & '"', "", @SW_HIDE)
  488.             RunWait(@ComSpec & " /c reg import " & '"' & $ini & '"', "", @SW_HIDE)
  489.             RunWait(@ComSpec & " /c reg import " & '"' & $jpe & '"', "", @SW_HIDE)
  490.             RunWait(@ComSpec & " /c reg import " & '"' & $jpeg & '"', "", @SW_HIDE)
  491.             RunWait(@ComSpec & " /c reg import " & '"' & $jpg & '"', "", @SW_HIDE)
  492.  
  493. ;~ 7ème ligne de boutons
  494.             RunWait(@ComSpec & " /c reg import " & '"' & $js & '"', "", @SW_HIDE)
  495.             RunWait(@ComSpec & " /c reg import " & '"' & $lnk & '"', "", @SW_HIDE)
  496.             RunWait(@ComSpec & " /c reg import " & '"' & $m3u & '"', "", @SW_HIDE)
  497.             RunWait(@ComSpec & " /c reg import " & '"' & $mp3 & '"', "", @SW_HIDE)
  498.             RunWait(@ComSpec & " /c reg import " & '"' & $mpa & '"', "", @SW_HIDE)
  499.  
  500. ;~ 8ème ligne de boutons
  501.             RunWait(@ComSpec & " /c reg import " & '"' & $mpeg & '"', "", @SW_HIDE)
  502.             RunWait(@ComSpec & " /c reg import " & '"' & $mpg & '"', "", @SW_HIDE)
  503.             RunWait(@ComSpec & " /c reg import " & '"' & $msc & '"', "", @SW_HIDE)
  504.             RunWait(@ComSpec & " /c reg import " & '"' & $msi & '"', "", @SW_HIDE)
  505.             RunWait(@ComSpec & " /c reg import " & '"' & $png & '"', "", @SW_HIDE)
  506.  
  507. ;~ 9ème ligne de boutons
  508.             RunWait(@ComSpec & " /c reg import " & '"' & $reg & '"', "", @SW_HIDE)
  509.             RunWait(@ComSpec & " /c reg import " & '"' & $rtf & '"', "", @SW_HIDE)
  510.             RunWait(@ComSpec & " /c reg import " & '"' & $scr & '"', "", @SW_HIDE)
  511.             RunWait(@ComSpec & " /c reg import " & '"' & $tif & '"', "", @SW_HIDE)
  512.             RunWait(@ComSpec & " /c reg import " & '"' & $tiff & '"', "", @SW_HIDE)
  513.  
  514. ;~ 10ème ligne de boutons
  515.             RunWait(@ComSpec & " /c reg import " & '"' & $txt & '"', "", @SW_HIDE)
  516.             RunWait(@ComSpec & " /c reg import " & '"' & $url & '"', "", @SW_HIDE)
  517.             RunWait(@ComSpec & " /c reg import " & '"' & $vbe & '"', "", @SW_HIDE)
  518.             RunWait(@ComSpec & " /c reg import " & '"' & $vbs & '"', "", @SW_HIDE)
  519.             RunWait(@ComSpec & " /c reg import " & '"' & $wma & '"', "", @SW_HIDE)
  520.  
  521. ;~ 11ème ligne de boutons
  522.             RunWait(@ComSpec & " /c reg import " & '"' & $wmv & '"', "", @SW_HIDE)
  523.             RunWait(@ComSpec & " /c reg import " & '"' & $wsf & '"', "", @SW_HIDE)
  524.             RunWait(@ComSpec & " /c reg import " & '"' & $xml & '"', "", @SW_HIDE)
  525.             RunWait(@ComSpec & " /c reg import " & '"' & $xps & '"', "", @SW_HIDE)
  526.             RunWait(@ComSpec & " /c reg import " & '"' & $zip & '"', "", @SW_HIDE)
  527.  
  528.             GUIDelete($BarreProgression)
  529.             MsgBox(0, "Fini !", "Toutes les extensions ont été restaurées")
  530.     EndSwitch
  531. WEnd
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!