[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] 求助+原创+感想

哪儿都不想去了,还是感觉这论坛不错,也感觉批处理比较强大和多面(哪个编程软件都不全面)。
得到一个免费的游戏小辅助(1.exe)(几重加壳实在破解不了),打开后会弹一个网页,改一次主页。于是,我想用自己的毛皮方法去阻止了这两个让人不悦的情况。
一开始就用bat,思路是这样,先禁止IE启动(IE或IE文件夹权限,我选择是修改IE的根文件),再把要改主页的注册表项添加拒绝权限,更改主页后,我搜索了注册表,发现它只改了一项(main),
也算是比较厚道和有所保留的了。然后启动1.exe,再改回注册表,再改回IE。附码:
  1. @echo off
  2. attrib +r +s +a "%ProgramFiles%\Internet Explorer\iexplore.exe"
  3. cacls "%ProgramFiles%\Internet Explorer\iexplore.exe" /e /d everyone Administrator
  4. if exist regset.ini @del /q /f regset.ini
  5. echo HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main [2 8 19] >regset.ini
  6. regini regset.ini
  7. @del /q /f regset.ini
  8. start "" "1.exe"
  9. ping -n 2 127.0>nul
  10. if exist regset.ini @del /q /f regset.ini
  11. echo HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main [1 7 17] >regset.ini
  12. regini regset.ini
  13. @del /q /f regset.ini
  14. cacls "%ProgramFiles%\Internet Explorer\iexplore.exe" /e /g everyone:f Administrator:f
  15. attrib -s -r -a "%ProgramFiles%\Internet Explorer\iexplore.exe"
  16. 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差不能更改权限。

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

在BAT里面这样调用1.exe可以吗?
  1. start "" /min "1.exe"
复制代码

TOP

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

TOP

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

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

TOP

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



    人家谢绝看教程。

TOP

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

TOP

回复 6# Heykuz


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

TOP

返回列表