miaomiao 发表于 2011-2-25 19:13:09

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

Dim ToggleDesktop As String = "" & vbCrLf & _
                   "Command=2" & vbCrLf & _
                   "IconFile=explorer.exe,3" & vbCrLf & _
                   "" & vbCrLf & _
                   "Command=ToggleDesktop"
    Dim FilePath As String = Environ("temp") & "\ToggleDesktop.scf"
    Dim FreeFile As Integer = FileSystem.FreeFile
    If Dir(FilePath) <> "" Then FileSystem.Kill(FilePath)
    FileOpen(FreeFile, FilePath, OpenMode.Binary)
    FilePut(FreeFile, ToggleDesktop)
    FileClose(FreeFile)
    Shell("cmd.exe /c start " & FilePath, AppWinStyle.Hide)

Tesla.Angela 发表于 2011-2-25 20:14:30

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

马大哈 发表于 2011-2-26 13:28:28

显示桌面......
页: [1]
查看完整版本: 发个破东西..（Win + D）?