求助+原创+感想

Heykuz

哪儿都不想去了，还是感觉这论坛不错，也感觉批处理比较强大和多面（哪个编程软件都不全面）。
得到一个免费的游戏小辅助（1.exe）（几重加壳实在破解不了），打开后会弹一个网页，改一次主页。于是，我想用自己的毛皮方法去阻止了这两个让人不悦的情况。
一开始就用bat，思路是这样，先禁止IE启动（IE或IE文件夹权限，我选择是修改IE的根文件），再把要改主页的注册表项添加拒绝权限，更改主页后，我搜索了注册表，发现它只改了一项（main），
也算是比较厚道和有所保留的了。然后启动1.exe，再改回注册表，再改回IE。附码：

1. @echo off
   
2. 
   
3. attrib +r +s +a "%ProgramFiles%\Internet Explorer\iexplore.exe"
   
4. cacls "%ProgramFiles%\Internet Explorer\iexplore.exe" /e /d everyone Administrator
   
5. 
   
6. if exist regset.ini @del /q /f regset.ini
   
7. echo HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main [2 8 19] >regset.ini
   
8. regini regset.ini
   
9. @del /q /f regset.ini
   
10. 
    
11. start "" "1.exe"
    
12. 
    
13. ping -n 2 127.0>nul
    
14. 
    
15. if exist regset.ini @del /q /f regset.ini
    
16. echo HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main [1 7 17] >regset.ini
    
17. regini regset.ini
    
18. @del /q /f regset.ini
    
19. 
    
20. cacls "%ProgramFiles%\Internet Explorer\iexplore.exe" /e /g everyone:f Administrator:f
    
21. attrib -s -r -a "%ProgramFiles%\Internet Explorer\iexplore.exe"
    
22. 
    
23. exit

复制代码

此为2.bat。
弹网页的时候有点延时，所以也适当的延时。这样就很好解决了两个让人不悦的事情了。新手们（我也是新手）遇上这样的情况就可以借鉴我的思路和代码去处理问题了。
再加个3.vbs。让2.bat隐藏运行。

1. set ws=WScript.CreateObject("WScript.Shell")
   
2. ws.Run ".\2.bat",0

复制代码

我现在新的问题是：
这个1.exe只有一个关闭按钮，永远弹在屏幕中间，煞是碍眼。想把它弄到进程里面，因为是个辅助程序（1.exe），隐藏着心理更舒服。但bat无法做到把外部程序隐藏到后台。
VBS可以做的到。我不想用几个bat和几个vbs来处理，只想用一个文件来完成（因为要传给其它人用）。bat吗，就差一个不能将外部程序隐藏。vbs吗，没找到可以修改文件和注册表项权限的。
VB我也试了，不可以改注册表权限。其它的VC++、C#、Delphi、易语言……都搜索过，即使可以也是复杂的吓人。没批处理来的简单。所以现在都不想复杂的了，最好是bat或VBS单一的完成我想要的。
bat差不能隐藏外部程序，vbs差不能更改权限。

谁来解决一下呢。谢绝复制链接叫看教程的。

forfiles

在BAT里面这样调用1.exe可以吗？

1. start "" /min "1.exe"

复制代码

forfiles

在BAT里面动态生成一个临时的VBS去隐藏1.exe可以吗？
参考方法2：
http://www.bathome.net/thread-3271-1-1.html

forfiles

vbs吗，没找到可以修改文件和注册表项权限的。

BAT可以调用cacls和regini，VBS也同样可以。
基础教程里面写的非常清楚，如果你不知道到哪里去找教程，问吧，不丢脸，有人会告诉你的。

Demon

BAT可以调用cacls和regini，VBS也同样可以。
基础教程里面写的非常清楚，如果你不知道到哪里去找教程，问 ...
forfiles 发表于 2012-10-24 23:21

    人家谢绝看教程。

Heykuz

感谢以上的人员，其实写不出来就等于不行。
最小化和托盘会让程序失效。
我自己用if not "%1" == "h" mshta vbscript:createobject("wscript.shell").run("Aoeaid.exe",0)(window.close)搞定了。还是我自己解决，还是批处理行。来这儿问了几次没解决过我的问题。心淡。

forfiles

回复 6# Heykuz


这个论坛不太喜欢直接伸手要完整代码的人
大家更愿意跟那些喜欢看教程、遇到实际问题再问、别人给出思路自己会去尝试的人切磋交流