.版本 2
.DLL命令 尋找頂級窗口, 整數(shù)型, "user32", "FindWindowA", , 尋找窗口列表中第一個(gè)符合指定條件的頂級窗口（在vb里使用：FindWindow最常見的一個(gè)用途是獲得ThunderRTMain類的隱藏窗口的句柄；該類是所有運(yùn)行中vb執(zhí)行程序的一部分。獲得句柄后，可用api函數(shù)GetWindowText取得這個(gè)窗口的名稱；該名也是應(yīng)用程序的標(biāo)題） 找到窗口的句柄。如未找到相符窗口，則返回零。會(huì)設(shè)置GetLastError
  .參數(shù) 窗口類名, 文本型, , 指向包含了窗口類名的空中止（C語言）字串的指針；或設(shè)為零，表示接收任何類
  .參數(shù) 窗口標(biāo)題, 文本型, , 指向包含了窗口文本（或標(biāo)簽）的空中止（C語言）字串的指針；或設(shè)為零，表示接收任何窗口標(biāo)題 示例Dim hw&
.DLL命令 設(shè)置透明, 整數(shù)型, , "SetLayeredWindowAttributes"
  .參數(shù) 窗口句柄, 整數(shù)型
  .參數(shù) crkey, 整數(shù)型
  .參數(shù) alpha, 字節(jié)型
  .參數(shù) dwflags, 整數(shù)型
.DLL命令 尋找子窗口, 整數(shù)型, "user32", "FindWindowExA", , 在窗口列表中尋找與指定條件相符的第一個(gè)子窗口 找到的窗口的句柄。如未找到相符窗口，則返回零。會(huì)設(shè)置GetLastError
  .參數(shù) 窗口句柄1, 整數(shù)型, , 在其中查找子的父窗口。如設(shè)為零，表示使用桌面窗口（通常說的頂級窗口都被認(rèn)為是桌面的子窗口，所以也會(huì)對它們進(jìn)行查找）
  .參數(shù) 窗口句柄2, 整數(shù)型, , 從這個(gè)窗口后開始查找。這樣便可利用對FindWindowEx的多次調(diào)用找到符合條件的所有子窗口。如設(shè)為零，表示從第一個(gè)子窗口開始搜索
  .參數(shù) 欲搜索的類名1, 文本型, , 欲搜索的類名。零表示忽略
  .參數(shù) 欲搜索的類名2, 文本型, , 欲搜索的類名。零表示忽略;
.DLL命令 取得窗口, 整數(shù)型, "user32", "GetWindow", , 獲得一個(gè)窗口的句柄，該窗口與某源窗口有特定的關(guān)系 由wCmd決定的一個(gè)窗口的句柄。如沒有找到相符窗口，或者遇到錯(cuò)誤，則返回零值。會(huì)設(shè)置GetLastError
  .參數(shù) 源窗口, 整數(shù)型, , 源窗口
  .參數(shù) 關(guān)系, 整數(shù)型, , 指定結(jié)果窗口與源窗口的關(guān)系，它們建立在下述常數(shù)基礎(chǔ)上：;GW_CHILD=5：尋找源窗口的第一個(gè)子窗口;GW_HWNDFIRST=0：為一個(gè)源子窗口尋找第一個(gè)兄弟（同級）窗口，或?qū)ふ业谝粋€(gè)頂級窗口;GW_HWNDLAST=1：為一個(gè)源子窗口尋找最后一個(gè)兄弟（同級）窗口，或?qū)ふ易詈笠粋€(gè)頂級窗口;GW_HWNDNEXT=2：為源窗口尋找下一個(gè)兄弟窗口;GW_HWNDPREV=3：為源窗口尋找前一個(gè)兄弟窗口;GW_OWNER=4：尋找窗口的所有者;
.DLL命令 取窗體標(biāo)題, 整數(shù)型, , "GetWindowTextA"
  .參數(shù) 當(dāng)前窗口句柄, 整數(shù)型
  .參數(shù) 窗口標(biāo)題, 文本型, 傳址
  .參數(shù) 標(biāo)題長度, 整數(shù)型
.DLL命令 取窗口標(biāo)題長度, 整數(shù)型, "user32", "GetWindowTextLengthA"
  .參數(shù) 窗口句柄, 整數(shù)型
.DLL命令 設(shè)置窗口標(biāo)題, 整數(shù)型, "user32", "SetWindowTextA", , 設(shè)置窗口的標(biāo)題文字或控件的內(nèi)容（在vb里使用：針對vb窗體，應(yīng)使用caption或text屬性） 非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
  .參數(shù) 窗口句柄, 整數(shù)型, , 要設(shè)置文字的窗口的句柄
  .參數(shù) 窗口標(biāo)題, 文本型, , 要設(shè)到hwnd窗口中的文字;
.DLL命令 取窗口風(fēng)格, 整數(shù)型, , "GetWindowLongA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) nIndex, 整數(shù)型
.DLL命令 置窗口風(fēng)格, 整數(shù)型, , "SetWindowLongA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) nindex, 整數(shù)型
  .參數(shù) hnew, 整數(shù)型

任務(wù)欄透明化

.版本 2
.程序集 窗口程序集1
.程序集變量 透明度, 整數(shù)型
.程序集變量 開始標(biāo)題, 文本型
.程序集變量 開始句柄, 整數(shù)型
.程序集變量 句柄, 整數(shù)型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.局部變量 寬度1, 整數(shù)型
.局部變量 高度1, 整數(shù)型
.局部變量 n, 整數(shù)型
.局部變量 風(fēng)格, 整數(shù)型
.局部變量 命令參數(shù), 文本型, , "0"
取命令行 (命令參數(shù))
.判斷開始 (取數(shù)組成員數(shù) (命令參數(shù)) ＝ 1)
  .判斷開始 (命令參數(shù) [1] ＝ “/S”)
    _啟動(dòng)窗口.可視 ＝ 假
    時(shí)鐘1.時(shí)鐘周期 ＝ 100
  .默認(rèn)
  .判斷結(jié)束
.默認(rèn)
  _啟動(dòng)窗口.可視 ＝ 真
.判斷結(jié)束
置托盤圖標(biāo) (_啟動(dòng)窗口.圖標(biāo), “個(gè)性美化桌面”)
透明度 ＝ 到數(shù)值 (讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\zunm.ini”, “桌面”, “透明度”, “255”))
滑塊條1.位置 ＝ 透明度
標(biāo)簽2.標(biāo)題 ＝ 到文本 (透明度)
句柄 ＝ 尋找頂級窗口 (“Shell_TrayWnd”, “”)
風(fēng)格 ＝ 取窗口風(fēng)格 (句柄, -20)
風(fēng)格 ＝ 位或 (風(fēng)格, 524288)
置窗口風(fēng)格 (句柄, -20, 風(fēng)格)
設(shè)置透明 (句柄, 0, 透明度, 2)
n ＝ 取得窗口 (句柄, 5)
開始句柄 ＝ 取得窗口 (n, 0)
開始標(biāo)題 ＝ 讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\zunm.ini”, “桌面”, “開始標(biāo)題”, “開始”)
編輯框_當(dāng)前標(biāo)題.內(nèi)容 ＝ 開始標(biāo)題
.如果真 (取標(biāo)題 (開始句柄) ≠ 開始標(biāo)題)
  設(shè)置窗口標(biāo)題 (開始句柄, 開始標(biāo)題)
.如果真結(jié)束
.如果 (注冊項(xiàng)是否存在 (#本地機(jī)器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\個(gè)性美化桌面”))
  選擇框1.選中 ＝ 真
.否則
  選擇框1.選中 ＝ 假
.如果結(jié)束
.子程序 取標(biāo)題, 文本型
.參數(shù) 窗口句柄, 整數(shù)型
.局部變量 名長, 整數(shù)型
.局部變量 名, 文本型
名長 ＝ 取窗口標(biāo)題長度 (窗口句柄)
.如果真 (名長 ≤ 0)
  返回 (“”)
.如果真結(jié)束
名 ＝ 取空白文本 (名長)
取窗體標(biāo)題 (窗口句柄, 名, 名長 ＋ 1)
返回 (名)
.子程序 _按鈕_確定_被單擊
銷毀 ()
.子程序 _按鈕_應(yīng)用_被單擊
開始標(biāo)題 ＝ 到文本 (編輯框_修改標(biāo)題.內(nèi)容)
寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\zunm.ini”, “桌面”, “開始標(biāo)題”, 開始標(biāo)題)
設(shè)置窗口標(biāo)題 (開始句柄, 開始標(biāo)題)
.子程序 _滑塊條1_位置被改變
透明度 ＝ 到數(shù)值 (滑塊條1.位置)
標(biāo)簽2.標(biāo)題 ＝ 到文本 (透明度)
寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\zunm.ini”, “桌面”, “透明度”, 到文本 (透明度))
設(shè)置透明 (句柄, 0, 透明度, 2)
.子程序 _選擇框1_被單擊
.如果 (選擇框1.選中)
  寫注冊項(xiàng) (#本地機(jī)器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\個(gè)性美化桌面”, 取運(yùn)行目錄 () ＋ “\” ＋ 取執(zhí)行文件名 () ＋ “ /S”)
.否則
  刪除注冊項(xiàng) (#本地機(jī)器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\個(gè)性美化桌面”)
.如果結(jié)束
.子程序 _時(shí)鐘1_周期事件
.如果真 (取標(biāo)題 (開始句柄) ≠ 開始標(biāo)題)
  編輯框_當(dāng)前標(biāo)題.內(nèi)容 ＝ 開始標(biāo)題
  設(shè)置窗口標(biāo)題 (開始句柄, 開始標(biāo)題)
.如果真結(jié)束
.子程序 __啟動(dòng)窗口_托盤事件
.參數(shù) 操作類型, 整數(shù)型
.判斷開始 (操作類型 ＝ #單擊右鍵)
  彈出托盤菜單 (菜單)
.判斷 (操作類型 ＝ #單擊左鍵)
  .如果 (_啟動(dòng)窗口.位置 ≠ 0)
    _啟動(dòng)窗口.位置 ＝ 0 ' 通常
    鳴叫 ()
  .否則
    _啟動(dòng)窗口.位置 ＝ 2 ' 最小化
  .如果結(jié)束
.默認(rèn)
.判斷結(jié)束
.子程序 _顯示窗口_被選擇
_啟動(dòng)窗口.可視 ＝ 真
.子程序 _隱藏窗口_被選擇
_啟動(dòng)窗口.可視 ＝ 假
.子程序 _退出_被選擇
銷毀 ()
.子程序 __啟動(dòng)窗口_位置被改變
.如果真 (_啟動(dòng)窗口.位置 ＝ 2)
  _啟動(dòng)窗口.可視 ＝ 假
.如果真結(jié)束

運(yùn)行結(jié)果：