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

主頁 > 知識庫 > 用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)民參考！
    • 推薦文章
    主站蜘蛛池模板： 兰溪市| 高邑县| 婺源县| 洪泽县| 中江县| 怀集县| 盐山县| 龙里县| 偏关县| 阳新县| 四平市| 永安市| 名山县| 呼玛县| 罗定市| 虎林市| 呼图壁县| 柳江县| 班玛县| 庄浪县| 东乡| 若尔盖县| 常州市| 县级市| 古田县| 韶山市| 宁阳县| 乡城县| 泌阳县| 鹤峰县| 凤城市| 开鲁县| 黄龙县| 崇仁县| 阿拉善盟| 陇南市| 三门县| 建始县| 浏阳市| 邹城市| 邵阳市|