发个破东西..（Win + D）?

miaomiao

1. Dim ToggleDesktop As String = "[Shell]" & vbCrLf & _
   
2.                    "Command=2" & vbCrLf & _
   
3.                    "IconFile=explorer.exe,3" & vbCrLf & _
   
4.                    "[Taskbar]" & vbCrLf & _
   
5.                    "Command=ToggleDesktop"
   
6.     Dim FilePath As String = Environ("temp") & "\ToggleDesktop.scf"
   
7.     Dim FreeFile As Integer = FileSystem.FreeFile
   
8.     If Dir(FilePath) <> "" Then FileSystem.Kill(FilePath)
   
9.     FileOpen(FreeFile, FilePath, OpenMode.Binary)
   
10.     FilePut(FreeFile, ToggleDesktop)
    
11.     FileClose(FreeFile)
    
12.     Shell("cmd.exe /c start " & FilePath, AppWinStyle.Hide)

复制代码

Tesla.Angela

虽然没有什么价值，不过还是加分鼓励。

马大哈

显示桌面......