Question

是否可以拥有覆盖整个桌面的图像？

现在，当我说桌面时，我指的是整个计算机屏幕，而不是背景。它会在消失前留在屏幕上一段时间。这是我想要在屏幕上覆盖的图像，click here.

谢谢！

Answer 1

这是一个example。决定将图片嵌入为base64字符串（您可以在base 64中编码图片并放入源代码中）。在这种情况下，它将在5秒后关闭，但是如果你注释掉这一行idTimer = window.setTimeout("vbscript:window.close", 5000)，它将一直停留，直到mshta PID被杀死。虽然我不知道是否有可能覆盖任务栏（使用hta应用程序。我知道如何使用.net / C＃app）。

Answer 2

此解决方案基于 @npocmaka

请大声喊叫并告诉我结果：

<强> Prank.bat

<!-- :
@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://i.imgur.com/idG7OEJ.png);
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>

桌面的巨型形象？（批处理文件）

2 个答案:

桌面的巨型形象？ （批处理文件）

2 个答案:

桌面的巨型形象？（批处理文件）