国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > HTML > 正文

hta編寫的常用工具箱(常用工具快捷方式等)

2024-08-26 00:15:44
字體:
來源:轉載
供稿:網友
一、程序功能簡介:
程序基于vbs+hta編寫。xp系統下(不同顯示器、分辨率)測試通過。
1、本程序以去除U盤文件夾隱藏屬性功能為主:可以先通過結束用戶進程(包含病毒進程),然后去除被病毒隱藏的文件夾,同時刪除與文件夾同名的exe病毒文件副本。
2、輔助功能:
①添加常用命令,如:打開輸入法設置、聲音設置、系統配置程序等;另外,專門添加了“生成顯示桌面”功能,幫助誤刪了快捷方式顯示桌面的朋友找回“顯示桌面”功能。
②添加常用的注冊表設置功能,如:解除注冊表鎖定、顯示“文件夾選項”、徹底顯示隱藏文件(應對在文件夾選項中“顯示隱藏文件”設置無效)等。
截圖

核心代碼:
代碼如下:
<script language="vbscript">
on error resume next
Dim FSO,WSH
Set FSO=CreateObject("Scripting.FileSystemObject")
set WSH=Createobject("wscript.shell")

dim RegPath(8)
dim Data(8)
RegP="HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/"
RegPath(1)=RegP&"system/DisableRegistryTools"
Data(1)="00000000"

RegPath(2)=RegP&"system/DisableTaskMg"
Data(2)="00000000"    

RegPath(3)=RegP&"Explorer/NoFolderOptions"
Data(3)="00000000"    '顯示“文件夾選項”

RegPath(4)="HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/"
RegPath(4)=RegPath(4)&"Advanced/Folder/SHOWALL/TYRE"
Data(4)="RADIO" '顯示‘顯示隱藏文件'

RegPath(5)=RegP&"Explorer/NoDriveTypeAutoRun" '禁止U盤自動運行
Data(5)="000000B5"

RegPath(6)="HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt"
Data(6)="00000000"

RegPath(7)=RegP&"Explorer/RESTRICTRUN" '解鎖組策略
Data(7)="00000000"

RegPath(8)="HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/"
RegPath(8)=RegPath(4)&"Advanced/Folder/SHOWALL/CheckedValue"
Data(8)="00000001" '讓顯示文件夾修改生效

ADDP="control appwiz.cpl" '添加/刪除程序
Sound="rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1" '聲音控制
Language="rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1 " '區域(輸入法)設置
Options="rundll32.exe shell32.dll,Options_RunDLL 0" '文件夾選項
system="control sysdm.cpl" '系統屬性
tasks="control schedtasks" '計劃任務
Sub Window_onLoad
    window.resizeTo 500,350
    ileft=(window.screen.width-500)/2
    itop=(window.screen.height-350)/2
    window.moveTo ileft,itop
End Sub
Function secBoard(n)
for i=0 to secTable.cells.length-1
    secTable.cells(i).className="sec1"
next
secTable.cells(n).className="sec2"
for i=0 to mTable.tBodies.length-1
    mTable.tBodies(i).style.display="none"
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 伊吾县| 同仁县| 政和县| 桐庐县| 吉木乃县| 新巴尔虎右旗| 博客| 许昌县| 涡阳县| 即墨市| 香港| 景德镇市| 涪陵区| 武宣县| 新沂市| 庄河市| 岳阳市| 吉水县| 和田市| 汪清县| 治县。| 衡水市| 冕宁县| 夏河县| 鸡泽县| 杨浦区| 广饶县| 宁波市| 石景山区| 分宜县| 沈阳市| 凤庆县| 醴陵市| 乌鲁木齐市| 比如县| 扶沟县| 枣阳市| 正定县| 共和县| 马关县| 石家庄市|