API tools faq
paste
Advertisement
CondescendingFile

Code

CondescendingFile
Dec 10th, 2013
149
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.62 KB | None | 0 0
raw download clone embed print report
  1. Sub SplashScreen()
  2. Dim shell : Set shell = CreateObject("WScript.Shell")
  3. Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
  4. Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
  5. Dim tempName : tempName = "Splash.hta"
  6. Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName)
  7. tempFile.Writeline "<html>"
  8. tempFile.Writeline "<head>"
  9. 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;"">"
  10. tempFile.Writeline "<title>Splash Screen</title>"
  11. tempFile.Writeline "<HTA:APPLICATION ID=""oMyApp"""
  12. tempFile.Writeline "APPLICATIONNAME=""splash"""
  13. tempFile.Writeline "BORDER=""none"""
  14. tempFile.Writeline "CAPTION=""no"""
  15. tempFile.Writeline "SHOWINTASKBAR=""no"""
  16. tempFile.Writeline "SINGLEINSTANCE=""yes"""
  17. tempFile.Writeline "SYSMENU=""no"""
  18. tempFile.Writeline "SCROLL=""no"""
  19. tempFile.Writeline "WINDOWSTATE=""normal"">"
  20. 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;""/>"
  21. tempFile.Writeline "</head>"
  22. tempFile.Writeline"<SCRIPT LANGUAGE=""VBScript"">"
  23. tempFile.Writeline "Sub CenterWindow(x,y)"
  24. tempFile.Writeline "window.resizeTo x, y"
  25. tempFile.Writeline "iLeft = window.screen.availWidth/2 - x/2"
  26. tempFile.Writeline "itop = window.screen.availHeight/2 - y/2"
  27. tempFile.Writeline "window.moveTo ileft, itop"
  28. tempFile.Writeline "End Sub"
  29. tempFile.Writeline "Sub Window_OnLoad"
  30. tempFile.Writeline "CenterWindow 400,300"
  31. tempFile.Writeline "iTimerID = window.setInterval(""ShowSplash"", 28000)"
  32. tempFile.Writeline "End Sub"
  33. tempFile.Writeline "Sub ShowSplash"
  34. tempFile.Writeline "Window.Close()"
  35. tempFile.Writeline "End Sub"
  36. tempFile.Writeline "</SCRIPT>"
  37. tempFile.Writeline "<body bgcolor=""black"">"
  38. tempFile.Writeline "<DIV id=""Splash"">"
  39. tempFile.Writeline "<CENTER>"
  40. tempFile.Writeline "<p>"
  41. tempFile.Writeline "<img src=""&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#110;&#115;&#109;&#48;&#53;&#46;&#99;&#97;&#115;&#105;&#109;&#97;&#103;&#101;&#115;&#46;&#99;&#111;&#109;&#47;&#105;&#109;&#103;&#47;&#50;&#48;&#49;&#49;&#47;&#48;&#55;&#47;&#50;&#51;&#47;&#47;&#49;&#49;&#48;&#55;&#50;&#51;&#48;&#55;&#52;&#49;&#52;&#48;&#49;&#51;&#49;&#49;&#48;&#52;&#56;&#53;&#48;&#54;&#52;&#49;&#57;&#46;&#103;&#105;&#102;""/><br>"
  42. tempFile.Writeline "<center onselectstart=""ShowSplash"" ondragstart=""ShowSplash"" oncontextmenu=""ShowSplash"">"
  43. tempFile.Writeline "<marquee DIRECTION=""UP"" HEIGHT=""200"" WIDTH=""350"" SCROLLAMOUNT=""2"" onselectstart=""ShowSplash"">"
  44. tempFile.Writeline "<center><font face=""Comic sans MS"" color=RED size=4><b><i>SearchFile and Backup By Extension</i></b></font></center><br>"
  45. tempFile.Writeline "<center><font face=""Comic sans MS"" color=red size=2>It's a Vbscript to search for files by their extensions and organize them by copying in different folders with names on their extensions chosen from the beginning of the research.<br>"&_
  46. "and generate search results in a table in HTML, citing information<br>"&_
  47. "on these files such that their paths, creation date, modification date, size and attributes<br>"&_
  48. "and display thumbnails of diffrent types of images in the search<br>"&_
  49. "Eg if the search includes image files will be displayed as thumbnails.</b></font></center>"
  50. 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;&#110;&#115;&#109;&#48;&#53;&#46;&#99;&#97;&#115;&#105;&#109;&#97;&#103;&#101;&#115;&#46;&#99;&#111;&#109;&#47;&#105;&#109;&#103;&#47;&#50;&#48;&#49;&#49;&#47;&#48;&#55;&#47;&#50;&#51;&#47;&#47;&#49;&#49;&#48;&#55;&#50;&#51;&#48;&#55;&#52;&#49;&#52;&#48;&#49;&#51;&#49;&#49;&#48;&#52;&#56;&#53;&#48;&#54;&#52;&#49;&#57;&#46;&#103;&#105;&#102;""></center></marquee>"
  51. tempFile.Writeline "</center>"
  52. tempFile.Writeline "</p>"
  53. tempFile.Writeline "</CENTER>"
  54. tempFile.Writeline "</DIV>"
  55. tempFile.Writeline "</body>"
  56. tempFile.Writeline "</html>"
  57. tempFile.Writeline "tempFile.Close"
  58. shell.Run tempFolder & "\" & tempName ,1, True
  59. End Sub
  60. Call SplashScreen
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!