Anmelden
Benutzerkonto erstellen
Hallo zusammen,
dieses Script zeigt 5 Sekunden ein Bild an... 
hatte ich noch auf der Platte liegen...
<!-- :
@echo off
mshta.exe "%~f0" %*
exit /b
rem
-->
<html>
<hta:application id="oHTA"
<HTA:APPLICATION
BORDER="none"
INNERBORDER="no"
CAPTION="no"
SYSMENU="no"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
ICON="NO"
SCROLL="No"
SCROLLFLAT="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize"
SHOWINTASKBAR="no"
CONTEXTMENU="no"
SELECTION="no"/>
<head>
<style>
body {
color:black;
background-color:black;
background-image:url(http://fs5.directupload.net/images/170104/2dqggnlj.jpg);
background-position:center center;
}
</style>
</head>
<script language="VBScript">
Sub Window_OnLoad()
Call Kill("explorer.exe")
idTimer = window.setTimeout("vbscript:ExecuteMyScript()",5000)
end sub
'****************************************************
Sub ExecuteMyScript()
window.close
Call RunExplorer()
End Sub
'****************************************************
Sub Kill(Process)
Dim Ws,Command,Execution
Set Ws = CreateObject("Wscript.Shell")
Command = "cmd /c Taskkill /F /IM "& Process &""
Execution = Ws.Run(Command,0,True)
Set Ws = Nothing
End Sub
'****************************************************
Sub RunExplorer()
Dim Ws
Set Ws = CreateObject("Wscript.Shell")
ws.run "explorer.exe"
End Sub
'****************************************************
</script>
<body>
</body>
</html>
Bearbeitet von SK4LL3R, 05 January 2017 - 10:54 Uhr.
Nach oben
Melden
Hilfe / Fragen / Unterstützung
Coding
High Level Coding
