daily pastebin goal
13%
SHARE
TWEET

BatchDownload.vbs

hackoo Jun 21st, 2012 116 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. On ERROR RESUME NEXT
  2. Const ForReading = 1
  3. Dim strFileURL,strHDLocation,Titre,objFSO
  4. Titre = "Téléchargement par Lots des Jeux Flash © Hackoo © 2012"
  5. Set objFSO = Createobject("Scripting.FileSystemObject")
  6. Set Ws = CreateObject("WScript.Shell")
  7. PathScript = objFSO.GetParentFolderName(wscript.ScriptFullName)
  8. PathGames = PathScript & "\FlashGames"
  9. Call Test_Connexion_Internet()
  10. CreerRep(PathGames)
  11. 'Autoriser le contenu actif à s'exécuter dans les fichiers de la zone Ordinateur local
  12. LockDown="HKLM\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\"
  13.  Keysec1=LockDown & "iexplore.exe"
  14.  itemtype = "REG_DWORD"
  15.  WS.RegWrite Keysec1,0,itemtype
  16. If objfso.FileExists("Gamelist.txt") Then
  17.    Set f = objfso.OpenTextFile("Gamelist.txt", ForReading)
  18.    st=f.ReadAll
  19.    Tab = split(st,vbcr)
  20.    For i=0 to Ubound(Tab)
  21.        elem=split(Tab(i),"/")
  22.        FileURL = Tab(i)
  23.            HDLocation = elem(2)
  24.     strFileURL = "http://" & FileURL
  25.     strHDLocation = PathGames &"\"& HDLocation &".swf"
  26. ' Récupérer le fichier
  27.    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  28.     objXMLHTTP.open "GET", strFileURL, false
  29.     objXMLHTTP.send()
  30. If objXMLHTTP.Status = 200 Then
  31. Set objADOStream = CreateObject("ADODB.Stream")
  32. objADOStream.Open
  33. objADOStream.Type = 1 'adTypeBinary
  34. objADOStream.Write objXMLHTTP.ResponseBody
  35. objADOStream.Position = 0    'Set the stream position to the start
  36. If objFSO.Fileexists(strHDLocation) Then
  37. 'MsgBox "Le Jeu Flash :"& vbCr & qq(strHDLocation) & vbCr &" Existe déja dans le Dossier "& qq(PathGames),48,Titre
  38. Else
  39. Call SplashScreen
  40. objADOStream.SaveToFile strHDLocation
  41. objADOStream.Close
  42. Set objADOStream = Nothing
  43. End If
  44. End If
  45. Set objXMLHTTP = Nothing
  46. Next
  47. Set objFSO = Nothing
  48. MsgBox "Félécitations ! Tous Les Téléchargements ont été Terminé avec Succés !",64,Titre
  49. Question = MsgBox ("Vouliez-vous ouvrir le dernier Jeu Téléchargé "& qq(strHDLocation) &" ?" & Vbcr &_
  50.  "SI oui , alors cliquez sur [OUI]  ?"& Vbcr &_
  51.  "Sinon , alors cliquez sur [NON] pour ouvrir un Jeu Au Hasard !",VBYesNO+VbQuestion,Titre)
  52.  If Question = VbYes then
  53.     Call Explorer
  54.         else
  55.         Call JeuAuHasard()
  56.  End if
  57. 'Ws.Run "explorer " & PathGames,1,True
  58. Set WS = Nothing
  59.  else
  60. MsgBox "Le Fichier ""Gamelist.txt"" est absent et le script doit-être arrêté !",48,Titre
  61. wscript.Quit
  62.  End If
  63.  
  64. Sub CreerRep(Chemin)
  65.         If Not objFSO.FolderExists(chemin) Then
  66.                 CreerRep(objFSO.GetParentFolderName(chemin))
  67.                 objFSO.CreateFolder(chemin)
  68.         End If
  69. End Sub
  70.  
  71. Sub Test_Connexion_Internet()
  72. strComputer = "smtp.gmail.com"
  73. MsgTitre = "TEST DE CONNEXION INTERNET *-* Téléchargement par Lots des Jeux Flash © Hackoo © 2012"
  74. Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
  75. For Each objStatus in objPing
  76. If objStatus.Statuscode = 0 Then
  77. msgbox "VOUS ETES DESORMAIS CONNECTE A INTERNET ET LE TELECHARGEMENT DES JEUX FLASH EST DISPONIBLE ! ",64,MsgTitre
  78. else
  79. msgbox "OUPPS !!! VOUS N'ETES PAS CONNECTE A INTERNET ET LE TELECHARGEMENT N'EST PLUS DISPONIBLE EN CE MOMENT !",16,MsgTitre
  80. Exit Sub
  81. End If
  82. Next
  83. End Sub
  84.  
  85. Function qq(str)
  86. qq = chr(34)& str &chr(34)
  87. End Function
  88.  
  89. Sub Explorer()
  90. Ws.Run "%comspec% /c Start iexplore " & strHDLocation,0,True
  91. wscript.sleep 5000
  92. Question = MsgBox ("Vouliez-vous ouvrir ce Jeu en plein écran ?" & Vbcr &_
  93.  "SI oui , alors cliquez sur [OUI]  ?"& Vbcr &_
  94.  "Sinon , alors cliquez sur [NON]",VBYesNO+VbQuestion,Titre)
  95.  If Question = VbYes then
  96.     WS.AppActivate strHDLocation
  97.     WS.SendKeys "{F11}" 'pour mettre internet explorer en plein écran
  98. else
  99.         WScript.Quit
  100.  End if
  101. Set WS = Nothing
  102. end Sub
  103.  
  104. Function JeuAuHasard()
  105. Set objFSO = Createobject("Scripting.FileSystemObject")
  106. PathScript = objFSO.GetParentFolderName(wscript.ScriptFullName)
  107. PathGames = PathScript & "\FlashGames"
  108. Set objFolder = objFSO.GetFolder(PathGames)
  109. Set colFiles = objFolder.Files
  110. Set dico = CreateObject("Scripting.Dictionary")
  111. i = 0
  112. For each File in colFiles
  113. If Not dico.Exists(File) Then
  114. dico.Add i,File
  115. i = i+1
  116. end if
  117. Next
  118. cles=dico.keys
  119. valeurs=dico.items
  120. For i=0 To ubound(cles)
  121. Randomize
  122. NB = Int((ubound(cles) - Lbound(cles)+ 1) - cles(i)*Rnd)
  123. Next
  124. 'wscript.echo NB
  125. jeu = dico.item(NB)
  126. 'wscript.echo jeu
  127. Ws.Run "%comspec% /c Start iexplore " & jeu,0,True
  128. wscript.sleep 5000
  129. Question = MsgBox ("Vouliez-vous ouvrir ce Jeu en plein écran ?" & Vbcr &_
  130.  "SI oui , alors cliquez sur [OUI]  ?"& Vbcr &_
  131.  "Sinon , alors cliquez sur [NON]",VBYesNO+VbQuestion,Titre)
  132.  If Question = VbYes then
  133.     WS.AppActivate jeu
  134.     WS.SendKeys "{F11}" 'pour mettre internet explorer en plein écran
  135. else
  136.         WScript.Quit
  137.  End if
  138. Set WS = Nothing
  139. Set objFSO = Nothing
  140. End Function
  141.  
  142.  Sub SplashScreen()
  143.  Dim shell : Set shell = CreateObject("WScript.Shell")
  144.  Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
  145.  Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
  146.  Dim tempName : tempName = "Splash.hta"
  147.  Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName)
  148. tempFile.Writeline "<html>"
  149. tempFile.Writeline "<head>"
  150. tempFile.Writeline "<bgsound src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#104;&#97;&#99;&#107;&#111;&#111;&#46;&#97;&#108;&#119;&#97;&#121;&#115;&#100;&#97;&#116;&#97;&#46;&#110;&#101;&#116;&#47;&#112;&#105;&#114;&#97;&#116;&#101;&#115;&#46;&#109;&#112;&#51;"" loop=""&#105;&#110;&#102;&#105;&#110;&#105;&#116;&#101;"">"
  151. tempFile.Writeline "<title>Splash Screen</title>"    
  152. tempFile.Writeline "<HTA:APPLICATION ID=""Jeux Flash"""
  153. tempFile.Writeline "APPLICATIONNAME=""splash"""
  154. tempFile.Writeline "BORDER=""none"""
  155. tempFile.Writeline "CAPTION=""no"""
  156. tempFile.Writeline "SHOWINTASKBAR=""no"""
  157. tempFile.Writeline "SINGLEINSTANCE=""yes"""
  158. tempFile.Writeline "SYSMENU=""no"""
  159. tempFile.Writeline "SCROLL=""no"""
  160. tempFile.Writeline "WINDOWSTATE=""normal"">"
  161. tempFile.Writeline "<link rel=""stylesheet"" media=""screen"" type=""text/css"" title=""design_encoder"" href=""&#0104;&#0116;&#0116;&#0112;&#0058;//&#0104;&#0097;&#0099;&#0107;&#0111;&#0111;&#0046;&#0097;&#0108;&#0119;&#0097;&#0121;&#0115;&#0100;&#0097;&#0116;&#0097;&#0046;&#0110;&#0101;&#0116;/&#0100;&#0101;&#0115;&#0105;&#0103;&#0110;&#0095;&#0101;&#0110;&#0099;&#0111;&#0100;&#0101;&#0114;&#0046;&#0099;&#0115;&#0115;""/>"
  162. tempFile.Writeline "</head>"
  163. tempFile.Writeline"<SCRIPT LANGUAGE=""VBScript"">"
  164. tempFile.Writeline "Sub CenterWindow(x,y)"        
  165. tempFile.Writeline         "window.resizeTo x, y"      
  166. tempFile.Writeline         "iLeft = window.screen.availWidth/2 - x/2"      
  167. tempFile.Writeline         "itop = window.screen.availHeight/2 - y/2"    
  168. tempFile.Writeline       "window.moveTo ileft, itop"      
  169. tempFile.Writeline "End Sub"    
  170. tempFile.Writeline "Sub Window_OnLoad"
  171. tempFile.Writeline      "CenterWindow 400,300"
  172. tempFile.Writeline      "iTimerID = window.setInterval(""ShowSplash"", 35000)"
  173. tempFile.Writeline "End Sub"
  174. tempFile.Writeline "Sub ShowSplash"
  175. tempFile.Writeline     "Window.Close()"
  176. tempFile.Writeline "End Sub"
  177. tempFile.Writeline "</SCRIPT>"
  178. tempFile.Writeline "<body bgcolor=""black"">"
  179. tempFile.Writeline "<DIV id=""Splash"">"
  180. tempFile.Writeline "<CENTER>"
  181. tempFile.Writeline "<p>"
  182. tempFile.Writeline "<center><font face=""Comic sans MS"" color=RED size=2><b><i>Veuillez Patienter SVP pendant le Téléchargement</i></b></font><br><br><img src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#104;&#97;&#99;&#107;&#111;&#111;&#46;&#97;&#108;&#119;&#97;&#121;&#115;&#100;&#97;&#116;&#97;&#46;&#110;&#101;&#116;&#47;&#108;&#111;&#97;&#100;&#101;&#114;&#49;&#46;&#103;&#105;&#102;""></center><br>"
  183. tempFile.Writeline "<center onselectstart=""ShowSplash"" ondragstart=""ShowSplash"" oncontextmenu=""ShowSplash"">"
  184. tempFile.Writeline "<marquee DIRECTION=""UP"" HEIGHT=""200"" WIDTH=""350"" SCROLLAMOUNT=""2"" onselectstart=""ShowSplash"">"
  185. tempFile.Writeline "<center><img src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#104;&#97;&#99;&#107;&#111;&#111;&#46;&#97;&#108;&#119;&#97;&#121;&#115;&#100;&#97;&#116;&#97;&#46;&#110;&#101;&#116;&#47;&#108;&#111;&#97;&#100;&#101;&#114;&#50;&#46;&#103;&#105;&#102;""/></center><br>"
  186. tempFile.Writeline "<center><font face=""Comic sans MS"" color=red size=2>Téléchargement en cours <img src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#104;&#97;&#99;&#107;&#111;&#111;&#46;&#97;&#108;&#119;&#97;&#121;&#115;&#100;&#97;&#116;&#97;&#46;&#110;&#101;&#116;&#47;&#108;&#111;&#97;&#100;&#101;&#114;&#51;&#46;&#103;&#105;&#102;""><br>"&_
  187. "Téléchargement en cours <img src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#104;&#97;&#99;&#107;&#111;&#111;&#46;&#97;&#108;&#119;&#97;&#121;&#115;&#100;&#97;&#116;&#97;&#46;&#110;&#101;&#116;&#47;&#108;&#111;&#97;&#100;&#101;&#114;&#51;&#46;&#103;&#105;&#102;""><br>"&_
  188. "Téléchargement en cours <img src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#104;&#97;&#99;&#107;&#111;&#111;&#46;&#97;&#108;&#119;&#97;&#121;&#115;&#100;&#97;&#116;&#97;&#46;&#110;&#101;&#116;&#47;&#108;&#111;&#97;&#100;&#101;&#114;&#51;&#46;&#103;&#105;&#102;""><br>"&_
  189. "Téléchargement en cours <img src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#104;&#97;&#99;&#107;&#111;&#111;&#46;&#97;&#108;&#119;&#97;&#121;&#115;&#100;&#97;&#116;&#97;&#46;&#110;&#101;&#116;&#47;&#108;&#111;&#97;&#100;&#101;&#114;&#51;&#46;&#103;&#105;&#102;""></b></font></center>"
  190. tempFile.Writeline "<br><center><font face=""Comic sans MS"" color=RED>by © Hackoo 2012<br><br></font></center><center><img src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#104;&#97;&#99;&#107;&#111;&#111;&#46;&#97;&#108;&#119;&#97;&#121;&#115;&#100;&#97;&#116;&#97;&#46;&#110;&#101;&#116;&#47;&#108;&#111;&#97;&#100;&#101;&#114;&#50;&#46;&#103;&#105;&#102;""></center></marquee>"
  191. tempFile.Writeline "</center>"
  192. tempFile.Writeline "</p>"
  193. tempFile.Writeline "</CENTER>"
  194. tempFile.Writeline "</DIV>"
  195. tempFile.Writeline "</body>"
  196. tempFile.Writeline "</html>"
  197. shell.Run tempFolder & "\" & tempName ,1,True
  198. End Sub
RAW Paste Data
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
 
Top