這個非常有意思又帶著“幽默”趣味小程序是我近日在一個網友的貼子中得到的靈感。

程序：徒有其表 1.0

開發環境：VB6.0 + windows xp

運行效果：隱藏桌面的一切，并且制造一個一模樣的“假象”。

源碼：為了不養成網友們只會“伸手”的壞習慣，主要部分的源碼我會在講解中貼出來，但不提供下載。

下面開始講述，首先列出程序的流程：

1.顯示桌面。

2.完整的截屏并保存成圖片文件（相當于PrintScreen鍵的功能）。

3.隱藏桌面圖標與任務欄。

4.把截屏保存的圖片設置成桌面壁紙。

5.完成之桌面看起來并沒有什么變化，只是什么也打不開，鼠標左右鍵都置若罔聞，類似假死現象。

源碼：

'顯示桌面 Private Sub DeskShow()Dim m_Shell As New Shell32.Shellm_Shell.MinimizeAllEnd Sub

?

'截屏未保存(數據在緩存區) Private Sub Cap()BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(GetActiveWindow), 0, 0, vbSrcCopy '抓屏End Sub'完整路徑 Private Function Format(path As String, exten As String)Format = path & "back" & extenEnd Function'截屏保存 Private Sub PrintScreen()Dim sFile As StringCall CapsFile = Format("c:\", ".jpg")SavePicture Me.Image, sFile '保存數據 Me.hDCEnd Sub

'隱藏桌面圖標 Private Sub HideDisk(window As String, hide As Integer)Dim Hwd As LongDim rtn As LongHwd = FindWindow(window, vbNullString)If (hide = 1) Thenrtn = ShowWindow(Hwd, SW_HIDE)ElseIf (hide = 0) Thenrtn = ShowWindow(Hwd, SW_RESTORE)End IfEnd Sub '調用 ??? Call HideDisk("Progman", 1)???????? '隱藏桌面圖標Call HideDisk("Shell_TrayWnd", 1)?? '隱藏任務欄

'即時設置壁紙 Private Sub SetBackpic(path As String)Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, path, SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)End Sub '聲明 Const SW_HIDE = 0 Const SW_RESTORE = 9 Const SPI_SETDESKWALLPAPER = 20 Const SPIF_SENDWININICHANGE = &H2

以上幾乎是全部代碼的，思路和主要源碼都給出了，希望大家可以自己DIY更多有趣的東西，編程也可以很快樂的。

?

恢復的辦法也很簡單，只要把隱藏的桌面和任務欄顯示出來就可以了，函數上面也給出了。

?

小y本身是做軟件售后工作的，水平剛入門，讓各位大蝦見笑了。

總結

以上是生活随笔為你收集整理的恶趣味程序之《徒有其表》的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。