校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > 用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本

用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本
熱門標(biāo)簽：外呼系統(tǒng)說話聲音小怎么辦 上海辦理400電話選號 墨西哥地圖標(biāo)注app 龍巖400電話申請 機(jī)器人打電銷適用于美業(yè)嗎 企業(yè)400電話辦理價錢低 天津智能外呼系統(tǒng)排名 外呼系統(tǒng)群 智云億呼電話機(jī)器人
Message = "To work correctly, the script will close"  vbCR
　　Message = Message  "and restart the Windows Explorer shell."  vbCR
　　Message = Message  "This will not harm your system."  vbCR  vbCR
　　Message = Message  "Continue?"
　　X = MsgBox(Message, vbYesNo, "Notice")
　　If X = 6 Then
　　On Error Resume Next
　　Dim WSHShell, n, MyBox, p, t, errnum, vers
　　Dim itemtype
　　Dim enab, disab, jobfunc
　　Set WSHShell = WScript.CreateObject("WScript.Shell")
　　p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"
　　itemtype = "REG_DWORD"
　　enab = "ENABLED"
　　disab = "DISABLED"
　　jobfunc = "Notification Icons are now "
　　t = "Confirmation"
　　Err.Clear
　　n = WSHShell.RegRead (p)
　　errnum = Err.Number
　　if errnum > 0 then
　　 WSHShell.RegWrite p, 0, itemtype
　　End If
　　If n = 0 Then
　　 n = 1
　　WSHShell.RegWrite p, n, itemtype
　　Mybox = MsgBox(jobfunc  disab  vbCR, 4096, t)
　　ElseIf n = 1 then
　　 n = 0
　　WSHShell.RegWrite p, n, itemtype
　　Mybox = MsgBox(jobfunc  enab  vbCR, 4096, t)
　　End If
　　Set WshShell = Nothing
　　On Error GoTo 0
　　For Each Process in GetObject("winmgmts:"). _
　　 ExecQuery ("select * from Win32_Process where name='explorer.exe'")
　　 Process.terminate(0)
　　Next
　　MsgBox "Finished."  vbcr  vbcr , 4096, "Done"
　　Else 
　　MsgBox "No changes were made to your system."  vbcr  vbcr, 4096, "User Cancelled"
　　End If

標(biāo)簽：錫林郭勒盟 齊齊哈爾 阜新 青島 鄂爾多斯 黃山 承德 麗水

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本》，本文關(guān)鍵詞  用,vbscript,實(shí)現(xiàn),隱藏,任務(wù)欄,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本》相關(guān)的同類信息！
  • 本頁收集關(guān)于用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    主站蜘蛛池模板： 肃宁县| 云浮市| 浦江县| 东光县| 三河市| 乌鲁木齐县| 永顺县| 自治县| 汉寿县| 望谟县| 古丈县| 广东省| 八宿县| 郁南县| 吉木萨尔县| 武汉市| 岳池县| 修文县| 和硕县| 宿州市| 齐齐哈尔市| 砚山县| 交口县| 宁阳县| 抚顺县| 汝南县| 镇巴县| 都江堰市| 凯里市| 治多县| 咸丰县| 广昌县| 金秀| 花垣县| 随州市| 政和县| 湖南省| 万山特区| 陆川县| 宽甸| 河津市|