| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 938 人关注过本帖
标题:[求助]请把VBS写成EXE给个源码
只看楼主 加入收藏
acies
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-11-1
收藏
 问题点数:0 回复次数:2 
[求助]请把VBS写成EXE给个源码

On Error Resume Next
Set WSHShell=WScript.CreateObject("WScript.Shell")
With WScript.CreateObject("WScript.Shell")
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
.RegDelete"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFavoritesMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\StartMenuLogOff"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskbar"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktop"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktopChanges"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoHardwareTab"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoManageMyComputerVerb"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecycleFiles"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSaveSettings"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSecurityTab"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoShellSearchButton"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSMMyDocs"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartMenuSubFolders"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartMenuEjectPC"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoUserNameInStartMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys"
End With
Mybox=MsgBox(enab&vbCR&"^-^限制已解除,重起或注销一下吧~^-^",1024,"北冰洋以北")




或者把里面的项值改成0


界面就弄一个标签,一个按钮就行了



谢了





[此贴子已经被作者于2006-11-3 0:22:57编辑过]

搜索更多相关主题的帖子: Microsoft VBS 源码 EXE 
2006-11-02 23:44
xuzejun
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-4-1
收藏
得分:0 

无言!!!!!
不过你去找一个vb操作注册表的模块就可以搞定了!

2006-11-07 21:33
youhm
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2006-5-25
收藏
得分:0 
Set WSHShell=CreateObject("WScript.Shell")
With WSHShell
2006-11-08 12:50
快速回复:[求助]请把VBS写成EXE给个源码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024538 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved