Display Image With No Border Before Starting An App,exe File?
ok so some tools , some converting tools, give the ability to display an image before starting the converted application, and after done ! that is something very interesting i defi
Solution 1:
Try this example tested only on windows 7
NB: This example dosen't work on windows xp
[VBS/HTA] Popup an image with playing song in the background
OptionExplicitDim URL,ws,fso,Srcimage,Temp,PathOutPutHTML,fhta,stRep,stFichier,oShell,oFolder,oFichier,Dimensions
Dim arrSize,intLength,intHorizontalSize,intVerticalSize,Tab
URL = "http://www.animatedimages.org/data/media/902/animated-tunisia-flag-image-0023.gif"Set ws = CreateObject("wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Temp = WS.ExpandEnvironmentStrings("%Temp%")
PathOutPutHTML = Temp & "\image.hta"Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True)
stRep = Temp
Tab = split(url,"/")
stFichier = Tab(UBound(Tab))
Srcimage = stRep & "\" & stFichier
IfNot fso.FileExists(Srcimage) ThenCall DownloadingFile(URL,Srcimage)
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace(stRep)
Set oFichier = oFolder.Items.Item(stFichier)
Dimensions = oFolder.GetDetailsOf(oFichier,31)
arrSize = Split(Dimensions,"x")
'***************************************Important à savoir **********************************************'Instead, we ended up retrieving item 31, which gave us the total dimensions of the picture,'using an output format similar to this: ?150 x 354?'http://blogs.technet.com/b/heyscriptingguy/archive/2008/05/16/how-can-i-search-a-folder-for-all-the-image-files-that-are-not-a-specified-height-and-width.aspx'Un grand merci à omen999 ==>'http://www.developpez.net/forums/d1504644/autres-langages/general-visual-basic-6-vbscript/vbscript/passage-variables-procedure/#post8163406
intLength = Len(arrSize(0))
intHorizontalSize = Right(arrSize(0),intLength -1)
intLength = Len(arrSize(1))
intVerticalSize = Left(arrSize(1),intLength - 1)
'***************************************Important à savoir **********************************************Call LoadImage(Srcimage,intHorizontalSize,intVerticalSize,Timeout(51))
ws.run "mshta.exe " & PathOutPutHTML
ElseSet oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace(stRep)
Set oFichier = oFolder.Items.Item(stFichier)
Dimensions = oFolder.GetDetailsOf(oFichier,31)
arrSize = Split(Dimensions,"x")
intLength = Len(arrSize(0))
intHorizontalSize = Right(arrSize(0),intLength -1)
intLength = Len(arrSize(1))
intVerticalSize = Left(arrSize(1),intLength - 1)
Call LoadImage(Srcimage,intHorizontalSize,intVerticalSize,Timeout(51))
ws.run "mshta.exe " & PathOutPutHTML
EndIf'********************************************************************************************************Function TimeOut(T)
TimeOut = T * 1000EndFunction'********************************************************************************************************Sub LoadImage(Srcimage,intHorizontalSize,intVerticalSize,TimeOut)
fhta.WriteLine "<html>"
fhta.WriteLine " <hta:application id=""oHTA"" "
fhta.WriteLine " border=""none"" "
fhta.WriteLine " caption=""no"" "
fhta.WriteLine " contextmenu=""no"" "
fhta.WriteLine " innerborder=""no"" "
fhta.WriteLine " scroll=""no"" "
fhta.WriteLine " showintaskbar=""no"" "
fhta.WriteLine " />"
fhta.WriteLine "<style>"
fhta.WriteLine "{ margin: 0; padding: 0; }"
fhta.WriteLine "body {background: url(" & DblQuote(Srcimage) & ") no-repeat center center fixed;}"
fhta.WriteLine "</style>"
fhta.WriteLine " <script language=""VBScript"">"
fhta.WriteLine " Sub Window_OnLoad()"
fhta.WriteLine " width = " & intHorizontalSize
fhta.WriteLine " height = " & intVerticalSize
fhta.WriteLine " window.resizeTo width, height"
fhta.WriteLine " window.moveTo screen.availWidth\2 - width\2, screen.availHeight\2 - height\2"
fhta.WriteLine " idTimer = window.setTimeout(""vbscript:window.close"","& TimeOut &")"
fhta.WriteLine " window.setInterval ""setfocus()"",100"
fhta.WriteLine " End Sub"
fhta.WriteLine " Function setfocus"
fhta.WriteLine " Window.Focus()"
fhta.WriteLine " End Function"
fhta.WriteLine " </script>"
fhta.WriteLine "<body>"
fhta.WriteLine "<bgsound src=""http://upload.wikimedia.org/wikipedia/commons/2/23/Humat_al-Hima.ogg"">"
fhta.WriteLine "</body>"
fhta.WriteLine "</html>"EndSub'**********************************************************************************************Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
EndFunction'**********************************************************************************************Sub DownloadingFile(URL,strHDLocation)
Dim Titre,objFSO,Ws,objXMLHTTP,PathScript,Tab,objADOStream,Command,Start,File
Dim MsgTitre,MsgAttente,StartTime,DurationTime,ProtocoleHTTP
Set objFSO = Createobject("Scripting.FileSystemObject")
Set Ws = CreateObject("wscript.Shell")
ProtocoleHTTP = "http://"If Left(URL,7) <> ProtocoleHTTP Then
URL = ProtocoleHTTP & URL
Endif
Tab = split(url,"/")
File = Tab(UBound(Tab))
File = Replace(File,"%20"," ")
File = Replace(File,"%28","(")
File = Replace(File,"%29",")")
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
strHDLocation = PathScript & "\" & File
OnErrorResumeNext
objXMLHTTP.open "GET",URL,false
objXMLHTTP.send()
If Err.number <> 0Then
MsgBox err.description,16,err.description
ExitSubElseIf objXMLHTTP.Status = 200Then
strHDLocation = Temp & "\" & File
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0'Set the stream position to the start
objADOStream.SaveToFile strHDLocation,2'2=adSaveCreateOverWrite
objADOStream.Close
Set objADOStream = NothingEndIfEndifSet objXMLHTTP = NothingEndSubSolution 2:
@Hackoo you always have these WOW codes , i mean i never tough i can face something like that, and also thx for the quick reply and help, i may use that but basically i think i found something interesting and that works, and much easier than the code you posted , i'll let the code talk : note this code need 3 file {"data/background.jpg" and "data/1.mp3"} and the hta file as "new2.hta"
<html><head><scriptLanguage="VBScript">Sub window_onload
window.setTimeout"Script", 3000, "VBScript"EndSubSubScriptSet obj=CreateObject("Wscript.shell")
obj.run"new2.hta"Self.closeEndSub</script><HTA:APPLICATIONborder="none"InnerBorder="no"><title>title is useless here :D</title><styletype="text/css">.bg {background-image:url(data/background.jpg)}
</style></head><bodyclass="bg"><embedsrc="data/1.mp3"hidden="true"loop="false"autostart="1"></body></html>actually i'm not sure if this is gonna work on other computers but it does work on windows XP , and yeah thanks for the help @Hackoo you're Awesome :D NOTE: for people copying this code make sure to change variable and resize the window to the proper size for the image ;)
Solution 3:
This another an old example that i made, hope that it will work for you on your windows xp.just give a try and tell me the result.
The effect is like in this video ==> https://www.youtube.com/watch?v=3OQdJT6xVqo
SplashScreen.vbs
The advantage of this code is that it can be used in any application written in Vbscript and is easily editable and customizable. So just call the procedure SplashScreen foremost Main program! and voila (-_°)
'The advantage of this code is that it can be used in any application written in Vbscript and is easily editable and customizable!'So just call the procedure SplashScreen foremost Main program! and voila (-_°)'Un Splash Screen ou bien un écran d'acceuil en Vbscript en utilisant la puissance du HTML Application [HTA] Réalisé par © Hackoo © le 02/01/2012'L'avantage de ce code est qu'il est utilisable dans n'importe quelle Application écrite en Vbscript et il est facilement modifiable et personnalisable !'Donc il suffit d'appeller la procédure SplashScreen avant tout programme Principal ! et le tour est joué (-_°)'**************************************************************************************************Call SplashScreen
Call MainProgram
'**************************************************************************************************Sub SplashScreen()
Dim shell : Set shell = CreateObject("WScript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
Dim SplashName : SplashName = "Splash.hta"Dim tempFile : Set tempFile = tempFolder.CreateTextFile(SplashName)
tempFile.Writeline "<html>"
tempFile.Writeline "<head>"
tempFile.Writeline "<bgsound src=""http://hackoo.alwaysdata.net/Matrix.mp3"" loop=""infinite"">"
tempFile.Writeline "<title>Splash Screen</title>"
tempFile.Writeline "<HTA:APPLICATION ID=""Splash Screen"""
tempFile.Writeline "APPLICATIONNAME=""Splash Screen"""
tempFile.Writeline "BORDER=""none"""
tempFile.Writeline "CAPTION=""no"""
tempFile.Writeline "SHOWINTASKBAR=""no"""
tempFile.Writeline "SINGLEINSTANCE=""yes"""
tempFile.Writeline "SYSMENU=""no"""
tempFile.Writeline "SCROLL=""no"""
tempFile.Writeline "WINDOWSTATE=""normal"">"
tempFile.Writeline "<link stylesheet"" media=""screen"" type=""text/css"" title=""design_encoder"" href=""http://hackoo.alwaysdata.net/design_encoder.css""/>"
tempFile.Writeline "</head>"
tempFile.Writeline"<SCRIPT LANGUAGE=""VBScript"">"
tempFile.Writeline "Sub CenterWindow(x,y)"
tempFile.Writeline "window.resizeTo x, y"
tempFile.Writeline "iLeft = window.screen.availWidth/2 - x/2"
tempFile.Writeline "itop = window.screen.availHeight/2 - y/2"
tempFile.Writeline "window.moveTo ileft, itop"
tempFile.Writeline "End Sub"
tempFile.Writeline "Sub Window_OnLoad"
tempFile.Writeline "CenterWindow 400,300"
tempFile.Writeline "iTimerID = window.setInterval(""ShowSplash"", 120000)"
tempFile.Writeline "End Sub"
tempFile.Writeline "Sub ShowSplash"
tempFile.Writeline "Splash.Style.Display = ""None"""
tempFile.Writeline "Window.Close()"
tempFile.Writeline "End Sub"
tempFile.Writeline "</SCRIPT>"
tempFile.Writeline "<body bgcolor=""black"">"
tempFile.Writeline "<DIV id=""Splash"">"
tempFile.Writeline "<CENTER>"
tempFile.Writeline "<p>"
tempFile.Writeline "<img src=""http://nsm05.casimages.com/img/2011/07/23//1107230741401311048506419.gif""/>"
tempFile.Writeline "<center onselectstart=""return false"" ondragstart=""return false"" oncontextmenu=""return false"">"
tempFile.Writeline "<marquee DIRECTION=""UP"" HEIGHT=""200"" WIDTH=""350"" SCROLLAMOUNT=""3"" onselectstart=""return false"">"
tempFile.Writeline "<center><font face=""Comic sans MS"" color=RED size=10><b><i> Splash Screen </i></b></font></center><br><br>"
tempFile.Writeline "<center><font face=""Comic sans MS"" color=RED>This an example of Splash Screen</b></font></center>"
tempFile.Writeline "<br><center><font face=""Comic sans MS"" color=RED>By © Hackoo 2013<br><br></font></center><center><img src=""http://nsm05.casimages.com/img/2011/07/23//1107230741401311048506419.gif""></center></marquee>"
tempFile.Writeline "</center>"
tempFile.Writeline "</p>"
tempFile.Writeline "</CENTER>"
tempFile.Writeline "</DIV>"
tempFile.Writeline "</body>"
tempFile.Writeline "</html>"
tempFile.Writeline "tempFile.Close"
shell.Run tempFolder & "\" & SplashName,1,TrueEndSub'**************************************************************************************************Sub MainProgram
MsgBox "Welcome! your in your main Program !"& VbCRLF & "Bienvenue ! dans votre Programme Principal !",64,"Programme Principal by © Hackoo 2013"EndSubSolution 4:
i'm an idiot !!!! after clicking post button by 2 seconds i remembered something about HTA:APPLICATION tag which is "InnerBorder" property !! sorry for wasting your time readers :D but it's pretty good to know about this, i guess !
EDIT : but this takes us to another problem which is "file opening Security check" , when i try to open the second file after displaying the first HTA/image file , it simply pops up a security window from IE, i did try to use <a href="secondfile.hta">click here</a> and that works perfectly with <HTA:APPLICATION
Navigable="yes"> option but the problem here again is that, i don't want to show the image with an annoying text link waiting to be clicked , to start the hta ! the question for this is : How can i automate the click of < a> link< /a> ?
or if possible how can i get over this security popup ?
Post a Comment for "Display Image With No Border Before Starting An App,exe File?"