请教 关于判断文件是否存在的问题
本帖最后由 nmgwddj 于 2009-10-6 05:29 编辑本人弄一个关于修改IE主页的脚本
我预想的是这样的
首先连接下载http://221.202.188.147/ie.ini这个文件
然后通过REGINI.EXE修改一些注册表项的权限
然后判断本目录下是否存在ie.ini
如果存在 就读取其中的配置信息 修改注册表
如果不存在 就下载此文件 并修改
我弄了好长时间 还是没有弄明白到底是怎么回事 程序运行过程中 总是读取不到ie.ini里边的配置 导致IE首页改不了。请高手帮忙给小弟看看
代码如下
#NoTrayIcon
$a =iniread(@ScriptDir&"\ie.ini","配置","主页",0)
$b =iniread(@ScriptDir&"\ie.ini","配置","iexplorer",0)
$ie = "http://221.202.188.147/ie.ini"
$setup = ".\ie.ini"
FileInstall("regini.exe", @WindowsDir & "\regini.exe",1)
FileInstall("reg.txt", @WindowsDir & "\reg.txt",1)
FileInstall("regeveryone.txt", @WindowsDir & "\regeveryone.txt",1)
Sleep(3000)
Run(@ComSpec & ' /c regini.exe c:\windows\regeveryone.txt',"", @SW_HIDE)
Sleep(500)
If FileExists(".\ie.ini") Then
RegWrite("HKEY_CURRENT_USER\SOFTWARE\microsoft\Internet Explorer\main", "Start Page", "REG_SZ", $a)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "", "REG_SZ", $b)
Else
InetGet($ie, $setup, 1, 1)
RegWrite("HKEY_CURRENT_USER\SOFTWARE\microsoft\Internet Explorer\main", "Start Page", "REG_SZ", $a)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "", "REG_SZ", $b)
EndIf
Sleep(500)
Run(@ComSpec & ' /c regini.exe c:\windows\reg.txt',"", @SW_HIDE)
ie.ini配置文件如下
[配置]
主页=http://www.baidu.com/
iexplorer=""C:\Program Files\Internet Explorer\iexplore.exe" "http://www.baidu.com/"" 还有 就是如何让命令执行完上一句之后再执行下一句
FileInstall("regini.exe", @WindowsDir & "\regini.exe",1)
FileInstall("reg.txt", @WindowsDir & "\reg.txt",1)
FileInstall("regeveryone.txt", @WindowsDir & "\regeveryone.txt",1)
Sleep(3000)
Run(@ComSpec & ' /c regini.exe c:\windows\regeveryone.txt',"", @SW_HIDE)
在这几句中 加了一个等待3秒就是为了让文件解压完了再调用文件！ :face (2):心怀不轨！想做坏事前，还是先好好补补基础吧！ 切 你别以为谁都和你一样。
我们这样网吧收费软件用的是PUBWIN（强制修改主页）
游戏更新软件是网维大师（强制修改主页）
我只不过想把我自己做的网吧改成自己的主页 赚点外快 那里不合情合理了。
也许这东西弄出来之后为广大的网吧用户带来方便呢。
切 有人在吗 帮咱看看呗 谢谢大家 这个问题我解决了。。
#NoTrayIcon
$ie = "http://221.202.188.147/ie.ini"
$setup = ".\ie.ini"
InetGet($ie, $setup, 1, 0);把后边的1改成0就是下载完之后再执行下边的命令。
$a =iniread(@ScriptDir&"\ie.ini","配置","主页",0)
$b =iniread(@ScriptDir&"\ie.ini","配置","iexplorer",0)
$c = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page")
$d = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "")
FileInstall("regini.exe", @WindowsDir & "\regini.exe",1)
FileInstall("main.txt", @WindowsDir & "\main.txt",1)
FileInstall("IExplorer.txt", @WindowsDir & "\IExplorer.txt",1)
FileInstall("everyone.txt", @WindowsDir & "\everyone.txt",1)
Sleep(3000)
Run(@ComSpec & ' /c regini.exe c:\windows\everyone.txt',"", @SW_HIDE)
Sleep(500)
If $c=$a Then
Else
RegWrite("HKEY_CURRENT_USER\SOFTWARE\microsoft\Internet Explorer\main", "Start Page", "REG_SZ", $a)
Run(@ComSpec & ' /c regini.exe c:\windows\main.txt',"", @SW_HIDE)
EndIf
If $d=$b Then
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "", "REG_SZ", $b)
Run(@ComSpec & ' /c regini.exe c:\windows\iexplorer.txt',"", @SW_HIDE)
EndIf
希望对大家有用 谢谢!!!!!!!!!! 非常感谢，可以用来改主页了。 支持下 很好很强大
页:
[1]