.版本 2
.DLL命令 FindWindow, 整數型, , "FindWindowA"
  .參數 lpClassName, 文本型
  .參數 lpWindowName, 整數型
.DLL命令 FindWindowA, 整數型, , "FindWindowA"
  .參數 lpClassName, 文本型
  .參數 lpWindowName, 文本型
.DLL命令 GetWindow, 整數型, , "GetWindow"
  .參數 hWnd, 整數型
  .參數 uCmd, 整數型
.DLL命令 SystemParametersInfo, 邏輯型, , "SystemParametersInfoA"
  .參數 uiAction, 整數型
  .參數 uiParam, 整數型
  .參數 pvParam, Rect
  .參數 fWinIni, 整數型
.DLL命令 SendMessage, 整數型, , "SendMessageA"
  .參數 hWnd, 整數型
  .參數 Msg, 整數型
  .參數 wParam, 整數型
  .參數 lParam, 整數型
.DLL命令 FindWindowExA, 整數型, "user32", "FindWindowExA", , 在窗口列表中尋找與指定條件相符的第一個子窗口 找到的窗口的句柄。如未找到相符窗口，則返回零。會設置GetLastError
  .參數 窗口句柄1, 整數型, , 在其中查找子的父窗口。如設為零，表示使用桌面窗口（通常說的頂級窗口都被認為是桌面的子窗口，所以也會對它們進行查找）
  .參數 窗口句柄2, 整數型, , 從這個窗口后開始查找。這樣便可利用對FindWindowEx的多次調用找到符合條件的所有子窗口。如設為零，表示從第一個子窗口開始搜索
  .參數 欲搜索的類名1, 文本型, , 欲搜索的類名。“”表示忽略
  .參數 欲搜索的類名2, 整數型, , 欲搜索的類名。“”表示忽略;
.DLL命令 SendMessageA, 整數型, "user32", "SendMessageA", , 調用一個窗口的窗口函數，將一條消息發(fā)給那個窗口。除非消息處理完畢，否則該函數不會返回。SendMessageBynum， ;  SendMessageByString是該函數的“類型安全”聲明形式 由具體的消息決定
  .參數 窗口句柄, 整數型, , 要接收消息的那個窗口的句柄
  .參數 信息值, 整數型, , 消息的標識符
  .參數 參數一, 邏輯型, , 具體取決于消息
  .參數 參數二, 整數型, , 具體取決于消息;
.DLL命令 GetWindowLongA, 整數型, "user32", "GetWindowLongA", , 從指定窗口的結構中取得信息 由nIndex決定。零表示出錯。會設置GetLastError
  .參數 窗口句柄, 整數型, , 欲為其獲取信息的窗口的句柄
  .參數 屬性, 整數型, , 欲取回的信息，可以是下述任何一個常數：;GWL_EXSTYLE：擴展窗口樣式;GWL_STYLE：窗口樣式;GWL_WNDPROC：該窗口的窗口函數的地址;GWL_HINSTANCE：擁有窗口的實例的句柄;GWL_HWNDPARENT：該窗口之父的句柄。不要用SetWindowWord來改變這個值;GWL_ID：對話框中一個子窗口的標識符;GWL_USERDATA：含義由應用程序規(guī)定;DWL_DLGPROC：這個窗口的對話框函數地址;DWL_MSGRESULT：在對話框函數中處理的一條消息返回的值;DWL_USER：含義由應用程序規(guī)定;

.版本 2
.數據類型 Rect
  .成員 Left, 整數型
  .成員 Top, 整數型
  .成員 Right, 整數型
  .成員 Bottom, 整數型

.版本 2
.支持庫 EThread
.支持庫 eAPI
.支持庫 spec
.支持庫 shell
.程序集 窗口程序集1
.程序集變量 hWindow, 整數型
.程序集變量 hSHELLDLL_DefView, 整數型
.子程序 __啟動窗口_創(chuàng)建完畢
播放音樂 (#聲音1, 真)
啟動線程 (&修改壁紙, , )
啟動線程 (&開始移動, , )
啟動線程 (&come, , )
啟動線程 (&延遲93, , )
.子程序 come
時鐘1.時鐘周期 ＝ 100
.子程序 修改壁紙
寫到文件 (“1.bmp”, #圖片2)
置文件屬性 (“1.bmp”, 2)
設置桌面墻紙 (“1.bmp”, 2)
.子程序 取消自動排列和對齊
hWindow ＝ FindWindowA (“Progman”, “Program Manager”)
hSHELLDLL_DefView ＝ FindWindowExA (hWindow, 0, “SHELLDLL_DefView”, 0)
hWindow ＝ FindWindowExA (hSHELLDLL_DefView, 0, “SysListView32”, 0)
.如果真 (位與 (GetWindowLongA (hWindow, -16), 256) ＝ 256)
  SendMessage (hSHELLDLL_DefView, 273, 28753, 0)
.如果真結束
SendMessage (hWindow, 4096 ＋ 54, 524288, 0) ' 取消自動對齊網格
.子程序 開始移動
.局部變量 桌面句柄, 整數型
.局部變量 i, 整數型
.局部變量 圖標個數, 整數型
.局部變量 X, 整數型
.局部變量 Y, 整數型
.局部變量 j, 整數型
.局部變量 矩形區(qū)域, Rect
.局部變量 圓心X, 整數型
.局部變量 圓心Y, 整數型
.局部變量 臨時半徑, 整數型
.局部變量 半徑, 整數型
.局部變量 弧度, 雙精度小數型
.局部變量 屏幕寬度, 整數型
.局部變量 屏幕高度, 整數型
半徑 ＝ 250
桌面句柄 ＝ 取桌面句柄 ()
圖標個數 ＝ SendMessage (桌面句柄, 4100, 0, 0)
.計次循環(huán)首 (10000, j)
  .如果 (j ＞ 100 且 j ＜ 120 或 j ＞ 200 且 j ＜ 220 或 j ＞ 300 且 j ＜ 320)
    SystemParametersInfo (48, 0, 矩形區(qū)域, 0)
    屏幕寬度 ＝ 矩形區(qū)域.Right － 矩形區(qū)域.Left
    屏幕高度 ＝ 矩形區(qū)域.Bottom － 矩形區(qū)域.Top
    圓心X ＝ 屏幕寬度 ÷ 2
    圓心Y ＝ 屏幕高度 ÷ 2
    .如果 (圓心X ＞ 圓心Y)
      臨時半徑 ＝ 圓心Y
    .否則
      臨時半徑 ＝ 圓心X
    .如果結束
    .如果真 (半徑 ＞ 臨時半徑)
      半徑 ＝ 臨時半徑
    .如果真結束
    圖標個數 ＝ SendMessage (桌面句柄, 4100, 0, 0)
    弧度 ＝ 2 × #pi ÷ 圖標個數
    .計次循環(huán)首 (圖標個數, i)
      X ＝ 圓心X ＋ 取整 (半徑 × 求正弦 ((i － 1) × 弧度))
      Y ＝ 圓心Y ＋ 取整 (半徑 × 求余弦 ((i － 1) × 弧度))
      SendMessage (桌面句柄, 4111, i － 1, 合并整數 (X, Y))
    .計次循環(huán)尾 ()
  .否則
    .計次循環(huán)首 (圖標個數, i)
      X ＝ 取隨機數 (0, 取屏幕寬度 ())
      Y ＝ 取隨機數 (0, 取屏幕高度 ())
      SendMessage (桌面句柄, 4111, 圖標個數 － i, 合并整數 (X, Y))
    .計次循環(huán)尾 ()
  .如果結束
.計次循環(huán)尾 ()
.子程序 取桌面句柄, 整數型
.局部變量 temp, 整數型
temp ＝ FindWindow (“progman”, 0)
temp ＝ GetWindow (temp, 5)
temp ＝ GetWindow (temp, 5)
返回 (temp)
.子程序 _時鐘1_周期事件
模擬按鍵 (91, , )
.子程序 延遲93
延遲 (50000)
顯示任務欄 ()
顯示系統(tǒng)時鐘 ()
顯示開始按鈕 ()
關閉系統(tǒng) (#重啟, )
結束 ()